-
Notifications
You must be signed in to change notification settings - Fork 51
/
Copy pathcatalogrep.jcl
109 lines (109 loc) · 3.22 KB
/
catalogrep.jcl
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
//jobname JOB your job information
//*
/*JOBPARM LINES=9999
//*
//STEPØØ1Ø EXEC PGM=ICETOOL
//STEPLIB DD DISP=SHR,DSN=only.if.needed
//SYMNAMES DD DISP=SHR,DSN=local.symbol.library(SMFHEADR)
// DD DISP=SHR,DSN=local.symbol.library(SMF65)
// DD DISP=SHR,DSN=local.symbol.library(SMF66)
//INPUT DD DISP=SHR,DSN=local.smf.data.set
//SAVEFILE DD DISP=(NEW,DELETE),DSN=&&SAVEFILE,
// UNIT=SYSALLDA,SPACE=(CYL,(5Ø,1Ø)),
// DSORG=PS,RECFM=VBS,BLKSIZE=Ø
//TOOLMSG DD SYSOUT=* ICETOOL MESSAGES
//DFSMSG DD SYSOUT=* DFSORT MESSAGES
//SYMNOUT DD SYSOUT=*
//REPORT65 DD SYSOUT=*
//REPORT66 DD SYSOUT=*
//TOOLIN DD *
COPY FROM(INPUT) USING(CPY1)
/*
//CPY1CNTL DD *
OPTION SPANINC=RC4,VLSHRT
OUTFIL FNAMES=SAVEFILE,
INCLUDE=(SMFXRTY,EQ,65,OR,SMFXRTY,EQ,SMFØ66)
OUTFIL FNAMES=REPORT65,CONVERT,
INCLUDE=(SMFXRTY,EQ,SMFØ65),
OUTREC=(1:SMFXDTE,EDIT=(TTTT/TT/TT),12:SMFXTME,TM1,
EDIT=(TT:TT:TT),22:SMF65JNM,
34:SMF65SUB,CHANGE=(6,C'IN',C'INSERT',
C'DE',C'DELETE',
C'UP',C'UPDATE'),
NOMATCH=(C'??????'),
43:SMF65ENM,89:SMF65TYP,
CHANGE=(37,C'A',C'NON-VSAM DATA SET ',
C'B',C'GENERATION DATA GROUP BASE ',
C'C',C'CLUSTER ',
C'D',C'DATA SET ',
C'E',C'VSAM EXTENSION RECORD ',
C'F',C'FREE SPACE ',
C'G',C'ALTERNATE INDEX ',
C'H',C'ACTIVE GENERATION DATA SET (GDS) ',
C'I',C'INDEX ',
C'J',C'GDG EXTENSION RECORD ',
C'K',C'VSAM VOLUME RECORD (VVR) ',
C'L',C'LIBRARY CONTROL SYSTEM LIBRARY RECORD',
C'M',C'MASTER CATALOG ',
C'N',C'NON-VSAM HEADER RECORD ',
C'O',C'OBJECT ACCESS METHOD (OAM) NON-VSAM ',
C'P',C'PAGE SPACE ',
C'Q',C'VVR HEADER ',
C'R',C'PATH ',
C'T',C'TRUE NAME RECORD ',
C'U',C'USER CATALOG ',
C'V',C'VOLUME ',
C'W',C'LIBRARY CONTROL SYSTEM VOLUME ',
C'X',C'ALIAS ',
C'Y',C'UPGRADE ',
C'Z',C'VVR HEADER PRIMARY ',
X'ØØ',C'NORMAL NON-VSAM RECORD ',
X'Ø1',C'JES3 RECORD '),
NOMATCH=(C'?????? UNKNOWN RECORD TYPE ??????')),
HEADER2=(1:DATE,35:'OUR COMPANY NAME GOES HERE',79:TIME,/,
39:'ICF CATALOG ACTVITY RPT',/,/,
4:'DATE',14:'TIME',22:'JOBNAME',34:'ACTION',
49:'DATA SET NAME')
OUTFIL FNAMES=REPORT66,CONVERT,
INCLUDE=(SMFXRTY,EQ,SMFØ66),
OUTREC=(1:SMFXDTE,EDIT=(TTTT/TT/TT),12:SMFXTME,TM1,
EDIT=(TT:TT:TT),22:SMF66JNM,
34:SMF65SUB,CHANGE=(6,C'IN',C'INSERT',
C'DE',C'DELETE',
C'UP',C'UPDATE'),
NOMATCH=(C'??????'),
43:SMF66ENM,89:SMF66TYP,
CHANGE=(37,C'A',C'NON-VSAM DATA SET ',
C'B',C'GENERATION DATA GROUP BASE ',
C'C',C'CLUSTER ',
C'D',C'DATA SET ',
C'E',C'VSAM EXTENSION RECORD ',
C'F',C'FREE SPACE ',
C'G',C'ALTERNATE INDEX ',
C'H',C'ACTIVE GENERATION DATA SET (GDS) ',
C'I',C'INDEX ',
C'J',C'GDG EXTENSION RECORD ',
C'K',C'VSAM VOLUME RECORD (VVR) ',
C'L',C'LIBRARY CONTROL SYSTEM LIBRARY RECORD',
C'M',C'MASTER CATALOG ',
C'N',C'NON-VSAM HEADER RECORD ',
C'O',C'OBJECT ACCESS METHOD (OAM) NON-VSAM ',
C'P',C'PAGE SPACE ',
C'Q',C'VVR HEADER ',
C'R',C'PATH ',
C'T',C'TRUE NAME RECORD ',
C'U',C'USER CATALOG ',
C'V',C'VOLUME ',
C'W',C'LIBRARY CONTROL SYSTEM VOLUME ',
C'X',C'ALIAS ',
C'Y',C'UPGRADE ',
C'Z',C'VVR HEADER PRIMARY ',
X'ØØ',C'NORMAL NON-VSAM RECORD ',
X'Ø1',C'JES3 RECORD '),
NOMATCH=(C'?????? UNKNOWN RECORD TYPE ??????')),
HEADER2=(1:DATE,35:'OUR COMPANY NAME GOES HERE',79:TIME,/,
39:'ICF CATALOG ACTVITY RPT',/,/,
4:'DATE',14:'TIME',22:'JOBNAME',34:'ACTION',
49:'DATA SET NAME')
/*
//