mirror of
https://github.com/moshix/mvs.git
synced 2026-01-13 07:09:40 +00:00
109 lines
3.2 KiB
Plaintext
109 lines
3.2 KiB
Plaintext
//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')
|
|
/*
|
|
// |