35 lines
2.5 KiB
Plaintext
35 lines
2.5 KiB
Plaintext
//RUNCHGD1 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=A,MSGCLASS=X, 00000160
|
|
//*** TYPRUN=SCAN, 00000225
|
|
// NOTIFY=ECNTSUP,REGION=0M 00000564
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00000637
|
|
// SET PRGNODE='PROD' RERUN DAILY CHARGING UPDATE FROM 00000760
|
|
// SET LVLNODE='PROD' /* UI BENEFITS TO UI TAX 00000860
|
|
// SET MSTNODE='PROD' 00000960
|
|
// SET CHGNODE='PROD' 00001060
|
|
// SET CHGMNBR='CHGM002' 00001149
|
|
// SET CHGMSSN='CHGM030' 00001249
|
|
// SET BKPGEN='(+1)' 00001349
|
|
// SET LDEST=U@PRT65 00001449
|
|
// SET LHOLD='YES' 00001549
|
|
// SET BD200='Y' /* TOLERATE DUPS OR NOT 00001662
|
|
//**** 00001749
|
|
//* RERUN PROC FOR DAILY BENEFIT CHARGE PROCESS 00002003
|
|
//*
|
|
//* CHANGE THE NAME OF THE INPUT IN PROC RUNUXCD1 TO THE BACKUP TAPE
|
|
//*
|
|
//**** 00002425
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
|
|
//**** 00003325
|
|
//STEP0100 EXEC RUNUXCD1 /*EXTRACT AND UPDATE CHARGE FILE 00003963
|
|
//**** 00005461
|
|
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
|
// LDEST=U@PRT65, 00005660
|
|
// LHOLD='YES' 00005760
|
|
//** 00005860
|
|
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
|
|
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
|
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
|
//**** 00020025
|