H/TITLE RPG02 - PRACTICA
      * RECIBIMOS DE RP01 LAS 2 VARIABLES Y LAS MOSTRAMOS POR SEPARADO
      *
     C           *ENTRY    PLIST
     C                     PARM           $VAR1  20
     C                     PARM           $VAR2  20
     C           $VAR1     DSPLY
     C           $VAR2     DSPLY
     C                     SETON                     LR