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