-
Notifications
You must be signed in to change notification settings - Fork 51
/
SMFreport65.jcl
110 lines (110 loc) · 4.95 KB
/
SMFreport65.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
110
//MOSHIX3 JOB (MOSHIX),'REPORT 65',MSGCLASS=H,
// NOTIFY=MOSHIX,REGION=35M,CLASS=A
/*JOBPARM LINES=9999
//*
//STEP0010 EXEC PGM=ICETOOL
//*** STEPLIB DD DISP=SHR,DSN=ONLY.IF.NEEDED
//SYMNAMES DD DISP=SHR,DSN=MOSHIX.WORK.SMF(SMFHDR)
// DD DISP=SHR,DSN=MOSHIX.WORK.SMF(SMF65)
// DD DISP=SHR,DSN=MOSHIX.WORK.SMF(SMF66)
//INPUT DD DISP=SHR,DSN=MOSHIX.SMFDUMP2
//SAVEFILE DD DISP=(NEW,DELETE),DSN=&&SAVEFILE,
// UNIT=SYSDA,SPACE=(CYL,(50,10)),
// DSORG=PS,RECFM=VBS,BLKSIZE=0
//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,SMF066)
OUTFIL FNAMES=REPORT65,CONVERT,
INCLUDE=(SMFXRTY,EQ,SMF065),
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'00',C'NORMAL NON-VSAM RECORD ',
X'01',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,SMF066),
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-VSA ',
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'00',C'NORMAL NON-VSAM RECORD ',
X'01',C'JES3 RECORD '),
NOMATCH=(C'?????? UNKNOWN RECORD TYPE ??????')),
HEADER2=(1:DATE,35:'MOSHIX CHANNEL ',79:TIME,/,
39:'ICF CATALOG ACTVITY RPT',/,/,
4:'DATE',14:'TIME',22:'JOBNAME',34:'ACTION',
49:'DATA SET NAME')
/*
//