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 ************************