I got a few requests for this. So I am posting it again.
This information came to me from another List Member. (Thanks Eric)
The following programs require some sort of Code change in order to do ILE
in SVR.
P9801 - Lines marked with JSP01 are the additions.
2114.00 C* User is authorized, Compile Object
2115.00 CSR VDFUNC IFEQ 'RPG'
2116.00 JSP01CSR VDFUNC OREQ 'RPGL'
2117.00 CSR VDFUNC OREQ 'CLP'
J98CRTRPG4 - This is a copy of J98CRTRPG with the following
changes.
Lines 22 and 23 Changed to..
0022.00 J98CRTRPG4: PGM (&MEMBER &FILE &PRINTOPT &OBJLIB
&SRCLIB +
0023.00 &CRTOPT &XREF &GENL)
Lines 280.00 though 283 commented out. Lines 284 through 285 added.
0280.00 /* CRTRPGPGM PGM(&OBJLIB/&MEMBER)
SRCFILE(&SRCLIB/&FILE) + */
0281.00 /* SRCMBR(&MEMBER) GENLVL(&GENL) +
*/
0282.00 /* OPTION(&SRCOPT) GENOPT(&GENOPT) +
*/
0283.00 /* REPLACE(*YES) TGTRLS(&TRGT)
AUT(*ALL) */
0284.00 CRTBNDRPG PGM(&OBJLIB/&MEMBER)
SRCFILE(&SRCLIB/&FILE)+
0284.01 SRCMBR(&MEMBER) GENLVL(&GENL)
OPTION(*GEN *SECLVL) +
0285.00 DBGVIEW(*ALL) INDENT('| ') AUT(*ALL)
TGTRLS(&TRGT)
0286.00 MONMSG MSGID(CPF0000 QRG9001) EXEC(DO)
Lines 304.00 though 307 commented out. Lines 308 through 309 added.
0304.00 /* CRTRPGPGM PGM(&OBJLIB/&MEMBER)
SRCFILE(&SRCLIB/&FILE) + */
0305.00 /* SRCMBR(&MEMBER) GENLVL(&GENL) +
*/
0306.00 /* OPTION(&SRCOPT *NOXREF)
GENOPT(&GENOPT) +*/
0307.00 /* REPLACE(*YES) TGTRLS(&TRGT)
AUT(*ALL) */
0308.00 CRTBNDRPG PGM(&OBJLIB/&MEMBER)
SRCFILE(&SRCLIB/&FILE)+
0308.01 SRCMBR(&MEMBER) GENLVL(&GENL)
OPTION(*GEN *SECLVL) +
0309.00 DBGVIEW(*ALL) INDENT('| ') AUT(*ALL)
TGTRLS(&TRGT)
0310.00 MONMSG MSGID(CPF0000 QRG9001) EXEC(DO)
P98CRTPGM
Added in after the Create RPG Program section.
0076.00 C*
0077.00 jsp01C* Create RPGL Program
0078.00 | C*
0079.00 | C PSFUNC IFEQ 'RPGL'
0080.00 | C MOVEL'J98CRTRP'$PGM 10
0081.00 | C MOVE 'G4' $PGM
0082.00 | C CALL $PGM
0083.00 | C* ---- ----
0084.00 | C PARM PSMID
0085.00 | C PARM PSFILE
0086.00 | C PARM CACAS1 PSPRNT 1
0087.00 | C PARM PSOBJL
0088.00 | C PARM PSLIBR
0089.00 | C PARM $CRTOP PSCRT 1
0090.00 | C PARM CACAS2 PSXREF 1
0091.00 | C PARM PSGENL
0092.00 jsp01C END
P98MCMPB
Added Line marked with jsp01
1167.00 CSR VD#OTY CASEQ'DSPF' S005B
1168.00 CSR VD#OTY CASEQ'RPG ' S005A
1169.00 jsp01CSR VD#OTY CASEQ'RPGL' S005A
1170.00 CSR VD#OTY CASEQ'CBL ' S005A
1171.00 CSR VD#OTY CASEQ'ASM ' S005A
1172.00 CSR VD#OTY CASEQ'LF ' S005F
UDC Table 98/FN
Added
04 Character
Code Description
------- ----------------
RPGL ILE RPG Programs
Scott Parker
Grote Industries, LLC
mailto:
[email protected]
Scott Parker
Grote Industries, LLC.
WorldSoftware Version 8.1.2 AS/400 V4R5