H/TITLE MAGRPG002 - PRACTICA
      *
      * SELECCIONAMOS EL MIEMBRO F003 PARA TRABAJAR 'A' PERMITE AGREGAR
      * REGISTROS
     FF004    UF  E           K        DISK                      A
     F*F004    UF  E           K        DISK
      *
      *
     IVARS        DS                             40
     I I            'BTS'                     1  40 $BAND
     C                     MOVE *BLANKS   $BAND
     C           F3K       KLIST
     C                     KFLD           $BAND
     C           F3K       CHAINR001                 99
     C           *IN99     IFEQ '1'
     C           'NO ENC'  DSPLY
     C                     GOTO PASO2
     C                     ELSE
     C           'ENCONT'  DSPLY
     C                     ENDIF
     C           F3CODI    DSPLY
     C           PASO2     TAG
      * SOLO PUEDE EJECUTAR 1 UPDATE O DELETE LUEGO DEL CHAIN
      * ASI QUE AL ACTIVAR 1 COMENTAR EL OTRO
      *
     C*                    UPDATR001
     C*          F3PAIS    DSPLY
     C*                    DELETR001
      * NUEVO REGISTRO
     C                     MOVE '00004'   F3CODI
     C                     MOVE 'SWE'     F3PAIS
     C                     MOVE 'ABBA'    F3BAND
     C           F3BAND    DSPLY
     C                     WRITER001
     C           FIN       TAG
     C           'FIN'     DSPLY
     C                     SETON                     LR