/* TEST DE CL */
 INICIO:     PGM
 /* DECLARAMOS LA VARIABLE &USER */
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
 /* DECLARAMOS EL ARCHIVO DE PANTALLA A USAR */
             DCLF       FILE(V004)
 /* RECUPERAMOS DE LOS ATRIBUTOS DE TRABAJO EL CONTENIDO DE USER */
 /* LOGGEADO Y LO CARGAMOS EN LA VARIABLE &USER */
             RTVJOBA    USER(&USER)
 /* AGREGA LA LIBRERIA GARAS181 SI NO EXISTE MONMSG EVITA EL CIERRE */
 /*          ADDLIBLE   LIB(GARAS181) POSITION(*LAST)   */
 /*          MONMSG     MSGID(CPF0000 CPC0000 CPD0000)  */
 /* LIMPIAMOS LOS 2 ESPACIOS DE 40CARACT DE LA PANTALLA */
 V004P1:     CHGVAR     VAR(&FLD001) VALUE('(ESPACIO DE texto1)')
             CHGVAR     VAR(&FLD002) VALUE('(ESPACIO DE TEXTO2)')
 /* MOSTRAMOS LA PANTALLA SEND RECEIVE FILE */
 /* DEV(*FILE) DISPOSITIVO DEL ARCHIVO DE PANTALLA CON FORMATO P1 */
 V004P1A:    SNDRCVF    DEV(*FILE) RCDFMT(P1)
             IF         COND(&FLD001 = 'FIN') THEN(GOTO CMDLBL(FIN))
             IF         COND(&FLD001 = 'RUN') THEN(GOTO CMDLBL(RUN))
             IF         COND(&IN03 = '1') THEN(GOTO CMDLBL(FIN))
             IF         COND(&IN05 = '1') THEN(GOTO CMDLBL(V004P1))
             IF         COND(&IN06 = '1') THEN(DO)
             CHGVAR     VAR(&FLD002) VALUE(&USER)
             CHGVAR     VAR(&FLD001) VALUE(' ')
             GOTO CMDLBL(V004P1A)
             ENDDO
             GOTO CMDLBL(V004P1A)
RUN:
/*           WRKSPLF             */
             CALL       PGM(MAGRPGD001)
             CHGVAR     VAR(&FLD001) VALUE(' ')




             GOTO CMDLBL(V004P1A)
             WRKSPLF
FIN:         ENDPGM