RPG Parameters Example
H* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
H* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
H*
H*
F*********************** File Specifications **************************
I 'TESTING 3 ' C TSTSTR
IP2 DS
I B 1 20BINP2
IP3 DS
I B 3 40BINP3
I DS
I B 5 60BIN1
C*
C*
C*********************************************************************
C** *
C** This program has three parameters: *
C** *
C** 1) Input/output parm. This is a 20 byte character field. *
C** Replace the first 10 bytes of the field with our value. *
C** *
C** 2) Input parm. This is a two byte binary number. *
C** *
C** 3) Output parm. This is a two byte binary number. Its *
C** value is parm 2 + 1. *
C** *
C*********************************************************************
C*
C*
C *ENTRY PLIST
C PARM P1 20
C PARM P2
C PARM CHARP3 2
C MOVELTSTSTR P1
C Z-ADD1 BIN1
C BINP2 ADD BIN1 BINP3
C MOVE P3 CHARP3
C SETON LR
O*********************** Output Specifications ************************