1 //DEFAIX1 JOB 'JAY MOSELEY',CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A JOB 120
2 //IDCAMS EXEC PGM=IDCAMS,REGION=4096K 00020000
3 //TIMECLOK DD DSN=PAYROLL.TIMECLOK.FILE,DISP=SHR 00030000
4 //SYSPRINT DD SYSOUT=A 00040000
5 //SYSIN DD * 00050000
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 1
00060000
/* DELETE ALTERNATE INDEX, IF IT EXISTS */ 00070000
00080000
DELETE MVS801.STUDENT.AIX ALTERNATEINDEX PURGE 00090000
IDC3012I ENTRY MVS801.STUDENT.AIX NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6 IDC0551I **ENTRY MVS801.STUDENT.AIX NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
00100000
/* DEFINE ALTERNATE INDEX WITH UNIQUE KEYS -> KSDS */ 00110000
00120000
DEFINE ALTERNATEINDEX ( - 00130000
NAME(MVS801.STUDENT.AIX) - 00140000
RELATE(MVS801.STUDENT.FILE) - 00150000
VOLUMES(MVS801) - 00160000
RECORDSIZE(37 37) - 00170000
TRACKS(10 5) - 00180000
KEYS(22 10) - 00190000
UNIQUEKEY - 00200000
UPGRADE ) - 00210000
DATA ( - 00220000
NAME(MVS801.STUDENT.AIX.DATA) ) - 00230000
INDEX ( - 00240000
NAME(MVS801.STUDENT.AIX.INDEX) ) 00250000
IDC0508I DATA ALLOCATION STATUS FOR VOLUME MVS801 IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME MVS801 IS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
00260000
IF LASTCC = 0 THEN 00270000
LISTCAT ALL LEVEL(MVS801.STUDENT) 00280000
AIX ----------- MVS801.STUDENT.AIX
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----MVS801.STUDENT.AIX.DATA
INDEX----MVS801.STUDENT.AIX.INDEX
CLUSTER--MVS801.STUDENT.FILE
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 2
ATTRIBUTES
UPGRADE
DATA ---------- MVS801.STUDENT.AIX.DATA
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------MVS801.STUDENT.AIX
ATTRIBUTES
KEYLEN----------------22 AVGLRECL--------------37 BUFSPACE-----------66048 CISIZE-------------32768
RKP--------------------5 MAXLRECL--------------37 EXCPEXIT----------(NULL) CI/CA------------------6
AXRKP-----------------10
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE SPANNED UNIQUEKEY
STATISTICS
REC-TOTAL--------------0 SPLITS-CI--------------0 EXCPS------------------0
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'0000000000000000'
REC-RETRIEVED----------0 FREESPC-BYTES-----393216
ALLOCATION
SPACE-TYPE---------TRACK HI-ALLOC-RBA------393216
SPACE-PRI-------------10 HI-USED-RBA------------0
SPACE-SEC--------------5
VOLUME
VOLSER------------MVS801 PHYREC-SIZE---------4096 HI-ALLOC-RBA------393216 EXTENT-NUMBER----------1
DEVTYPE------X'3010200E' PHYRECS/TRK-----------10 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------5
EXTENTS:
LOW-CCHH-----X'00030003' LOW-RBA----------------0 TRACKS----------------10
HIGH-CCHH----X'0003000C' HIGH-RBA----------393215
INDEX --------- MVS801.STUDENT.AIX.INDEX
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------MVS801.STUDENT.AIX
ATTRIBUTES
KEYLEN----------------22 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------5 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------46
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
NOREUSE
STATISTICS
REC-TOTAL--------------0 SPLITS-CI--------------0 EXCPS------------------0 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------0
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 3
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------2
REC-UPDATED------------0 FREESPACE-%CA----------0 X'0000000000000000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC-BYTES------23552 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-ALLOC-RBA-------23552
SPACE-PRI--------------1 HI-USED-RBA------------0
SPACE-SEC--------------1
VOLUME
VOLSER------------MVS801 PHYREC-SIZE----------512 HI-ALLOC-RBA-------23552 EXTENT-NUMBER----------1
DEVTYPE------X'3010200E' PHYRECS/TRK-----------46 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'0003000D' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'0003000D' HIGH-RBA-----------23551
CLUSTER ------- MVS801.STUDENT.FILE
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----MVS801.STUDENT.FILE.DATA
INDEX----MVS801.STUDENT.FILE.INDEX
AIX------MVS801.STUDENT.AIX
DATA ---------- MVS801.STUDENT.FILE.DATA
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--MVS801.STUDENT.FILE
ATTRIBUTES
KEYLEN----------------10 AVGLRECL--------------80 BUFSPACE-----------25088 CISIZE-------------12288
RKP--------------------0 MAXLRECL--------------80 EXCPEXIT----------(NULL) CI/CA------------------3
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE NONSPANNED
STATISTICS
REC-TOTAL-------------97 SPLITS-CI--------------0 EXCPS------------------6
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED-----------97 FREESPACE-%CA----------0 X'84C7A8BEEA070000'
REC-RETRIEVED--------135 FREESPC-BYTES------24576
ALLOCATION
SPACE-TYPE---------TRACK HI-ALLOC-RBA-------36864
SPACE-PRI--------------1 HI-USED-RBA--------36864
SPACE-SEC--------------1
VOLUME
VOLSER------------MVS801 PHYREC-SIZE---------4096 HI-ALLOC-RBA-------36864 EXTENT-NUMBER----------1
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 4
DEVTYPE------X'3010200E' PHYRECS/TRK-----------10 HI-USED-RBA--------36864 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00030001' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00030001' HIGH-RBA-----------36863
INDEX --------- MVS801.STUDENT.FILE.INDEX
IN-CAT --- UCMVS801
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--MVS801.STUDENT.FILE
ATTRIBUTES
KEYLEN----------------10 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------0 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------46
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
NOREUSE
STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS------------------6 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------1
REC-UPDATED------------0 FREESPACE-%CA----------0 X'84C7A8BEEA070000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC-BYTES------23040 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-ALLOC-RBA-------23552
SPACE-PRI--------------1 HI-USED-RBA----------512
SPACE-SEC--------------1
VOLUME
VOLSER------------MVS801 PHYREC-SIZE----------512 HI-ALLOC-RBA-------23552 EXTENT-NUMBER----------1
DEVTYPE------X'3010200E' PHYRECS/TRK-----------46 HI-USED-RBA----------512 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00030002' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00030002' HIGH-RBA-----------23551
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 5
THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------1
ALIAS -----------------0
CLUSTER ---------------1
DATA ------------------2
GDG -------------------0
INDEX -----------------2
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------0
SPACE -----------------0
USERCATALOG -----------0
TOTAL -----------------6
THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
00290000
/* DELETE ALTERNATE INDEX, IF IT EXISTS */ 00300000
00310000
DELETE PAYROLL.TIMECLOK.AIX ALTERNATEINDEX PURGE 00320000
IDC3012I ENTRY PAYROLL.TIMECLOK.AIX NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6 IDC0551I **ENTRY PAYROLL.TIMECLOK.AIX NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
00330000
/* DEFINE ALTERNATE INDEX WITH NONUNIQUE KEYS -> ESDS */ 00340000
00350000
DEFINE ALTERNATEINDEX ( - 00360000
NAME(PAYROLL.TIMECLOK.AIX) - 00370000
RELATE(PAYROLL.TIMECLOK.FILE) - 00380000
FILE(TIMECLOK) - 00390000
VOLUMES(MVS803 MVS804) - 00400000
RECORDSIZE(18 900) - 00410000
TRACKS(15 15) - 00420000
KEYS(12 9) - 00430000
NOUPGRADE ) - 00440000
DATA ( - 00450000
NAME(PAYROLL.TIMECLOX.AIX.DATA) ) - 00460000
INDEX ( - 00470000
NAME(PAYROLL.TIMECLOX.AIX.INDEX) ) 00480000
IDC0508I DATA ALLOCATION STATUS FOR VOLUME MVS803 IS 0
IDC0508I DATA ALLOCATION STATUS FOR VOLUME MVS804 IS 0
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 6
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME MVS803 IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME MVS804 IS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
00490000
IF LASTCC = 0 THEN 00500000
LISTCAT ALL LEVEL(PAYROLL.TIMECLOX) 00510000
DATA ---------- PAYROLL.TIMECLOX.AIX.DATA
IN-CAT --- UCMVOL
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------PAYROLL.TIMECLOK.AIX
ATTRIBUTES
KEYLEN----------------12 AVGLRECL--------------18 BUFSPACE-----------33280 CISIZE-------------16384
RKP--------------------5 MAXLRECL-------------900 EXCPEXIT----------(NULL) CI/CA-----------------37
AXRKP------------------9
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE SPANNED NONUNIQKEY
STATISTICS
REC-TOTAL--------------0 SPLITS-CI--------------0 EXCPS------------------0
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'0000000000000000'
REC-RETRIEVED----------0 FREESPC-BYTES-----606208
ALLOCATION
SPACE-TYPE------CYLINDER HI-ALLOC-RBA------606208
SPACE-PRI--------------1 HI-USED-RBA------------0
SPACE-SEC--------------1
VOLUME
VOLSER------------MVS803 PHYREC-SIZE---------4096 HI-ALLOC-RBA------606208 EXTENT-NUMBER----------1
DEVTYPE------X'3010200E' PHYRECS/TRK-----------10 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA-------------15
EXTENTS:
LOW-CCHH-----X'00040000' LOW-RBA----------------0 TRACKS----------------15
HIGH-CCHH----X'0004000E' HIGH-RBA----------606207
VOLUME
VOLSER------------MVS804 PHYREC-SIZE---------4096 HI-ALLOC-RBA-----------0 EXTENT-NUMBER----------0
DEVTYPE------X'3010200E' PHYRECS/TRK-----------10 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG--------CANDIDATE TRACKS/CA-------------15
INDEX --------- PAYROLL.TIMECLOX.AIX.INDEX
IN-CAT --- UCMVOL
HISTORY
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 7
OWNER-IDENT-------(NULL) CREATION----------74.008
RELEASE----------------2 EXPIRATION--------00.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------PAYROLL.TIMECLOK.AIX
ATTRIBUTES
KEYLEN----------------12 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------5 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------46
SHROPTNS(1,3) RECOVERY SUBALLOC NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
NOREUSE
STATISTICS
REC-TOTAL--------------0 SPLITS-CI--------------0 EXCPS------------------0 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------0
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------6
REC-UPDATED------------0 FREESPACE-%CA----------0 X'0000000000000000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC-BYTES------23552 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-ALLOC-RBA-------23552
SPACE-PRI--------------1 HI-USED-RBA------------0
SPACE-SEC--------------1
VOLUME
VOLSER------------MVS803 PHYREC-SIZE----------512 HI-ALLOC-RBA-------23552 EXTENT-NUMBER----------1
DEVTYPE------X'3010200E' PHYRECS/TRK-----------46 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00030002' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00030002' HIGH-RBA-----------23551
VOLUME
VOLSER------------MVS804 PHYREC-SIZE----------512 HI-ALLOC-RBA-----------0 EXTENT-NUMBER----------0
DEVTYPE------X'3010200E' PHYRECS/TRK-----------46 HI-USED-RBA------------0 EXTENT-TYPE--------X'40'
VOLFLAG--------CANDIDATE TRACKS/CA--------------1
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 19:30:36 01/08/74 PAGE 8
THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------0
ALIAS -----------------0
CLUSTER ---------------0
DATA ------------------1
GDG -------------------0
INDEX -----------------1
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------0
SPACE -----------------0
USERCATALOG -----------0
TOTAL -----------------2
THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8
