H/TITLE MAGRPG001 - PRACTICA
      * EN ESTE PROGRAMA PRACTICO DSPLY, PANTALLAS, MOVE
      * GOTO,TAG Y VARIABLES
      *
      **************************
      * EN LA SIGUIENTE LINEA INCLUIMOS LA PANTALLA V001
      * PARA INTERACTUAR CON NUESTRO PROGRAMA
     FV001    CF  E                    WORKSTN
      **************************
      * LAS SIGUIENTES LINEAS DEFINEN UNA VARIABLE TEX9
      * QUE CONTIENE LAS SUBVARIABLES $ER1 Y $ER2
      * SE LAS PUEDE LLAMAR POR CUALQUIERA DE SUS NOMBRES
      * TEX9 SIEMPRE DEBE TENER LA SUMATORIA DE TODAS
      * LAS EXTENCIONES DE LAS SUBVARIABLES
      * NOTA: LOS DSPLY NO MUESTRAN MAS DE 52 CARACTERES
     ITEX9        DS                             39
     I I            'INGRESE NOMBRE     '     1  19 $ER1
     I I            'NORA MICA MAG.     '    20  39 $ER2
      *
      **************************
      *
      *
      *
      * EN C COLOCAMOS LAS LINEAS DE CODIGO
      *
      *
      *
     C*                    MOVE *BLANK    $ER1
     C*                    MOVE 'EMMA'    $ER1
      *
     C           $ER1      DSPLY
     C*                    MOVE $ER2      $ER1
     C           $ER2      DSPLY
     C*                    MOVE $ER3      $ER1
     C           TEX9      DSPLY
     C*
      * MOSTRAR PANTALLA V001
     C           PANT      TAG
     C                     EXFMTP1
      * VERIFICAMOS SI EL INDICADOR 03 (TECLA F3) FUE PULSADO
      * '1' ES VERDADERO Y FUE PULSADA LA TECLA
      * '0' ES FALSO Y NO FUE PULSADA LA TECLA
     C           *IN03     IFEQ '1'
     C                     GOTO FIN
     C                     ENDIF
     C                     GOTO PANT
     C           FIN       TAG
      *
      * SETON SIGNIFICA INSERTAR UN VERDADERO EN LR (LAST RECORD)
      * ESTO INDICA QUE EL PROGRAMA FINALIZA
     C                     SETON                     LR