//DEMOFR21 JOB (EXP,NRL),, // CLASS=F, // MSGCLASS=O, // MSGLEVEL=(1,1), // LINES=(999,CANCEL), // TIME=1440, // NOTIFY= //* //*OMS NET=PROD,HICC=3 //* //* //*%OPC SCAN //* //************************* DEBUT DE JOB ***************************** //* FONCTION : DEMO JCL FOR ACMU //* //********************************************************************* //* //* //*%OPC RECOVER RESTART=N, //*%OPC ADDAPPL=(PREPFR020PA4), //*%OPC ERRSTEP=(DEBJOB-FINJOB), //*%OPC JOBCODE=(S*,U*,4-4094) //* //INIT0000 EXEC PGM=IDCAMS,REGION=0M //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //CEEDUMP DD SYSOUT=*,FREE=CLOSE //SYSABEND DD SYSOUT=*,FREE=CLOSE //SYSUDUMP DD SYSOUT=*,FREE=CLOSE //* //* //O1 DD DISP=OLD, // DSN=OPDEMO.COST.STE0201.D&ODDD.&OHHMM. //* //IN DD DSN=NULLFILE //* //SYSIN DD * REPRO INFILE(IN) OUTFILE(O1) REUSE //* //* //* //* STEP : STEP0005 //* PGM : FROP0050 (IKJEFT01) //* DESC : CRS - Extract CSV de la structure intermediaire //* EGEN : FIFR-FR021DA0-010-FROP0050 //* //STEP0005 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=0M //STEPLIB DD DISP=SHR,DSN=OPDEMO.FIFR.LOD // DD DISP=SHR,DSN=OPDEMO.SMMS.LOD // DD DISP=SHR,DSN=DB2.SDSNLOAD //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //CEEDUMP DD SYSOUT=*,FREE=CLOSE //SYSABEND DD SYSOUT=*,FREE=CLOSE //SYSUDUMP DD SYSOUT=*,FREE=CLOSE //SYSABOUT DD SYSOUT=*,FREE=CLOSE //SYSDBOUT DD SYSOUT=*,FREE=CLOSE //SYSDBIN DD DUMMY //REPORT DD SYSOUT=* //PRINT DD SYSOUT=* //IGZSRTCD DD DUMMY //SYSTSIN DD * DSN SYSTEM (DB2P) RUN PROGRAM (FDEMO123) - PLAN (FROP0050) END /* //* //* STEP : STEP0010 //* PGM : SORT (SORT) //* DESC : Tri //* EGEN : GIP1-FR021DA0-020-SORT //* //STEP0010 EXEC PGM=SORT,REGION=0M //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR, // DSN=OPDEMO.GIP1.FABC0050 //SORTOUT DD DISP=OLD, // DSN=OPDEMO.GIP1.GABC001A.G000001 //SYSIN DD * SORT FIELDS=COPY INREC FIELDS=(1,1350) END /* //* //* STEP : STEP0005 //* PGM : SQLPLUS //* //COND0015 IF STEP0010.RC EQ 0 THEN //STEP0015 EXEC PGM=SQLPLUS,REGION=0M //STEPLIB DD DISP=SHR,DSN=ORACLE.CMDLOAD //ORAPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=*,FREE=CLOSE //SYSABEND DD SYSOUT=*,FREE=CLOSE //SYSERR DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=1320,RECFM=VB) //ORA$LIB DD DISP=SHR, // DSN=ORACLE.MESG //SQLNET DD DISP=SHR, // DSN=ORACLE.NAMES(ONAMES) //LDAP DD DISP=SHR, // DSN=ORACLE.NAMES(LDAP) //SQLLOGIN DD DUMMY //SYSIN DD DISP=SHR, // DSN=OPDEMO.DEMO.CLIENT.PCONSTR.INTRANET // DD * INSERT INTO ABC.DEF110 ( ABC , DEF , GHI , JKL , MNO, PQR , STU, VWX ) VALUES ( &CYYYY. , &CMM. , &CDD. , 0 , 0 , 0 , 'SPD DDX PI PXD START CPL_CTBCLI &CTIME.', '&CTIME.' ); COMMIT; EXIT SQL.SQLCODE /* //COND0015 ENDIF