M z/jcl/KFRPT1.jcl => z/jcl/KFRPT1.jcl +1 -1
@@ 4,7 4,7 @@
//SYMNAMES DD *
JP0,2014
/*
-//SORTIN DD DSN=AK01DATA.CASH.BACKUP.TXNS(0),DISP=SHR
+//SORTIN DD DSN=AK01DATA.CASH.TXNS,DISP=SHR
//SORTOUT DD DSN=&&SUM1,DISP=(NEW,PASS)
//SYSIN DD *
INREC IFTHEN=(WHEN=(98,1,CH,EQ,C'A',AND,92,6,PD,GT,+0),
M z/jcl/KFRPT2.jcl => z/jcl/KFRPT2.jcl +1 -1
@@ 1,7 1,7 @@
//KFRPT2 JOB 'KFRPT2',
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=SORT
-//SORTIN DD DSN=AK01DATA.CASH.BACKUP.TXNS(0),DISP=SHR
+//SORTIN DD DSN=AK01DATA.CASH.TXNS,DISP=SHR
//SORTOUT DD DSN=&&SUM1,DISP=(NEW,PASS)
//SYSIN DD *
INCLUDE COND=(98,1,CH,EQ,C'F',AND,92,6,PD,GT,+0)
M z/jcl/KFVSAM.jcl => z/jcl/KFVSAM.jcl +3 -1
@@ 1,4 1,4 @@
-//KFVSAM JOB KFVSAM,
+//KFVSAM JOB 'KFVSAM',
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
@@ 9,6 9,7 @@
RECORDSIZE(138 138) -
KEYS(3 38) -
RECORDS(100 50) -
+ SHAREOPTIONS(3,3) -
INDEXED UNIQUE ) -
DATA ( -
NAME(AK01DATA.CASH.TXNS.DATA) ) -
@@ 21,6 22,7 @@
RELATE(AK01DATA.CASH.TXNS) -
KEYS(91 0) -
RECORDS(100 50) -
+ SHAREOPTIONS(3,3) -
UNIQUEKEY UPGRADE ) -
DATA ( -
NAME(AK01DATA.CASH.TXNS.AIX1.DATA) ) -