ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Point /COPY at COPY_MBRS

Browse Source
This commit is contained in:
SJLennon
2021-10-07 12:30:02 -04:00
parent af3f48b03f
commit 44a9785b11
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
APIs/GETJOBTR.RPGLE
+1 -1
View File
@@ -24,7 +24,7 @@
ctl-opt debug option(*nodebugio: *srcstmt) ctl-opt debug option(*nodebugio: *srcstmt)
dftactgrp(*no) actgrp(*caller) dftactgrp(*no) actgrp(*caller)
main(Main); main(Main);
/copy USPHDR /copy copy_mbrs,USPHDR
//=== CRTUSRSPC (QUSCTRUS) Parameters ================================ //=== CRTUSRSPC (QUSCTRUS) Parameters ================================
dcl-s CusName char(20) inz('GETJOBTR QTEMP'); dcl-s CusName char(20) inz('GETJOBTR QTEMP');
dcl-s CusAttr char(10) inz('GETJOBTR '); dcl-s CusAttr char(10) inz('GETJOBTR ');
APIs/GETOBJUR.RPGLE
+1 -1
View File
@@ -29,7 +29,7 @@ ctl-opt debug option(*nodebugio: *srcstmt)
dftactgrp(*no) actgrp(*caller) dftactgrp(*no) actgrp(*caller)
main(Main); main(Main);
dcl-f GETOBJUP usage(*output) usropn block(*yes); dcl-f GETOBJUP usage(*output) usropn block(*yes);
/copy USPHDR /copy copy_mbrs,USPHDR
//=== CRTUSRSPC (QUSCTRUS) Parameters ================================ //=== CRTUSRSPC (QUSCTRUS) Parameters ================================
dcl-ds *n; dcl-ds *n;
CusQName char(20); CusQName char(20);