* $$ JOB JNM=MV05506B,SYSID=1 * $$ LST CLASS=A,DISP=D,FNO=1P14,COPY=1,LST=SYSLST // JOB MV05506B 10 EXCEPTION TABLE RESTORE // PAUSE // ASSGN SYS020,DISK,VOL=PERM51,SHR // DLBL MVAFXS1,'MVAFXS1.EXCEPTION.TABLE.FILE' // EXTENT SYS020,PERM51,1,0,1149,1 // TLBL EXCBKUP,'MV8FYB5,U' I/P EXCEPTION TABLE BACKUP // EXEC DYL280,SIZE=250K OPTION RESTORE MVLF0101 FIN /* // JOB ARNITE ARNITE - ASSIGNED RISK NIGHT CYCLE - CA-DART * ********************************************** * * ****** BEGIN ASSIGNED RISK NIGHT CYCLE ***** * * ********************************************** * // ASSGN SYS001,SYSLST * $$ LST DISP=L,CLASS=Z,FNO=PRT1,USER='BACKUPS' // DLBL SORTIN1,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT // EXEC SORT,SIZE=256K OPTION PRINT=CRITICAL,LABEL=(S,S,S) SORT FIELDS=(1,8,A),FORMAT=BI,WORK=1,FILES=1 INCLUDE COND=(1230,1,CH,NE,C'C') INPFIL VSAM RECORD TYPE=F,LENGTH=(1250) OUTREC FIELDS=(1,8,3X,1177,2,3X) OUTFIL CADART END DATA NAMES=(D1=00001,00008,CH) BREAK FIELDS=(D1) COLUMN HEADS=(POLICY) PRINT FIELDS=(D1) DATA NAMES=(D2=00009,00008,CH) COLUMN HEADS=( OPERATOR) PRINT FIELDS=(D2) HEADER=ASSIGNED RISK HEADER=NEW BUSINESS/CHANGES INCOMPLETE TRANSACTIONS /* EOF /& * $$ EOJ
Return to the Sample Job Stream List
//MV05506B JOB (MV05506B),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=SORT DYL280 //* //STEP0010 EXEC PGM=SORT //* MODULE DYL280 PROCESSED BY PLUG-IN LCP280 //* MT I SYS010 UA EXCBKUP 'MV8FYB5,U' MVLF0101 //SORTIN DD DSN=VTMV.DICSZFYB.BXXXX.EXCP.TABLE, // DISP=SHR //* SD O SYS011 UA MVAFXS1 'MVAFXS1.EXCEPTION.TABLE.FILE' MVLF0101 //SORTOUT DD DSN=VTMV.DICSZFXS.BXXXX.EXCEPT.TABLE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY /* //* //* ********************************************** * //* ****** BEGIN ASSIGNED RISK NIGHT CYCLE ***** * //* ********************************************** * //* //* STEP0020 PGM=SORT //* //STEP0020 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* VS VS I PRM53CT SORTIN1 'MVVGGF.CDL.LIC.INPUT.CLUSTER' //SORTIN DD DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC, // DISP=SHR //* PR O SYS001 00E 0002 //SORTOUT DD SYSOUT=(Z,,PRT1) //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * *OPTION PRINT=CRITICAL,LABEL=(S,S,S) SORT FIELDS=(1,8,A),FORMAT=BI INCLUDE COND=(1230,1,CH,NE,C'C') *INPFIL VSAM RECORD TYPE=F,LENGTH=(1250) OUTREC FIELDS=(1,8,3X,1177,2,3X) *OUTFIL CADART MODS E35=(CADART,0) END /* //* CD I //CADART DD * DATA NAMES=(D1=00001,00008,CH) BREAK FIELDS=(D1) COLUMN HEADS=(POLICY) PRINT FIELDS=(D1) DATA NAMES=(D2=00009,00008,CH) COLUMN HEADS=( OPERATOR) PRINT FIELDS=(D2) HEADER=ASSIGNED RISK HEADER=NEW BUSINESS/CHANGES INCOMPLETE TRANSACTIONS /* //
Return to the Sample Job Stream List