QUSCRTUS - Create user space (RPGIV example 2)
dCrtSpc pr extpgm('QUSCRTUS')
d SpcName 20 const
d SpcAttr 10 const
d SpcSiz 10i 0 const
d SpcVal 1 const
d SpcAut 10 const
d SpcTxt 50 const
d SpcRpl 10 const options(*nopass)
d ErrCde likeds(ErrCde) options(*nopass)
d SpcDmn 10 const options(*nopass)
d SpcTfrSiz 10i 0 const options(*nopass)
d SpcSpcAln 1 const options(*nopass)
dErrCde ds
d BytPrv 10i 0 inz(0)
dSpcName ds
d SName 10 inz('SPACENAME')
d SLib 10 inz('QTEMP')
/free
// Create the user space
CrtSpc( SpcName :'MY_TEST' :4096 :x'00' :'*CHANGE'
:'A test user space' :'*YES' :ErrCde);
*inlr = *on;
Return;
/end-free
阅读(1794) | 评论(0) | 转发(0) |
