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