*%GOTO ACBBSL1 ; 00060029 * /* 00070029 MACRO 00080029 IFGACB &DSECT=YES,&AM= 00090029 AGO .ACBDESC 00092029 * */ 00094029 * /* CHANGE LEVEL = 8 @ZA34940*/ 00100040 * /* DATE OF LAST CHANGE = 13 NOV 78 ( 78*317 ) @ZA34940*/ 00130040 * /* */ 00200029 * /* 00210029 .ACBDESC ANOP */ 00220029 * /******************************************************************/ 00240029 * /* */ 00242029 * /* ACCESS METHOD CONTROL BLOCK (ACB) */ 00292029 * /* */ 00294029 * /* THE ACB DESCRIBES THE CURRENT USE OF A VSAM DATA SET. */ 00300029 * /* IN MVS, THE ACB DESCRIBES THE CURRENT USE OF A DATA SET */ 00310040 * /* WHEN THE JOB ENTRY SUBSYSTEM (JES) IS BEING USED FOR */ 00320029 * /* INPUT/OUTPUT CONTROL. IN VTAM, THE ACB REPRESENTS A */ 00330029 * /* PROCESSING APPLICATION. */ 00332029 * /* */ 00340029 * /* THE ACB IS CREATED BY THE USER WITH THE ACB MACRO */ 00350029 * /* INSTRUCTION. OTHER INFORMATION MAY BE ADDED FROM THE */ 00360029 * /* DD STATEMENT. IT IS ACCESSED THROUGH THE RPLDACB FIELD */ 00370029 * /* IN THE REQUEST PARAMETER LIST. */ 00380029 * /* */ 00390029 * /* THE CONTROL BLOCK CONSISTS OF AN AREA COMMON TO @ZA34940*/ 00400040 * /* ALL USERS, A CONTIGUOUS EXTENSION CREATED FOR @ZA34940*/ 00406040 * /* VSAM AND A CONTIGUOUS EXTENSION CREATED FOR VTAM. @ZA34940*/ 00412040 * /* THE VTAM EXTENSION IS GENERATED IF 'AM=VTAM' IS @ZA34940*/ 00418040 * /* CODED IN THE ACB MACRO. @ZA34940*/ 00424040 * /* */ 00440029 * /* CHANGE ACTIVITY */ 00450029 * /* C87700,155146 @ZM30033 */ 00460029 * /* CONTROL BLOCKS IN COMMON SUPPORT @ZA16012 */ 00465029 * /* MVS GUSHER SUPPORT @G29ASRL */ 00466029 * /* CBMM SPLIT SUPPORT @ZA34940 */ 00467040 * /* @ZA26638 */ 00468029 * /* */ 00470029 * /******************************************************************/ 00530029 * /* 00540029 AGO .ACBBAL 00550029 * */ 00560029 * /* */ 00650029 * /* ACB DIAGRAM */ 00700029 * /* */ 00750029 * /* 0 _______________________________________________ */ 00800029 * /* | | | | */ 00850029 * /* | ACBID | ACBSTYP | ACBLENG | */ 00900029 * /* 4 |___________|___________|_______________________| */ 00950029 * /* | | @X04SVHS*/ 01000029 * /* | ACBAMBL/ACBJWA/ACBIBCT/ACBAMWAP | @G29ASRL*/ 01050029 * /* 8 |_______________________________________________| */ 01100029 * /* | | */ 01150029 * /* | ACBINRTN | */ 01200029 * /* 12 |_______________________________________________| */ 01250029 * /* | ACBMACRF | | | @X04SVHS*/ 01300029 * /* | ACBMACR1 | ACBMACR2 | ACBBSTNO | ACBSTRNO | @X04SVHS*/ 01350029 * /* 16 |___________|___________|___________|___________| @X04SVHS*/ 01400029 * /* | | | */ 01450029 * /* | ACBBUFND | ACBBUFNI | */ 01500029 * /* 20 |_______________________|_______________________| */ 01550029 * /* | ACBBUFPL | @X04SVHS*/ 01600029 * /* | ACBMACR3 | ACBMACR4 | ACBJBUF | @X04SVHS*/ 01650029 * /* 24 |___________|___________|_______________________| @X04SVHS*/ 01700029 * /* | | | | */ 01750029 * /* | ACBRECFM | ACBCCTYP | ACBDSORG | */ 01800029 * /* 28 |___________|___________|_______________________| */ 01850029 * /* | | */ 01900029 * /* | ACBMSGAR | @X04SVHS*/ 01950029 * /* 32 |_______________________________________________| */ 01960029 * /* | | */ 01970029 * /* | ACBPASSW | */ 02100029 * /* 36 |_______________________________________________| */ 02150029 * /* | | */ 02200029 * /* | ACBEXLST/ACBUEL | */ 02250029 * /* 40 |_______________________________________________| __ B */ 02300029 * /* | OFFSET 40 BEFORE OPEN | | E */ 02350029 * /* | | | F */ 02400029 * /* |_ ACBDDNM _| | O */ 02450029 * /* | ( 8 BYTES ) | | R */ 02500029 * /* | | | E */ 02550029 * /* 48 |_______________________________________________| | */ 02600029 * /* | | | ACBINFLG | | O */ 02650029 * /* | ACBOFLGS | ACBERFLG | ACBINFL1 | ACBINFL2 | | P */ 02750029 * /* |___________|___________|___________|___________| __| E */ 02850029 * /* N */ 02950029 * /* OFFSET 40 AFTER OPEN */ 03000029 * /* */ 03050029 * /* 40 _______________________________________________ __ A */ 03100029 * /* | | | | | F */ 03150029 * /* | ACBTIOT | ACBINFL | ACBAMETH | | T */ 03200029 * /* 44 |_______________________|___________|___________| | E */ 03250029 * /* | | | | R */ 03300029 * /* | ACBERFL | ACBDEB | | */ 03350029 * /* 48 |___________|___________________________________| | O */ 03400029 * /* | | | | | P */ 03450029 * /* | ACBOFLGS | ACBERFLG | | | E */ 03500029 * /* |___________|___________|_______________________| __| N */ 03550029 * /* */ 03600029 * /* 52 _______________________________________________ */ 03602029 * /* | | */ 03610029 * /* | ACBUJFCB | */ 03620029 * /* 56 |_______________________________________________| */ 03630029 * /* | | */ 03800029 * /* | ACBBUFSP | */ 03850029 * /* 60 |_______________________________________________| */ 03900029 * /* | | | */ 03950029 * /* | ACBBLKSZ/ACBMSGLN | ACBLRECL | @X04SVHS*/ 04000029 * /* 64 |_____________________|_________________________| */ 04050029 * /* | | */ 04100029 * /* | ACBUAPTR | */ 04150029 * /* 68 |_______________________________________________| */ 04200029 * /* | | */ 04250029 * /* | ACBCBMWA | */ 04300029 * /* 72 |_______________________________________________| */ 04350029 * /* | | */ 04354029 * /* | ACBAPID/ACBAMAX | @G29ASRL*/ 04356029 * /* |_______________________________________________| */ 04358029 * /* */ 04360029 * /* THE VTAM EXTENSION BEGINS AT OFFSET 76. */ 04370029 * /* IT IS CONTIGUOUS TO THE COMMON AREA ABOVE. */ 04380029 * /* */ 04390029 * /* 76 _______________________________________________ */ 04500029 * /* | | X03004*/ 04510029 * /* | ACBRTN | X03004*/ 04520029 * /* 80 | _________________________| X03004*/ 04530029 * /* | | | X03004*/ 04540029 * /* | | * | X03004*/ 04542029 * /* 84 |_____________________|_________________________| X03004*/ 04544029 * /* | | X03004*/ 04544429 * /* | * | X03004*/ 04544829 * /* |_______________________________________________| X03004*/ 04546029 * /* */ 04550029 * /* ACB DECLARATION */ 04600029 * /* */ 04650029 *%ACBBSL1: ; 04700029 * DCL 1 IFGACB BASED , /* LEVEL ONE DECLARE */ 04750029 * 2 ACBCOMN, /* ACB COMMON SECTION 04760029 * X03004*/ 04770029 * 4 ACBID PTR(8), /* ACB IDENTIFIER */ 04800029 * % ACBIDVAL = '''A0''X'; /* IDENTIFIER VALUE */ 04810029 * 4 ACBSTYP PTR(8), /* ACB SUBTYPE */ 04850029 * % ACBSVSAM = '''10''X'; /* VSAM SUBTYPE @X04SVHS*/ 04860029 * % ACBSVRP = '''11''X'; /* VRP SUBTYPE @X04SVHS*/ 04870029 * % ACBSVTAM = '''20''X'; /* VTAM SUBTYPE @X04SVHS*/ 04880029 * % ACBS3540 = '''40''X'; /* 3540 SUBTYPE @X04SVHS*/ 04890029 * 4 ACBLENG FIXED(15), /* ACB LENGTH IN BYTES */ 04900029 * 5 ACBLENG2 FIXED(15), /* ACB LENGTH IN BYTES */ 04950029 * 6 ACBLEN2 FIXED(15), /* ACB LENGTH IN BYTES 05000029 * X03004*/ 05050029 * 4 ACBAMBL PTR(31), /* AMB LIST ADDRESS */ 05070029 * 5 ACBJWA PTR(31), /* JES WORKAREA ADDRESS */ 05150029 * 6 ACBIBCT PTR(31), /* IBCT ADDRESS */ 05200029 * 7 ACBAMWAP PTR(31), /* ACCESS METHOD WORKAREA 05300029 * POINTER @G29ASRL*/ 05400029 * 4 ACBINRTN PTR(31), /* INTERFACE ROUTINE 05650029 * ADDRESS */ 05700029 * 4 ACBMACRF BIT(16), /* MACRF FLAGS */ 05750029 * 5 ACBMACR1 BIT(8), /* MACRF FIRST BYTE */ 05770029 * 6 ACBKEY BIT(1), /* ACCESS DATA VIA INDEX*/ 05800029 * 6 ACBADR BIT(1), /* ACCESS WITHOUT INDEX */ 05850029 * 7 ACBADD BIT(1), /* SAME AS ABOVE */ 05860029 * 6 ACBCNV BIT(1), /* CONTROL INTERVAL 05900029 * PROCESSING */ 05902029 * 7 ACBBLK BIT(1), /* SAME AS ABOVE */ 05910029 * 6 ACBSEQ BIT(1), /* SEQUENTIAL PROCESSING*/ 05950029 * 6 ACBDIR BIT(1), /* DIRECT PROCESSING */ 06000029 * 6 ACBIN BIT(1), /* GET, READ */ 06050029 * 6 ACBOUT BIT(1), /* PUT, WRITE */ 06100029 * 6 ACBUBF BIT(1), /* USER BUFFERS */ 06150029 * 5 ACBMACR2 BIT(8), /* MACRF SECOND BYTE */ 06170029 * 6 * BIT(3), /* RESERVED @X04SVHS*/ 06200029 * 6 ACBSKP BIT(1), /* SKIP SEQUENTIAL 06300029 * PROCESSING */ 06310029 * 6 ACBLOGON BIT(1), /* LOGON INDICATOR(VTAM) 06320029 * X03004*/ 06330029 * 6 ACBRST BIT(1), /* SET DATA SET TO EMPTY 06350029 * STATE @X04SVHS*/ 06400029 * 6 ACBDSN BIT(1), /* BASIC SUBTASK SHARED 06450029 * CONTROL BLOCK CONNECTION 06460029 * ON COMMON DSNAMES 06470029 * @X04SVHS*/ 06480029 * 6 ACBAIX BIT(1), /* ENTITY TO BE PROCESSED 06500029 * IS AIX OF THE PATH 06550029 * SPECIFIED IN THE GIVEN 06600029 * DDNAME @X04SVHS*/ 06650029 * 4 ACBBSTNO PTR(8), /* NO OF CONCURRENT STRINGS 06700029 * FOR AIX PATH @X04SVHS*/ 06750029 * 4 ACBSTRNO PTR(8), /* NUMBER OF STRINGS 06800029 * @X04SVHS*/ 06850029 * 4 ACBBUFND FIXED(15), /* NUMBER OF BUFFERS 06870029 * REQUESTED FOR DATA */ 06920029 * 4 ACBBUFNI FIXED(15), /* NUMBER OF BUFFERS 06950029 * REQUESTED FOR INDEX */ 07000029 * 4 ACBBUFPL PTR(31), /* JES BUFFER POOL ADDR */ 07100029 * 5 ACBMACR3 BIT(8), /* MACRF THIRD BYTE 07110029 * @X04SVHS*/ 07112029 * 6 * BIT(1), /* RESERVED @X04SVHS*/ 07114029 * 6 ACBLSR BIT(1), /* LOCAL SHARED RESOURCE 07118029 * @X04SVHS*/ 07118429 * 6 ACBGSR BIT(1), /* GLOBAL SHARED RESOURCE 07118829 * @X04SVHS*/ 07119229 * 6 ACBICI BIT(1), /* IMPROVED CONTROL 07119629 * INTERVAL PROCESSING 07119729 * @X04SVHS*/ 07119829 * 6 ACBDFR BIT(1), /* DEFER WRITES @X04SVHS*/ 07119929 * 6 ACBSIS BIT(1), /* SEQUENTIAL INSERT 07120029 * STRATEGY @X04SVHS*/ 07123229 * 6 ACBNCFX BIT(1), /* NFX=0/CFX=1 @X04SVHS*/ 07123629 * 6 * BIT(1), /* RESERVED FOR VSAM */ 07125229 * 5 ACBMACR4 BIT(8), /* RESERVED FOR VSAM */ 07125629 * 5 ACBJBUF FIXED(15), /* NUMBER OF BUFFERS 07126729 * REQUESTED FOR JOURNAL*/ 07130029 * 4 ACBRECFM BIT(8), /* RECORD FORMAT */ 07150029 * 6 ACBRECAF BIT(1), /* JES FORMAT */ 07160029 * 6 * BIT(6), /* RESERVED */ 07161029 * 4 ACBCCTYP BIT(8), /* CONTROL CHARACTER */ 07162029 * 5 ACBTRCID BIT(2), /* 3800 TRANSLATE TABLE 07166029 * @Z40SVHS*/ 07170929 * 5 * BIT(2), /* RESERVED */ 07172029 * 5 ACBASA BIT(4), /* CONTROL CHARACTER 07180029 * TYPE */ 07182029 * % ACBCCASA = '''4''X'; /* ASA CHARACTERS */ 07190029 * % ACBCCMCH = '''2''X'; /* MACHINE CHARACTERS */ 07192029 * 4 ACBOPT BIT(16), /* NON-USER OPTIONS */ 07194029 * 5 ACBDSORG BIT(16), /* MATCH ACBDORGA WITH 07200029 * DCBDSORG */ 07202029 * 6 ACBCROPS BIT(2), /* CHECKPOINT/RESTART 07210029 * OPTIONS */ 07220029 * 7 ACBCRNCK BIT(1), /* NO CHECK FOR MODIFY */ 07230029 * 7 ACBCRNRE BIT(1), /* NO DATA ERASE OR 07240029 * REPOSITION */ 07242029 * 6 ACBDVIND BIT(1), /* DEVICE INDICATOR 07243029 * @ZA26638*/ 07244029 * 7 ACBOPTJ BIT(1), /* 3800 CONTROL CHARACTER 07245029 * PRESENT @ZA26638*/ 07246029 * 6 * BIT(9), /* RESERVED */ 07250029 * 6 ACBDORGA BIT(1), /* ACB INDICATOR */ 07300029 * 6 * BIT(3), /* RESERVED */ 07310029 * 4 ACBMSGAR PTR(31), /* MSG AREA @X04SVHS*/ 07360029 * 4 ACBPASSW PTR(31), /* PASSWORD ADDRESS */ 07550029 * 4 ACBEXLST PTR(31), /* USER EXIT LIST ADDR */ 07600029 * 5 ACBUEL PTR(31), /* SAME AS ABOVE */ 07650029 * /* BEFORE OPEN */ 07750029 * /* (FOR VTAM, ACBDDNM INITIALIZED TO X'FF000000000000') X03004*/ 07760029 * 4 ACBDDNM CHAR(8) BDY(WORD), /* DDNAME */ 07800029 * /* AFTER OPEN */ 07850029 * 5 ACBTIOT FIXED (15), /* TIOT OFFSET */ 07900029 * 5 ACBINFL PTR (8), /* INDICATOR FLAGS */ 07950029 * 5 ACBAMETH PTR (8), /* ACCESS METHOD TYPE */ 07960029 * 6 ACBAM PTR (8), /* ACCESS METHOD TYPE 07962029 * X03004*/ 07964029 * % ACBVSAM = '''11''X'; /* VSAM */ 07970029 * % ACBJAM = '''21''X'; /* JES/JAM */ 07980029 * % ACBRTAM = '''22''X'; /* JES/RTAM */ 07990029 * % ACBRCI = '''23''X'; /* JES/RCI */ 07992029 * % ACBTCAM = '''31''X'; /* TCAM */ 07994029 * % ACBSUBS = '''41''X'; /* SUBSYSTEMS */ 07996029 * % ACBVTAM = '''60''X'; /* VTAM X03004*/ 07998429 * 5 ACBERFL BIT(8), /* ERROR FLAGS */ 08000029 * 5 ACBDEB PTR(24), /* DEB ADDRESS */ 08050029 * /* NOT MOVED BY OPEN */ 08100029 * 4 ACBOFLGS BIT(8), /* OPEN / CLOSE FLAGS */ 08150029 * 5 * BIT(2), /* RESERVED */ 08350029 * 5 ACBEOV BIT(1), /* EOV CONCATENATION */ 08360029 * 5 ACBOPEN BIT(1), /* ACB IS OPEN */ 08400029 * 5 ACBDSERR BIT(1), /* NO FURTHER REQUESTS 08410029 * POSSIBLE AGAINST ACB */ 08420029 * 5 * BIT(1), /* RESERVED */ 08450029 * 5 ACBEXFG BIT(1), /* USER EXIT FLAG */ 08500029 * 6 ACBLOCK BIT(1), /* ACB IS LOCKED X03004*/ 08510029 * 5 ACBIOSFG BIT(1), /* OPEN/CLOSE IN CONTROL*/ 08550029 * 6 ACBBUSY BIT(1), /* ACB IS BUSY X03004*/ 08600029 * 4 ACBERFLG BIT(8), /* ERROR FLAGS */ 08750029 *%/* THE FOLLOWING CODES ARE COMMON TO ALL ACCESS METHODS. CODES */ 08752029 * /* FOR A SPECIFIC ACCESS METHOD ARE LOCATED IN THE EXTENSION */ 08754029 * /* FOR THAT ACCESS METHOD X03004*/ 08756029 * ACBOALR = '''04''X'; /* ACB ALREADY OPEN */ 08760029 * % ACBCALR = '''04''X'; /* ACB NOT OPEN @ZM30033*/ 08770029 * 4 ACBINFLG BIT(16), /* INDICATOR FLAGS */ 08800029 * 5 ACBINFL1 BIT(8), /* FIRST BYTE @ZA16012*/ 08850029 * 6 * BIT(1), /* RESERVED FOR EXCP */ 08859029 * 6 ACBJEPS BIT(1), /* JEPS PROCESSING */ 08868029 * 6 ACBIJRQE BIT(1), /* RQE BEING HELD BY JAM*/ 08877029 * 6 ACBCAT BIT(1), /* ACB FOR VSAM CATALOG */ 08886029 * 6 ACBSCRA BIT(1), /* CATALOG CONTROL BLOCK 08895029 * SYSTEM AREA @X04SVHS*/ 08900029 * 6 ACBUCRA BIT(1), /* CATALOG CONTROL BLOCK 08913029 * USER AREA @X04SVHS*/ 08922029 * 6 ACBVVIC BIT(1), /* DATA SET BEING OPENED 08931029 * IS SYS1.VVIC @X04SVHS*/ 08940029 * 7 ACBSDS BIT(1), /* OPEN AS SYSTEM DATA 08949029 * SET @Z40SVUC*/ 08958029 * 6 ACBBYPSS BIT(1), /* BYPASS SECURITY ON OPEN 08967029 * IF USER AUTH @Z40RSUC*/ 08976029 * 5 ACBINFL2 BIT(8), /* FIRST BYTE @ZA16012*/ 08985029 * 6 * BIT(2), /* RESERVED @ZA16012*/ 08995029 * 6 ACBCBIC BIT(1), /* OPEN WITH CONTROL BLOCKS 09005029 * IN COMMON STORAGE AREA 09010129 * @ZA16012*/ 09020129 * 6 * BIT(5), /* RESERVED @ZA16012*/ 09035029 * 4 ACBUJFCB PTR(31), /* USER JFCB ADDRESS */ 09050029 * 5 ACBOPTN BIT(8), /* JAM UCS INDICATOR */ 09150029 * 5 * PTR(24), /* RESERVED */ 09200029 * 4 ACBBUFSP FIXED(31), /* SIZE AVAILABLE FOR 09400029 * BUFFERS */ 09450029 * 4 ACBBLKSZ FIXED(15), /* BLOCKSIZE */ 09500029 * 5 ACBMSGLN FIXED(15), /* LENGTH OF MSG AREA 09550029 * @X04SVHS*/ 09600029 * 4 ACBLRECL FIXED(15), /* LOGICAL RECORD LENGTH*/ 10250029 * 4 ACBUAPTR PTR(31), /* USER WORKAREA ADDR 10260029 * CAXWA ADDRESS FOR 10262029 * CATALOG OPEN */ 10264029 * 4 ACBCBMWA PTR(31), /* CBM WORK AREA ADDRESS*/ 10270029 * %IF ACBRPLXL='3540' /* IS IT 3540 @X04AAHS*/ 10310040 * %THEN %GOTO ACBE2; /* GET 3540 EXT @X04AAHS*/ 10320040 * 4 ACBAPID PTR(31), /* APPLICATION ID 10368829 * ADDRESS X03004*/ 10369229 * 5 ACBAMAX PTR(31), /* ACCESS METHOD ACB 10372229 * EXTENSION @G29ASRL*/ 10375229 * 10380040 * %INCLUDE SYSLIB(IFGACBVS); /* GET VSAM EXTENSION @ZA34940*/ 10430040 * 10480040 *%GOTO ACBBSL2 ; 11400029 *%ACBE2 : ; 11410029 * 4 ACBAPID PTR(31), /* APPLICATION ID ADDRESS*/ 11420029 * 5 ACBAMAX PTR(31), /* ACCESS METHOD ACB 11426029 * EXTENSION @G29ASRL*/ 11432029 * %INCLUDE SYSLIB(IFGACB35); /* GET 3540 EXT @X04AAHS*/ 11440029 *%GOTO ACBBSL2 ; 11442029 * /* */ 11450029 * /* ASSEMBLER DSECT FOR ACB 11500029 * 11550029 .ACBBAL ANOP 11600029 AIF ('&DSECT' EQ 'NO').ACBNODS 11700029 IFGACB DSECT ACCESS METHOD CONTROL 11750029 * BLOCK 11800029 AGO .ACBDSCT 11850029 .ACBNODS ANOP 11900029 IFGACB DS 0D ACCESS METHOD CONTROL 11950029 * BLOCK 12000029 .ACBDSCT ANOP 12050029 ACBID DS XL1 ACB IDENTIFIER 12100029 ACBIDVAL EQU X'A0' IDENTIFIER VALUE - X'A0' 12110029 ACBSTYP DS XL1 ACB SUBTYPE 12150029 ACBSVSAM EQU X'10' VSAM SUBTYPE X04SVHS 12160029 ACBSVRP EQU X'11' VRP SUBTYPE X04SVHS 12170029 ACBSVTAM EQU X'20' VTAM SUBTYPE X04SVHS 12180029 ACBS3540 EQU X'40' 3540 SUBTYPE X04SVHS 12190029 ACBLENG DS 0H ACB LENGTH IN BYTES 12200029 ACBLEN2 DS 0H ALTERNATE NAME FOR 12202029 * ACBLENG X03004 12204029 ACBLENG2 DS H ALTERNATE NAME FOR 12210029 * ACBLENG X03004 12220029 ACBAMBL DS 0A AMB LIST ADDRESS(VSAM) 12250029 ACBJWA DS 0A JES WORK AREA ADDRESS 12300029 ACBIBCT DS 0A INTERFACE BUFFER CONTROL 12400029 * TABLE (RTAM) @G29ASRL 12470029 ACBAMWAP DS A ACCESS METHOD WORKAREA 12540029 * POINTER @G29ASRL 12610029 ACBINRTN DS A DATA MANAGEMENT 12700029 * INTERFACE ROUTINE 12710029 * ADDRESS; VTAM REQUEST 12720029 * PROCESSOR ADDRESS X03004 12730029 ACBMACRF DS 0BL2 MACRF PROCESSING OPTIONS 12750029 ACBMACR1 DS BL1 MACRF FIRST BYTE 12770029 ACBKEY EQU X'80' KEYED PROCESSING VIA 12800029 * INDEX 12810029 ACBADR EQU X'40' ADDRESSED PROCESSING 12850029 * WITHOUT INDEX 12852029 ACBADD EQU X'40' ALTERNATE NAME FOR 12860029 * ACBADR 12870029 ACBCNV EQU X'20' PROCESSING BY 12900029 * CONTROL INTERVAL 12902029 ACBBLK EQU X'20' ALTERNATE NAME FOR 12910029 * ACBCNV 12920029 ACBSEQ EQU X'10' SEQUENTIAL PROCESSING 12950029 ACBDIR EQU X'08' DIRECT PROCESSING 13000029 ACBIN EQU X'04' INPUT PROCESSING USING 13050029 * GET OR READ 13060029 ACBOUT EQU X'02' OUTPUT PROCESSING USING 13100029 * PUT OR WRITE 13110029 ACBUBF EQU X'01' USER CONTROLS BUFFERS - 13150029 * VALID ONLY WITH CONTROL 13160029 * INTERVAL PROCESSING 13162029 ACBMACR2 DS BL1 MACRF SECOND BYTE 13170029 ACBSKP EQU X'10' SKIP SEQUENTIAL 13300029 * PROCESSING 13750029 ACBLOGON EQU X'08' LOGON REQUESTS TO AN 13752029 * APPLICATION WILL BE 13756029 * REJECTED(VTAM) X03004 13758029 ACBRST EQU X'04' SET DATA SET TO X04SVHS 13758429 * EMPTY STATE X04SVHS 13758829 ACBDSN EQU X'02' BASIC SUBTASK SHARED 13759229 * CONTROL BLOCK CONNECTION 13759329 * ON COMMON DSNAMES 13759429 * X04SVHS 13759529 ACBAIX EQU X'01' ENTITY TO BE PROCESSED 13759629 * IS AIX PATH SPECIFIED IN 13759729 * IN THE GIVEN DDNAME 13759829 * X04SVHS 13759929 ACBBSTNO DS FL1 NUMBER OF CONCURRENT 13780029 * STRINGS FOR AIX X04SVHS 13790029 * PATH X04SVHS 13800029 ACBSTRNO DS FL1 NUMBER OF CONCURRENT 13802029 * REQUEST STRINGS X04SVHS 13804029 ACBBUFND DS H NUMBER OF DATA RECORD 13810029 * BUFFERS 13820029 ACBBUFNI DS H NUMBER OF INDEX RECORD 13850029 * BUFFERS 13860029 ACBBUFPL DS 0A JES BUFFER POOL 13900029 ACBLFB DS 0A RESERVED NAME 13950029 ACBMACR3 DS XL1 MACRF THIRD BYTE X04SVHS 13954029 ACBLSR EQU X'40' LOCAL SHARED RESOURCE 13955229 * X04SVHS 13955629 ACBGSR EQU X'20' GLOBAL SHARED RESOURCE 13955729 * X04SVHS 13955829 ACBICI EQU X'10' IMPROVED CONTROL 13955929 * INTERVAL PROCESSING 13957929 * X04SVHS 13958329 ACBDFR EQU X'08' DEFER WRITES X04SVHS 13958729 ACBSIS EQU X'04' SEQUENTIAL INSERT 13960729 * STRATEGY X04SVHS 13961129 ACBNCFX EQU X'02' NFX=0/CFX=1 X04SVHS 13961229 ACBMACR4 DS XL1 RESERVED X04SVHS 13961529 ACBJBUF DS H NUMBER OF JOURNAL 13961629 * BUFFERS(VSAM) 13964429 ACBRECFM DS BL1 RECORD FORMAT 13967229 ACBRECAF EQU X'80' JES FORMAT 13970029 ACBCCTYP DS BL1 CONTROL CHARACTER TYPE 13980029 ACBTRCID EQU X'C0' 3800 TRANSLATE TABLE+8 13980429 * Z40SVHS 13980929 ACBCCASA EQU X'04' ASA CONTROL CHARACTERS 13982029 ACBCCMCH EQU X'02' MACHINE CONTROL 13990029 * CHARACTERS 14000029 ACBOPT DS 0BL2 NON-USER OPTIONS 14040029 ACBDSORG DS 0BL2 MATCH ACBDORGA WITH 14050029 * DCBDSORG 14050129 ACBDSOR1 DS BL1 DSORG FIRST BYTE 14050429 * CHECKPOINT/RESTART OPTIONS 14052029 ACBCRNCK EQU X'80' NO CHECK BY RESTART 14060029 * FOR MODIFICATIONS SINCE 14062029 * LAST CHECKPOINT 14064029 ACBCRNRE EQU X'40' DATA ADDED SINCE 14070029 * LAST CHECKPOINT NOT 14072029 * ERASED BY RESTART AND 14072429 * NO REPOSITION TO LAST 14074029 * CHECKPOINT TAKES PLACE 14076029 ACBDVIND EQU X'20' DEVICE INDICATR @ZA26638 14077029 ACBOPTJ EQU X'20' 3800 CONTROL @ZA26638 14077729 * CHAR PRESENT @ZA26638 14078429 ACBDSOR2 DS BL1 DSORG SECOND BYTE 14080029 ACBDORGA EQU X'08' ACB INDICATOR 14100029 ACBMSGAR DS A MSG AREA PTR X04SVHS 14110029 ACBPASSW DS A PASSWORD ADDRESS 14150029 ACBEXLST DS 0A USER EXIT LIST ADDRESS 14350029 ACBUEL DS A ALTERNATE NAME FOR 14400029 * ACBEXLST 14450029 * BEFORE ACB IS OPENED 14500029 * (FOR VTAM, ACBDDNM IS INITIALIZED TO 14510029 * X'FF00000000000000') X03004 14520029 ACBDDNM DS CL8 DDNAME - MUST BE THE 14550029 * SAME AS THE NAME FIELD 14560029 * ON THE DD STATEMENT 14570029 * DEFINING THE DATA SET 14580029 * ASSOCIATED WITH THIS ACB 14590029 * AFTER ACB IS OPENED 14600029 ORG ACBDDNM 14650029 ACBTIOT DS H OFFSET FROM TIOT ORIGIN 14700029 * TO THE TIOELNGH FIELD IN 14710029 * THE TIOT ENTRY FOR THE 14720029 * DD STATEMENT FOR THIS 14730029 * ACB 14740029 ACBINFL DS BL1 CONTENTS AND MEANING 14750029 * ARE THE SAME AS 14750129 * ACBINFLG (BEFORE OPEN) 14750429 ACBAM DS 0B ALTERNATE NAME FOR 14752029 * ACBAMETH X03004 14754029 ACBAMETH DS BL1 ACCESS METHOD TYPE 14760029 ACBVTAM EQU X'60' VTAM X03004 14770029 ACBSUBS EQU X'41' SUBSYSTEMS 14780029 ACBTCAM EQU X'31' TCAM 14790029 ACBRCI EQU X'23' JES/RCI 14792029 ACBRTAM EQU X'22' JES/RTAM 14808429 ACBJAM EQU X'21' JES/JAM 14818829 ACBVSAM EQU X'11' VSAM 14829229 ACBERFL DS BL1 FOR JES, CONTENTS AND 14839629 * MEANING ARE THE SAME 14841629 * AS ACBERFLG (BEFORE 14849629 * OPEN) - NOT USED BY 14849729 * VSAM/VTAM 14849829 ACBDEB DS AL3 DEB ADDRESS 14850029 * NOT MOVED BY OPEN 14900029 ACBOFLGS DS BL1 OPEN / CLOSE FLAGS 14950029 ACBEOV EQU X'20' EOV CONCATENATION 15100029 ACBOPEN EQU X'10' THE ACB IS OPEN 15150029 ACBDSERR EQU X'08' NO FURTHER REQUESTS ARE 15160029 * POSSIBLE AGAINST THIS 15170029 * ACB 15180029 ACBEXFG EQU X'02' USER EXIT FLAG - SET TO 15200029 * 0 BY AN I/O SUPPORT 15202029 * WHEN A USER EXIT TAKEN; 15204029 * SET TO 1 ON RETURN 15206029 ACBLOCK EQU X'02' ALTERNATE NAME FOR 15210029 * ACBEXFG X03004 15220029 ACBIOSFG EQU X'01' OPEN/CLOSE IN CONTROL - 15250029 * THE ACB IS BEING 15260029 * PROCESSED BY AN I/O 15270029 * SUPPORT FUNCTION 15280029 ACBBUSY EQU X'01' ALTERNATE NAME FOR 15300029 * ACBIOSFG X03004 15310029 * BEFORE ACB IS OPENED 15350029 ACBERFLG DS BL1 ERROR FLAGS - FOR 15500029 * VSAM/VTAM THIS FIELD IS 15500129 * NOT MOVED BY OPEN AND 15500229 * ERROR FLAGS ARE 15500329 * RETURNED HERE; FOR JES 15501829 * THIS FIELD IS MOVED TO 15503829 * ACBERFL BY OPEN 15504229 * THE FOLLOWING CODES ARE COMMON TO ALL ACCESS X03004 15504629 * METHODS. X03004 15506729 ACBOALR EQU X'04' THE ACB IS ALREADY OPEN 15511629 ACBCALR EQU X'04' THE ACB IS NOT OPEN 15513129 * @ZM30033 15514629 ACBINFLG DS 0BL2 INDICATOR FLAGS @ZA16012 15623929 ACBINFL1 DS BL1 FIRST IND FLAGS @ZA16012 15628929 .* BIT 0 - X'80' MATCHES WITH BIT 0 OF THE DCBMACR FIELD, 15633929 .* INDICATING AN EXCP DCB. THIS BIT IS USED TO 15643929 .* DIFFERENTIATE BETWEEN AN ACB AND A DCB AND MUST NEVER 15645929 .* BE ASSIGNED IN THE ACB. 15647929 ACBJEPS EQU X'40' JEPS IS USING THIS ACB 15650029 ACBIJRQE EQU X'20' AN RQE IS HELD BY JAM 15660029 ACBCAT EQU X'10' ACB FOR VSAM CATALOG 15670029 ACBSCRA EQU X'08' CATALOG CONTROL BLOCK 15672029 * SYSTEM AREA X04SVHS 15674029 ACBUCRA EQU X'04' CATALOG CONTROL BLOCK 15676029 * USER AREA X04SVHS 15678029 ACBVVIC EQU X'02' DATA SET BEING OPENED 15680029 * IS SYS1.VVIC X04SVHS 15690029 ACBSDS EQU X'02' OPEN AS SYSTEM DATA SET 15690229 * @Z40SVUC 15690429 ACBBYPSS EQU X'01' BYPASS SECURITY ON OPEN 15691429 * IF CALLER AUTH @Z40RSUC 15694129 ACBINFL2 DS BL1 2ND IND FLAGS @ZA16012 15699029 ACBCBIC EQU X'20' OPEN WITH CONTROL BLOCKS 15704029 * IN COMMON STORAGE AREA 15709029 * @ZA16012 15714029 * NOT MOVED BY OPEN 15720029 ACBUJFCB DS 0A USER JFCB ADDRESS 15800029 ACBOPTN DS XL1 JAM UCS INDICATORX04SVHS 15810029 DS XL3 RESERVED X04SVHS 15820029 ACBBUFSP DS F VIRTUAL CORE AVAILABLE 15850029 * FOR BUFFERS 15900029 ACBBLKSZ DS 0H BLOCKSIZE 16250029 ACBMSGLN DS H LNG OF MSG AREA X04SVHS 16300029 ACBLRECL DS H LOGICAL RECORD LENGTH 16850029 ACBUAPTR DS A USER WORKAREA ADDRESS; 16860029 * CAXWA ADDRESS FOR 16862029 * CATALOG OPEN 16864029 ACBCBMWA DS A CONTROL BLOCK 16870029 * MANIPULATION WORKAREA 16880029 * ADDRESS 16890029 ACBAPID DS 0A APPLICATION ID @G29ASRL 16892029 ACBAMAX DS A ACCESS METHOD ACB 16892629 * EXTENSION @G29ASRL 16893229 * ADDRESS(VTAM) X03004 16894029 AIF ('&AM' EQ 'VTAM').VSEXT IS IT VTAM @ZA34940 16900040 .NOVTAM ANOP 16900440 AIF ('&AM' NE '3540').VSEXT IS IT 3540 @ZA34940 16900840 IFGACB35 GET 3540 EXT X04AAHS 16901240 AGO .ENDACB @ZA34940 16901640 .VSEXT ANOP @ZA34940 16902040 IFGACBVS AM=&AM GET VSAM EXTENSION @ZA34940 16902440 AGO .ENDACB @ZA34940 16902840 .ENDACB ANOP END COMMON ACB X03004 16904029 MEND 17750029 * END OF ACB */ 17800029 *%ACBBSL2: ; 17850029