MACRO 00001000
IKQACB &DSECT=YES 00002000
PUSH PRINT 00002100
AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
PRINT OFF,NOGEN 00002300
.ACC01 ANOP 00002400
* VSAM - IKQACB - 5745-SC-VSM - REL. 31.0 INTERNAL VERSION 2.26 00003000
AIF ('&DSECT' EQ 'NO').ACBNODS 00004000
IKQACB DSECT 00005000
AGO .ACBDSCT 00006000
.ACBNODS ANOP 00007000
IKQACB DS 0D 00008000
.ACBDSCT ANOP 00009000
ACBST EQU * START ACB 30.04.74 00010000
ACBID DS XL1 ACB IDENTIFIER='A0' 00011000
ACBIDD EQU X'A0' ACB EQUATE 00012000
ACBIDVAL EQU X'A0' ACB EQUATE 00013000
ACBSTYP DS XL1 SUBTYPE FIELD 00014000
ACBLEN DS 0H ACB LENGTH IN BYTES 00015000
ACBLENG DS H ACB LENGTH IN BYTES 00016000
ACBAMBL DS A ADDRESS OF AMB LIST 00017000
ACBAM0 DS A POINTER TO AM/0 CODE 00018000
ACBACT DS XL1 ACTIVE TEST & SET BYTE 00019000
ACBINFLG DS XL1 CAT. RECOVERY FLG BYTE 00020000
ACBSCRA EQU X'80' CRA FLAG SYSTEM 00021000
ACBUCRA EQU X'40' CRA FLAG USER 00022000
* EQU X'20' RESERVED FOR CRA 00023000
* EQU X'10' RESERVED FOR CRA 00024000
ACBSTSKP EQU X'08' SKIP UPDATING STATISTIC 00025000
* EQU X'04' RESERVED FOR CMS 00026000
* EQU X'02' RESERVED FOR CMS 00027000
* EQU X'01' RESERVED FOR CMS 00028000
ACBDBUF DS 0XL2 NUMBER OF DATA BUFFERS 00029000
ACBBUFND DS XL2 NUMBER OF DATA BUFFERS 00030000
ACBIBUF DS 0XL2 NUMBER OF INDEX BUFFERS 00031000
ACBBUFNI DS XL2 NUMBER OF INDEX BUFFERS 00032000
ACBMACRF DS 0BL2 MACRF 00033000
ACBMACR1 DS BL1 MACRF FIRST BYTE 00034000
* 00035000
* FIRST MACRF BYTE EQUATES * 00036000
ACBKEY EQU X'80' ACCESS DATA VIA IX 00037000
ACBADD EQU X'40' ACCESS WITHOUT IX 00038000
ACBADR EQU X'40' ACCESS WITHOUT IX 00039000
ACBCNV EQU X'20' CONTROL INTERVAL PROC. 00040000
ACBSEQ EQU X'10' SEQUENTIAL PROC. 00041000
ACBDIR EQU X'08' DIRECT PROCESSING 00042000
ACBIN EQU X'04' GET 00043000
ACBOUT EQU X'02' PUT 00044000
ACBUBF EQU X'01' USER BUFFERS 00045000
* * 00046000
ACBMACR2 DS BL1 MACRF SECOND BYTE 00047000
* 00048000
* SECOND MACRF BYTE EQUATES * 00049000
* EQU X'80' RESERVED 00050000
* EQU X'40' RESERVED 00051000
ACBSKP EQU X'20' SKIP SEQ ACCESS 00052000
ACBRST EQU X'10' REUSABLE DATA SET 00053000
ACBAIX EQU X'08' AIX PROCESSING 00054000
* EQU X'04' RESERVED 00055000
* EQU X'02' RESERVED 00056000
* EQU X'01' RESERVED FOR OPEN AMBL 00057000
* * 00058000
ACBDOSID DS XL1 DOS DTF IDENTIFIER 00059000
ACBDTFID EQU X'28' DTF TYPE FOR AM/0 00060000
ACBOFLGS DS BL1 OPEN / CLOSE FLAGS 00061000
* 00062000
* OPEN AND CLOSE FLAGS * 00063000
ACBVOLMT EQU X'80' VERIFY VOLUME MOUNTED 00064000
ACBVMSG EQU X'40' MESSAGE REQUESTED BIT 00065000
ACBEOV EQU X'20' EOV DETECTS COMPLETED 00066000
ACBOPEN EQU X'10' ACB IS OPEN 00067000
ACBCAT EQU X'08' ACB FOR AM0 CAT 00068000
ACBEXFG EQU X'04' USER EXIT FLAG 00069000
* EQU X'02' RESERVED 00070000
ACBKEYOK EQU X'01' KEY PROCESSING OK FOR THIS ACB 00071000
* * 00072000
ACBNST DS 0XL1 NUMBER OF STRINGS 00073000
ACBSTRNO DS XL1 NUMBER OF STRINGS 00074000
ACBERFLG DS XL1 ERROR FLAGS 00075000
* 00076000
* OPEN ERROR RETURN CODES * 00077000
ACBOALR EQU X'04' 4 ACB ALREADY OPEN 00078000
ACBOLLUB EQU X'0E' 14 LUB TOO LARGE FOR PARTITION 00079000
ACBONJIB EQU X'0F' 15 NO JIB SPACE FOR EXTENTS 00080000
ACBOLIGN EQU X'11' 17 LUB WAS ASSGN IGNORE 00081000
ACBOLUNA EQU X'12' 18 LUB WAS ASSGN UNASSIGN 00082000
ACBOCEXT EQU X'22' 34 VOLSER ON CAT NOT DLBL/EX 00083000
ACBOCDLD EQU X'32' 50 UNABLE TO CDLOAD 00084000
ACBONMNT EQU X'50' 80 UNABLE TO MOUNT VOLUME 00085000
ACBONCRA EQU X'5C' 92 CRA VOLUME NOT MOUNTED 00086000
ACBOIERR EQU X'60' 96 UNUSABLE INP.-DATA SET 00087000
ACBOUEMP EQU X'64' 100 EMPTY UPGRADE AIX 00088000
ACBOTMST EQU X'68' 104 TIME STAMP MISMATCH VOL,CAT 00089000
ACBOTIME EQU X'6C' 108 TIMESTAMP MISMATCH REL DS 00090000
ACBOEMPT EQU X'6E' 110 OPEN EMPTY D/S FOR READ ONLY 00091000
ACBODSNC EQU X'74' 116 DS NOT CLOSED 00092000
ACBODEVT EQU X'75' 117 DEV NO 2314,3330,2305 TYPE 00093000
ACBONDLB EQU X'80' 128 DDNAME NOT FOUND (DLBL) 00094000
ACBOIOER EQU X'84' 132 IO ERROR READIN LABEL INFO CY 00095000
ACBONVRT EQU X'88' 136 NO VIM FOR CB-S OR WORK AREA 00096000
ACBOIOCA EQU X'90' 144 IO ERROR READ/WRITE CAT ENTRY 00097000
ACBONCAT EQU X'94' 148 NO CAT ENTRY FOUND 00098000
ACBOSECU EQU X'98' 152 SECURITY VIRIFICATION FAILED 00099000
ACBOPARC EQU X'A0' 160 CONFLICTING PARA ACB/CT 00100000
ACBOKBUF EQU X'A1' 161 MIXED USER BUFFER NOT CNV 00101000
ACBOIOVL EQU X'A4' 164 IO ERROR READ VOL LABEL 00102000
ACBONAVA EQU X'A8' 168 DATA SET NOT AVAL LOAD/EXCLS 00103000
ACBONOCT EQU X'B4' 180 CATALOG NOT OPEN, EXIST 00104000
ACBOACT EQU X'BC' 188 ACB WAS ACTIVE 00105000
ACBOOERR EQU X'C0' 192 UNUSABLE OUTP-DATA SET 00106000
ACBOPEMP EQU X'C4' 196 ACCESS VIA EMPTY PATH 00107000
ACBODSCB EQU X'C8' 200 DSCB FORMAT 4 ERROR 00108000
ACBOCNVP EQU X'E0' 224 INV. CNTR. INTV. PROC. 00109000
ACBONRST EQU X'E8' 232 NON-REUSE.IS NOT EMPTY 00110000
ACBOCTER EQU X'FF' 255 UNEXPECTED ERR.CODE 00111000
* 00112000
* CLOSE ERROR RETURN CODES * 00113000
ACBCALR EQU X'04' ACB WAS NOT OPEN 00114000
ACBCNVRT EQU X'88' 136 NO VIM FOR WORK AREA 00115000
ACBCIOCA EQU X'90' 144 IO ERROR READ WRITE CAT ENTRY 00116000
ACBCNCAT EQU X'94' 148 NO CAT ENTRY FOUND 00117000
ACBCIOER EQU X'B8' 184 IO ERROR COMPLETING REQUESTS 00118000
ACBCBUSY EQU X'BC' 188 ACB BUSY 00119000
* * 00120000
ACBAMBUF DS 1F CORE FOR BUFFERS 00121000
ACBDDNM DS CL8 DDNAME 00122000
ACBPRTCT DS A PTR TO PASSWRD 00123000
ACBUAPTR DS A PTR TO USER WRK AREA 00124000
ACBBFPL DS A PTR TO FIRST DATA BUFFER 00125000
ACBEXLST DS A USER EXIT LIST PTR 00126000
ACBNXT DS A RESERVED 00127000
DS XL1 RESERVED FOR BSTRNO 00128000
DS XL1 RESERVED 00129000
ACBMSGLN DS H MESSAGE AREA LENGTH 00130000
ACBMSGAR DS A MESSAGE AREA 00131000
DS A RESERVED 00132000
ACBEND DS 0F END OF ACB 00133000
* END OF VSAM ACB * 00134000
POP PRINT 00134100
MEND 00135000