* %GOTO DSABPLS1; /* 00100002 MACRO 00150002 IHADSAB 00200002 * */ 00250002 * %DSABPLS1: ; 00300002 * /*******************************************************************/ 00350002 * /* */ 00352002 * /* IHADSAB */ 00360002 * /* */ 00370002 * /* DATA SET ASSOCIATION BLOCK */ 00400002 * /* */ 00450002 * /* MACMEAN DSAB MEANS DATA SET ASSOCIATION BLOCK */ 00452002 * /* MACCOMP Y-2 SC1B4/PZD82 */ 00454002 * /* MACSTAT Y-2 73082/016236 */ 00456402 * /* */ 00457403 * /* SUPPORT CODE - OZ28413,OZ60075 @ZA60075*/ 00458203 * /* */ 00460002 * /* THE DATA SET ASSOCIATION BLOCK, DSAB, AND ITS CORRESPONDING */ 00500002 * /* TIOT DD ENTRY CONTAIN INFORMATION WHICH SERVE AS AN INTERFACE */ 00550002 * /* BETWEEN ALLOCATION (BOTH STEP AND DYNAMIC) AND OTHER SYSTEM */ 00600002 * /* COMPONENTS. DSAB'S ARE ELEMENTS OF A NON-CONTIGUOUS, DOUBLE */ 00650002 * /* THREADED CHAIN. THIS CHAIN IS HEADED BY A QUEUE DESCRIPTOR */ 00700002 * /* BLOCK WHICH IS ADDRESSED BY A FIELD IN THE JSCB, JSCBDSAB. */ 00750002 * /* THE TIOT ENTRY IS ADDRESSED FROM THE DSAB FIELD, DSABTIOT. */ 00800002 * /* */ 00850002 * /*******************************************************************/ 00900002 * /* IHADSAB - C - DEFINE DSABVVDS FOR ICF CATALOG CONTROL @ZA60075*/ 00920003 * /* IHADSAB - C - MERGED BACK TO REL 3.7 @ZA28413*/ 00930003 * /* C 031005, 064040 @ZD03010*/ 00940003 * %GOTO DSABPLS2; /* 00950002 DSAB DSECT 01000002 DS 0F 01050002 DSABID DS CL4 IN-CORE ID,CHARACTERS 'DSAB' 01100002 DSABFCHN DS F NEXT DSAB PTR, 0 IF LAST 01150002 DSABBCHN DS F PREVIOUS DSAB PTR,0 IF FIRST 01200002 DSABLNTH DS H LENGTH OF DSAB 01250002 DSABOPCT DS H OPEN DCB COUNT FOR TIOT DD ENTRY 01300002 DSABTIOT DS F TIOT DD ENTRY PTR 01350002 DSABRS01 DS C RESERVED 01450002 DSABSSVA DS CL3 SWA VIRTUAL ADDRESS OF SIOT 01550002 DSABGIDP DS F DEVICE GROUP-ID LIST PTR 01650002 DSABANMP DS F &NAME OR GDG-ALL DSNAME PTR, 01700002 * 0 IF NONE 01750002 DSABORG DS 0CL2 DATA SET ORGANIZATION 01800002 DSABORG1 DS B 1ST BYTE OF DSORG FLAGS 01850002 DSABIS EQU X'80' INDEXED SEQUENTIAL ORGANIZATION 01900002 DSABPS EQU X'40' PHYSICAL SEQUENTIAL ORGANIZATION 01910002 DSABDA EQU X'20' DIRECT ACCESS ORGANIZATION 01950002 DSABCX EQU X'10' COMMUNICATIONS LINE GROUP 02000002 DSABCQ EQU X'08' DIRECT ACCESS MESSAGE QUEUE 02050002 DSABMQ EQU X'04' PROBLEM PROGRAM MESSAGE QUEUE 02100002 DSABPO EQU X'02' PARTITIONED ORGANIZATION 02150002 DSABU EQU X'01' UNMOVEABLE 02200002 DSABORG2 DS B 2ND BYTE OF DSORG FLAGS 02250002 DSABGS EQU X'80' GRAPHICS ORGANIZATION 02300002 DSABTX EQU X'40' TCAM LINE GROUP 02310002 DSABTQ EQU X'20' TCAM MESSAGE QUEUE 02320002 DSABAM EQU X'08' VSAM 02330002 DSABTR EQU X'04' TCAM 3705 02340002 DSABFLG1 DS B FLAGS-RESTORED BY RESTART 02350002 DSABDALC EQU X'80' DYNAMICALLY ALLOCATED 02400002 DSABPALC EQU X'40' PERMANENTLY ALLOCATED ATTRIBUTE 02450002 DSABDCNV EQU X'20' DYNAMICALLY CONVERTED 02500002 DSABCONV EQU X'10' CONVERTIBLE ATTRIBUTE 02550002 DSABDCAT EQU X'08' DYNAMICALLY CONCATENATED 02600002 DSABPCAT EQU X'04' PERMANENTLY CONCATENATED 02650002 DSABCATM EQU X'02' CONCATENATED GROUP MEMBER 02700002 DSABNUSE EQU X'01' IN-USE ATTRIBUTE 02750002 DSABFLG2 DS B FLAGS-RESTORED BY RESTART 02800002 DSABOPEN EQU X'80' DATA SET HAS BEEN OPENED 02900002 DSABIRM EQU X'40' D.S. REVERSED MERGED FOR INPUT 03050002 DSABUNAL EQU X'20' UNALLOCATE WHEN CLOSED 03060002 DSABFLG3 DS B FLAGS-NOT RESTORED BY RESTART 03100002 DSABDEFR EQU X'80' DEFERRED MOUNTING 03100402 DSABPASS EQU X'40' PASS/RETAIN IND @ZD03010 03100503 DSABVAM EQU X'20' VAM DATA SET 03100802 DSABVMSC EQU X'10' VAM PAGING SPACE RELEASED 03101202 DSABCATL EQU X'08' DATA SET IS A CATALOG 03102002 DSABJSCT EQU X'04' JOBCAT OR STEPCAT DATA SET 03104002 DSABVVDS EQU X'02' VVDS - ICF CATALOG @ZA60075 03107003 DSABFLG4 DS B FLAGS-NOT RESTORED BY RESTART 03110002 DSABCKDS EQU X'80' THIS IS A CHECKPT DATA SET 03120002 DSABCKVL EQU X'40' VOLUME CONTAINING CHECKPT 03130002 * DATA SET IS SECURE 03140002 DSABCKSI EQU X'20' SECURITY INTERFACE EXISTS FOR 03142002 * THE CHECKPT DATA SET 03144002 DSABRS02 DS 2C RESERVED 03150002 DSABTCBP DS F TCB UNDER WHICH SET IN-USE 03200002 DSABPTTR DS F RELATIVE TTR OF DATA SET 03250002 * PASSWORD 03252002 DSABSSNM DS CL4 SUB-SYSTEM NAME 03260002 DSABSSCM DS F SUB-SYSTEM COMMUNICATION 03270002 * AREA POINTER 03280002 DSABDCBM DS CL6 BIT MAP OF DCB FIELDS 03290002 DSABRS03 DS CL2 RESERVED 03300002 DSABSIOT DS F SIOT IN-CORE ADDRESS 03310002 DSABRS04 DS F RESERVED 03320002 DSABL EQU *-DSAB LENGTH OF DSECT 03350002 DSABANMI DSECT ALTERNATE DSNAME INFORMATION 03450002 DSABANML DS FL1 LENGTH OF ALTERNATE DSNAME 03500002 DSABANAM DS C ALTERNATE DSNAME 03550002 DSABANL EQU *-DSABANMI LENGTH OF DSECT 03600002 DSABGIDL DSECT DEVICE GROUP-ID LIST 03650002 DSABLLEN DS F DEVICE GROUP-ID LIST LENGTH 03700002 DSABGRID DS CL4 DEVICE GROUP-ID 03750002 DSABGL EQU *-DSABGIDL LENGTH OF DSECT 03800002 MEND , */ 03850002 * %DSABPLS2: ; 03900002 * 03950002 * DCL 04000002 * 1 DSAB BASED(DSABPTR) BDY(WORD), 04050002 * 2 DSABID CHAR(4), /*IN-CORE ID, CHARACTERS DSAB */ 04100002 * 2 DSABFCHN PTR(31), /*NEXT DSAB PTR,0 IF LAST */ 04150002 * 2 DSABBCHN PTR(31), /*PREVIOUS DSAB PTR,0 IF FIRST*/ 04200002 * 2 DSABLNTH FIXED(15), /*LENGTH OF DSAB */ 04250002 * 2 DSABOPCT FIXED(15), /*OPEN DCB COUNT FOR DD ENTRY */ 04300002 * 2 DSABTIOT PTR(31), /*TIOT DD ENTRY PTR */ 04350002 * 2 DSABRS01 CHAR(1), /*RESERVED */ 04400002 * 2 DSABSSVA PTR(24), /*SWA VIRTUAL ADDRESS OF SIOT */ 04650002 * 2 DSABGIDP PTR(31), /*DEVICE GROUP-ID LIST PTR */ 04700002 * 2 DSABANMP PTR(31), /*&NAME OR GDG-ALL DSNAME PTR, 04750002 * 0 IF NONE */ 04800002 * 2 DSABORG CHAR(2) BDY(HWORD), /*DATA SET ORGANIZATION */ 04850002 * 3 DSABORG1 CHAR(1), /*FIRST DSORG BYTE */ 04900002 * 4 DSABIS BIT(1), /*INDEXED SEQUENTIAL ORGANIZ. */ 04950002 * 4 DSABPS BIT(1), /*PHYSICAL SEQUENTIAL ORGANIZ.*/ 05000002 * 4 DSABDA BIT(1), /*DIRECT ACCESS ORGANIZATION */ 05050002 * 4 DSABCX BIT(1), /*COMMUNICATIONS LINE GROUP */ 05100002 * 4 DSABCQ BIT(1), /*DIRECT ACCESS MESSAGE QUEUE */ 05150002 * 4 DSABMQ BIT(1), /*TELECOMMUNIC. MSG. QUEUE */ 05200002 * 4 DSABPO BIT(1), /*PARTITIONED ORGANIZATION */ 05250002 * 4 DSABU BIT(1), /*UNMOVEABLE */ 05300002 * 3 DSABORG2 CHAR(1), /*SECOND DSORG BYTE */ 05350002 * 4 DSABGS BIT(1), /*GRAPHICS ORGANIZATION */ 05400002 * 4 DSABTX BIT(1), /*TCAM LINE GROUP */ 05410002 * 4 DSABTQ BIT(1), /*TCAM MESSAGE QUEUE */ 05420002 * 4 * BIT(1), /*RESERVED */ 05450002 * 4 DSABAM BIT(1), /*VSAM */ 05460002 * 4 DSABTR BIT(1), /*TCAM 3705 */ 05470002 * 4 * BIT(2), /*RESERVED */ 05480002 * 2 DSABFLG1 CHAR(1), /*FLAGS-RESTORED BY RESTART */ 05500002 * 3 DSABDALC BIT(1), /*DYNAMICALLY ALLOCATED */ 05550002 * 3 DSABPALC BIT(1), /*PERMANENTLY ALLOCATED 05600002 * ATTRIBUTE */ 05650002 * 3 DSABDCNV BIT(1), /*DYNAMICALLY CONVERTED */ 05700002 * 3 DSABCONV BIT(1), /*CONVERTIBLE ATTRIBUTE */ 05750002 * 3 DSABDCAT BIT(1), /*DYNAMICALLY CONCATENATED */ 05800002 * 3 DSABPCAT BIT(1), /*PERMANENTLY CONCATENATED 05850002 * ATTRIBUTE */ 05900002 * 3 DSABCATM BIT(1), /*CONCATENATED GROUP MEMBER */ 05950002 * 3 DSABNUSE BIT(1), /*IN-USE ATTRIBUTE */ 06000002 * 2 DSABFLG2 CHAR(1), /*FLAGS-RESTORED BY RESTART */ 06050002 * 3 DSABOPEN BIT(1), /*DATA SET HAS BEEN OPENED */ 06150002 * 3 DSABIRM BIT(1), /*D.S. REVERSE MERGE FOR INPUT*/ 06300002 * 3 DSABUNAL BIT(1), /*UNALLOCATED WHEN CLOSED */ 06310002 * 3 * BIT(5), 06350002 * 2 DSABFLG3 CHAR(1), /*FLAG-NOT RESTORED BY RESTART*/ 06400002 * 3 DSABDEFR BIT(1), /*DEFERRED MOUNTING */ 06402002 * 3 DSABPASS BIT(1), /*PASS/RETAIN IND @ZD03010*/ 06404003 * 3 DSABVAM BIT(1), /*VAM DATA SET */ 06406002 * 3 DSABVMSC BIT(1), /*VAM PAGING SPACE RELEASED */ 06408002 * 3 DSABCATL BIT(1), /*DATA SET IS A CATALOG */ 06410002 * 3 DSABJSCT BIT(1), /*JOBCAT OR STEPCAT DATA SET */ 06420002 * 3 DSABVVDS BIT(1), /*VVDS - ICF CATALOG @ZA60075*/ 06430003 * 3 * BIT(1), /*RESERVED @ZA60075*/ 06440003 * 2 DSABFLG4 CHAR(1), /*FLAG-NOT RESTORED BY RESTART*/ 06450002 * 3 DSABCKDS BIT(1), /*THIS IS A CHECKPT DATA SET */ 06452002 * 3 DSABCKVL BIT(1), /*VOLUME CONTAINING CHECKPT 06456002 * DATA SET IS SECURE */ 06456402 * 3 DSABCKSI BIT(1), /*SECURITY INTERFACE EXISTS 06458002 * FOR THE CHECKPT DATA SET */ 06458402 * 3 * BIT(5), /*RESERVED */ 06458802 * 2 DSABRS02 CHAR(2), /*RESERVED */ 06460002 * 2 DSABTCBP PTR(31), /*TCB UNDER WHICH SET IN-USE */ 06500002 * 06550002 * 2 DSABPTTR FIXED(31), /*RELATIVE TTR OF DATA SET 06600002 * PASSWORD */ 06650002 * 2 DSABSSNM CHAR(4), /*SUB-SYSTEM NAME */ 06660002 * 2 DSABSSCM PTR(31), /*SUB-SYSTEM COMMUNICATION 06670002 * AREA POINTER */ 06680002 * 2 DSABDCBM CHAR(6), /*BIT MAP OF DCB FIELDS */ 06690002 * 2 DSABRS03 CHAR(2), /*RESERVED */ 06700002 * 2 DSABSIOT PTR(31), /*IN-CORE ADDRESS OF SIOT */ 06710002 * 2 DSABRS04 FIXED(31); /*RESERVED */ 06720002 * DCL 06750002 * 1 DSABANMI BASED(DSABANMP), /*ALTERNATE DSNAME INFORMATION*/ 06800002 * 2 DSABANML PTR(8), /*LENGTH OF ALTERNATE DSNAME */ 06850002 * 2 DSABANAM CHAR(*); /*ALTERNATE DSNAME */ 06900002 * DCL 06950002 * 1 DSABGIDL BASED(DSABGIDP), /*DEVICE GROUP-ID LIST */ 07000002 * 2 DSABLLEN FIXED(31), /*DEVICE GROUP-ID LIST LENGTH */ 07050002 * 2 DSABGRID (*) CHAR(4); /*DEVICE GROUP-ID */ 07100002