/********************************************************************/
/* ENREGISTRER PAR */
/* ADDEXITPGM EXITPNT(QIBM_QSP_SPLF_LSTACT) + */
/* FORMAT(LASP0100) PGMNBR(*LOW) + */
/* PGM(AF4TOOL/WRKSPLO) TEXT('Option P sur +*/
/* WRKSPLF') PGMDTA(*JOB 1 'P') */
/*******************************************************************/
PGM PARM(&EXITPT &FORMAT &OPTION &SPLFID &SPLFIDL)
DCL VAR(&EXITPT) TYPE(*CHAR) LEN(20)
DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8)
DCL VAR(&OPTION) TYPE(*CHAR) LEN(1)
DCL VAR(&SPLFID) TYPE(*CHAR) LEN(81)
DCL VAR(&SPLFIDL) TYPE(*INT) LEN(4)
/*******************************************************************/
/* SOUS ZONES DE &SPLFID */
/*******************************************************************/
DCL VAR(&JOB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SPLFID 1)
DCL VAR(&USER) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SPLFID 11)
DCL VAR(&NBR) TYPE(*CHAR) STG(*DEFINED) +
LEN(6) DEFVAR(&SPLFID 21)
DCL VAR(&SPLNAM) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SPLFID 27)
DCL VAR(&SPLNUM) TYPE(*INT) STG(*DEFINED) +
LEN(4) DEFVAR(&SPLFID 37)
DCL VAR(&JOBSYS) TYPE(*CHAR) STG(*DEFINED) +
LEN(8) DEFVAR(&SPLFID 41)
DCL VAR(&CRTDATE) TYPE(*CHAR) STG(*DEFINED) +
LEN(7) DEFVAR(&SPLFID 49)
DCL VAR(&CRTTIME) TYPE(*CHAR) STG(*DEFINED) +
LEN(6) DEFVAR(&SPLFID 56)
DCL VAR(&OUTQ) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SPLFID 62) DCL VAR(&OUTQLIB) TYPE(*CHAR) STG(*DEFINED) + LEN(10) DEFVAR(&SPLFID 72) DCL VAR(&NUMCHAR) TYPE(*CHAR) LEN(10) DCL VAR(&TOSTMF) TYPE(*CHAR) LEN(15) /*******************************************************************/ MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(PRB)) /*******************************************************************/ /* DÉBUT DU PGM */ /*******************************************************************/ IF COND(&OPTION = 'P') THEN(DO) CHGVAR VAR(&NUMCHAR) VALUE(&SPLNUM) CHGVAR VAR(&TOSTMF) VALUE(&SPLNAM *TCAT '.PDF') CPYSPLF ?*FILE(&SPLNAM) TOFILE(*TOSTMF) + ?*JOB(&NBR/&USER/&JOB) SPLNBR(&NUMCHAR) +
??TOSTMF(&TOSTMF) WSCST(*PDF) + STMFOPT(*REPLACE) ENDDO RETURN /* FIN DU PGM */ PRB: SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) + MSGDTA('Impossible de copier le spool') ENDPGM
|