H/TITLE RP01 - PRACTICA
      * RP01 LE PASA LOS DATOS DE LAS VARIABLES A RP02 PARA QUE LOS
      * MUESTRE. ANTES DE LLAMAR A RP02 SE MUESTRA EL DATASET
      *
     IVARS        DS                             40
     I I            'MARCELO'                 1  20 VAR1
     I I            'NORA'                   21  40 VAR2
     C           LIST1     PLIST
     C                     PARM           VAR1   20
     C                     PARM           VAR2   20
     C           VARS      DSPLY
     C                     CALL 'RP01'    LIST1
     C                     SETON                     LR