CPP de la cde veille

BoTTom |
         /********************************************************************/
          /*  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




©AF400