~ajk/cash

ref: 08eac3b3e4558b356041aa068b6ee76dc342543b cash/z/jcl/KFVSAM.jcl -rw-r--r-- 1.3 KiB
08eac3b3 — ajk Modified FTP configuration 8 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
//KFVSAM   JOB KFVSAM,
//  NOTIFY=&SYSUID
//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 DEFINE CLUSTER ( -
            NAME(AK01DATA.CASH.TXNS) -
            VOLUMES(USER01) -
            RECORDSIZE(138 138) -
            KEYS(3 38) -
            RECORDS(100 50) -
            INDEXED UNIQUE ) -
        DATA ( -
            NAME(AK01DATA.CASH.TXNS.DATA) ) -
        INDEX ( -
            NAME(AK01DATA.CASH.TXNS.INDEX) )

 DEFINE ALTERNATEINDEX ( -
            NAME(AK01DATA.CASH.TXNS.AIX1) -
            VOLUMES(USER01) -
            RELATE(AK01DATA.CASH.TXNS) -
            KEYS(91 0) -
            RECORDS(100 50) -
            UNIQUEKEY UPGRADE ) -
        DATA ( -
            NAME(AK01DATA.CASH.TXNS.AIX1.DATA) ) -
        INDEX ( -
            NAME(AK01DATA.CASH.TXNS.AIX1.INDEX) )

 DEFINE PATH ( -
            NAME(AK01DATA.CASH.TXNS.AIX1.PATH) -
            PATHENTRY(AK01DATA.CASH.TXNS.AIX1) )

 BLDINDEX INDATASET(AK01DATA.CASH.TXNS) -
   OUTDATASET(AK01DATA.CASH.TXNS.AIX1)
/*
//STEP2   EXEC PGM=IDCAMS
//MODEL   DD DSNAME=AK01DATA.CASH.BACKUP.TXNS,DISP=(,KEEP),
//           SPACE=(TRK,(0)),UNIT=SYSDA,VOL=SER=USER01,
//           DCB=(RECFM=FB,LRECL=138,BLKSIZE=13800)
//SYSPRINT DD SYSOUT=*
//SYSIN   DD *
 DEFINE GDG ( -
            NAME(AK01DATA.CASH.BACKUP.TXNS) -
            NOEMPTY -
            SCRATCH -
            LIMIT(10) )
/*
//