| 
PGM
DCLF INZDSPCPPD
DCL &DA *CHAR 200
DCL &ECRAN *CHAR 10
MONMSG CPF0000 EXEC(GOTO ERREUR)
CHGVAR &JOBQ 'QCTL'
AFFICH: SNDRCVF
IF &IN03 DO
CHGVAR &IN50 '0'
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Télémiroir non initialisé') +
MSGTYPE(*ESCAPE)
RETURN
ENDDO
CHKOBJ OBJ(&JOBQ) OBJTYPE(*JOBQ)
IF (&FLD001 ^= ' ') CHKOBJ &FLD001 *DEVD
IF (&FLD002 ^= ' ') CHKOBJ &FLD002 *DEVD
IF (&FLD003 ^= ' ') CHKOBJ &FLD003 *DEVD
IF (&FLD004 ^= ' ') CHKOBJ &FLD004 *DEVD
IF (&FLD005 ^= ' ') CHKOBJ &FLD005 *DEVD
IF (&FLD006 ^= ' ') CHKOBJ &FLD006 *DEVD
IF (&FLD007 ^= ' ') CHKOBJ &FLD007 *DEVD
IF (&FLD008 ^= ' ') CHKOBJ &FLD008 *DEVD
IF (&FLD009 ^= ' ') CHKOBJ &FLD009 *DEVD
IF (&FLD010 ^= ' ') CHKOBJ &FLD010 *DEVD
IF (&FLD011 ^= ' ') CHKOBJ &FLD011 *DEVD
IF (&FLD012 ^= ' ') CHKOBJ &FLD012 *DEVD
IF (&FLD013 ^= ' ') CHKOBJ &FLD013 *DEVD
IF (&FLD014 ^= ' ') CHKOBJ &FLD014 *DEVD
IF (&FLD015 ^= ' ') CHKOBJ &FLD015 *DEVD
IF (&FLD016 ^= ' ') CHKOBJ &FLD016 *DEVD
IF (&FLD017 ^= ' ') CHKOBJ &FLD017 *DEVD
IF (&FLD018 ^= ' ') CHKOBJ &FLD018 *DEVD
IF (&FLD019 ^= ' ') CHKOBJ &FLD019 *DEVD
IF (&FLD020 ^= ' ') CHKOBJ &FLD020 *DEVD
DLTDTAQ DTAQ(AF4TOOL/CPYDTAQ)
MONMSG CPF0000
CRTDTAQ DTAQ(AF4TOOL/CPYDTAQ) MAXLEN(3) SEQ(*LIFO)
CHGVAR &DA (&FLD001 *CAT &FLD002 *CAT &FLD003 *CAT +
&FLD004 *CAT &FLD005 *CAT &FLD006 *CAT +
|
|
&FLD007 *CAT &FLD008 *CAT &FLD009 *CAT +
&FLD010 *CAT &FLD011 *CAT &FLD012 *CAT +
&FLD013 *CAT &FLD014 *CAT &FLD015 *CAT +
&FLD016 *CAT &FLD017 *CAT &FLD018 *CAT +
&FLD019 *CAT &FLD020)
CHGDTAARA DTAARA(*LDA (1 200)) VALUE(&DA)
RTVJOBA JOB(&ECRAN)
CHGDTAARA DTAARA(*LDA (201 10)) VALUE(&ECRAN)
CHGDTAARA DTAARA(*LDA (212 10)) VALUE(&JOBQ)
RETURN
ERREUR: IF &IN50 +
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Télémiroir non initialisé') +
MSGTYPE(*ESCAPE)
CHGVAR &IN50 '1'
RCVMSG MSGTYPE(*EXCP) MSG(&MSG)
GOTO AFFICH
ENDPGM
|
