Table of Contents

IKQACB Source

References

Source Listing

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