EXTOL RPG Program: EXQUALEQ

EXTOL RPG - External Call EXQUALEQ - Return Input Value if Equal to Qualifier

     H/TITLE Return input value if equal to qualifier
     H            Y
     Z* CRTRPGPGM
     Z* OPTION(*NOXREF) GENOPT(*OPTIMIZE)
      *
     W* Warning: This program does not set on the LR indicator
      *
      * Parameter declarations
     I            DS
      * I :  Code trans directions    1
     I                                        1   1 P1CDTT
      * I :  Code table reference    10
     I                                        2  11 P2TABL
      * B :  Code in standard form   80
     I                                       12  91 P3CDST
      * B :  Code qualifier data     80
     I                                       92 171 P4CDQD
      * B :  Code in local form      80
     I                                      172 251 P5CDLC
      *
      /EJECT
      *****************************************************************
      * Entry parameters
     C           *ENTRY    PLIST
     C                     PARM           P0RTN   7
     C           P1CDTT    PARM           WP0001  1        Code trans dire
     C           P2TABL    PARM           WP0002 10        Code table refe
     C           P3CDST    PARM P3CDST    WP0003 80        Code in standar
     C           P4CDQD    PARM P4CDQD    WP0004 80        Code qualifier
     C           P5CDLC    PARM P5CDLC    WP0005 80        Code in local f
      *****************************************************************
      *
      * CASE: PAR.Code trans directions is Inward translation
     C           P1CDTT    IFEQ 'I'
     C           P4CDQD    IFEQ P3CDST
     C                     MOVELP3CDST    P5CDLC
     C                     ELSE
     C                     MOVEL*BLANKS   P5CDLC
     C                     END
      *
     C                     END
      *
      * CASE: PAR.Code trans directions is Outward translation
     C           P1CDTT    IFEQ 'O'
     C           P4CDQD    IFEQ P5CDLC
     C                     MOVELP5CDLC    P3CDST
     C                     ELSE
     C                     MOVEL*BLANKS   P3CDST
     C                     END
      *
     C                     END
      *
      * A "Return code" of non-blank will be logged as a translation error:
     C                     MOVEL*BLANK    P0RTN            *Return code
      * Exit program
     C                     RETRN



By: on