* $$ JOB JNM=BPRPD005,DISP=H,CLASS=C,USER='A&H CONTROL'
// JOB BPRPD005 -- SCHEDULER AT 21:00
* JMCL NAME=STEP001
* STEP STEP001
* NOTE - ...........................................................
* NOTE - .T H I S J O B M U S T R U N E V E R Y C Y C L E!.
* NOTE - . I T C A N C A U S E P R O B L E M S W I T H .
* NOTE - . W E E K L Y L E A D E R B O A R D R E P O R T .
* NOTE - ...........................................................
// RPT 1401,A,JOBNAME,USER=JDJ,RO=(FIC,L(0))
// EXEC FLIMNQI IF=(HC EQ 00),DATA
ACTION DQFIRST=NO,MODE=EXCLUSIVE
NQID=KEYFEXTR
/*
* JMCL NAME=STEP002
* STEP STEP002 EXTRACT AGENCY A&H NEW BUSINESS
// ASSGN SYS006,SYSLST
* TIME 15MINS
// OPTION LOG
// EXEC DISTRIB IF=(HC EQ 00),DATA
S 00E BPRPD005 A&H CONTROL
S 00ENOTE BRANCH OFFICE SERVICES -A&H NEW BUSINESS FOR LDR BRD
/*
* //KFENTRY DD DSN=KEYFAST.ENTRY.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=PRODCAT
* //KFDATA DD DSN=KEYFAST.DATA.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=PRODCAT
// ASSGN SYS007,SYSIPT
// ASSGN SYS006,X'80E'
* //KFDSAVE DD DSN='PGBPR01.S.KEYF.AH.NEWBUS',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(30,30),RLSE)
// EXEC KFUTIL,SIZE=AUTO IF=(HC EQ 00),DATA
LIST DOCU=NO,DETAIL=YES
SAVE ST=ENT,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
SAVE ST=VER,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
SAVE ST=SAV,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
/*
* JMCL NAME=STEP003
// EXEC FLIMNQI IF=(HC EQ 00),DATA
ACTION DQFIRST=NO,MODE=EXCLUSIVE
DQID=KEYFEXTR
/*
* $$ EOJ
Return to the Sample Job Stream List
//BPRPD005 JOB (BPRPD005),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* JMCL NAME=STEP001
//* STEP STEP001
//* NOTE - ...........................................................
//* NOTE - .T H I S J O B M U S T R U N E V E R Y C Y C L E!.
//* NOTE - . I T C A N C A U S E P R O B L E M S W I T H .
//* NOTE - . W E E K L Y L E A D E R B O A R D R E P O R T .
//* NOTE - ...........................................................
//*
//* --> PGM=FLIMNQI <-- DELETED
//*
//* JMCL NAME=STEP002
//* STEP STEP002 EXTRACT AGENCY A&H NEW BUSINESS
//* TIME 15MINS
//*
//* STEP0010 PGM=DISTRIB
//*
//STEP0010 EXEC PGM=DISTRIB
//* PR O SYSLST 00E
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
S 00E BPRPD005 A&H CONTROL
S 00ENOTE BRANCH OFFICE SERVICES -A&H NEW BUSINESS FOR LDR BRD
/*
//*
//* STEP0020 PGM=KFUTIL
//*
//STEP0020 EXEC PGM=KFUTIL
//* VS VS I PRODCAT E 'KEYFAST.ENTRY.FILE'
//KFENTRY DD DSN=MVS.KEYFAST.ENTRY.FILE,
// DISP=SHR
//* VS VS I PRODCAT E 'KEYFAST.DATA.FILE'
//KFDATA DD DSN=MVS.KEYFAST.DATA.FILE,
// DISP=SHR
//* SD O E 'PGBPR01.S.KEYF.AH.NEWBUS'
//KFDSAVE DD DSN=MVS.PGBPR01.S.KEYF.AH.NEWBUS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(30,30),RLSE),
// UNIT=SYSDA
//* MT O KFTSAVE /0/0 OPT=Y
//* PR O SYSLST 00E
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
LIST DOCU=NO,DETAIL=YES
SAVE ST=ENT,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
SAVE ST=VER,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
SAVE ST=SAV,DSC=AHAGNB++,IREC=800,OREC=800,OUTPUT=DISK,FLAG=NO,
CHK=NOCHECK
/*
//*
//* JMCL NAME=STEP003
//*
//* --> PGM=FLIMNQI <-- DELETED
//
Return to the Sample Job Stream List