I'm new to the forums..so hello all!!!!
Just quick question.
How do i code for entry parms in a free form RPG pgm?
Thanks in advance
Just quick question.
How do i code for entry parms in a free form RPG pgm?
Thanks in advance
D index s 5p 0 D inparm1 s 1 D inparm2 s 1 D SOmeField s 1 D pgmsds sds D @@@pgm 1 10 D @@@sts 11 15 0 * C select C when index = 1 C eval SomeField = 'A' C when index = 2 C eval SomeField = 'B' C other C eval SomeField = 'C' C endsl * C eval *inlr = *on *=========================================== * *Inzsr - Initial one time subroutine *=========================================== c *inzsr begsr * c *entry plist c parm InParm1 c parm InParm2 * c endsr
D index s 5p 0 D inparm1 s 1 D inparm2 s 1 D SOmeField s 1 D pgmsds sds D @@@pgm 10 D @@@sts 5 0 * Prototype for CALLFREE D CALLFREE PR D InParm1_ 1 D InParm2_ 1 * *ENTRY Interface for Main Procedure D CALLFREE PI D InParm1 1 D InParm2 1 * /FREE select; when index = 1; SomeField = 'A'; when index = 2; SomeField = 'B'; other; SomeField = 'C'; endsl; // *inlr = *on; //=========================================== // *Inzsr - Initial one time subroutine //=========================================== begsr *inzsr; // // endsr; // /END-FREE
D index s 5p 0 D inparm1 s 1 D inparm2 s 1 D SOmeField s 1 D pgmsds sds D @@@pgm 1 10 D @@@sts 11 15 0 * C select C when index = 1 C eval SomeField = 'A' C when index = 2 C eval SomeField = 'B' C other C eval SomeField = 'C' C endsl * C eval *inlr = *on *=========================================== * *Inzsr - Initial one time subroutine *=========================================== c *inzsr begsr * c *entry plist c parm InParm1 c parm InParm2 * c endsr
D index s 5p 0 D inparm1 s 1 D inparm2 s 1 D SOmeField s 1 D pgmsds sds D @@@pgm 10 D @@@sts 5 0 * Prototype for CALLFREE D CALLFREE PR D InParm1_ 1 D InParm2_ 1 * *ENTRY Interface for Main Procedure D CALLFREE PI D InParm1 1 D InParm2 1 * /FREE select; when index = 1; SomeField = 'A'; when index = 2; SomeField = 'B'; other; SomeField = 'C'; endsl; // *inlr = *on; //=========================================== // *Inzsr - Initial one time subroutine //=========================================== begsr *inzsr; // // endsr; // /END-FREE
D Entry PR ExtPgm( 'PGMNAME' )
D Prm_Request 3000A
D Prm_Response 3000A
D Prm_IPAddr 15A
D Entry PI
D Prm_Request 3000A
D Prm_Response 3000A
D Prm_IPAddr 15A
D Entry PR ExtPgm( 'PGMNAME' )
D Prm_Request 3000A
D Prm_Response 3000A
D Prm_IPAddr 15A
D Entry PI
D Prm_Request 3000A
D Prm_Response 3000A
D Prm_IPAddr 15A
dJunk pr d CustCode Like(AMCUST) dJunk pi d CustCode Like(AMCUST)
dEntry pr ExtPgm('JUNK') d CustCode Like(AMCUST) dEntry pi d CustCode Like(AMCUST)
dJunk pr d CustCode Like(AMCUST) dJunk pi d CustCode Like(AMCUST)
dEntry pr ExtPgm('JUNK') d CustCode Like(AMCUST) dEntry pi d CustCode Like(AMCUST)
dJunk pr d CustCode Like(AMCUST) dJunk pi d CustCode Like(AMCUST)
dEntry pr ExtPgm('JUNK') d CustCode Like(AMCUST) dEntry pi d CustCode Like(AMCUST)
Comment