*%;/* 00550002 MACRO 00600002 IGGSWA 01000002 .* /* START OF SPECIFICATIONS **** 01150002 .* 01200002 .*01 MODULE-NAME = IGGSWA 01250002 .* 01300002 .*01 COPYRIGHT = NONE 01350002 .* 01400002 .*01 STATUS = CHANGE LEVEL 01 01450002 .* 01460002 .*01 DESCRIPTIVE-NAME = SEGMENT WORKAREA FORMAT 01490002 .* 01492002 .*01 FUNCTION = FORMATS THE SEGMENT WORKAREA FOR BDAM VARIABLE SPANNED 01494002 .* RECORDS 01494402 .* 01496002 .*01 NOTES = NONE 01498002 .* 01498402 .*02 DEPENDENCIES = NA 01498802 .* 01499202 .*02 PERFORMANCE = NA 01499602 .* 01499702 .*02 RESTRICTIONS = NA 01499802 .* 01499902 .*02 REGISTER-CONVENTIONS = NA 01549902 .* 01559902 .*02 PATCH-LABEL = NA 01569902 .* 01579902 .*01 MODULE-TYPE = MACRO 01589902 .* 01595902 .*02 MACRO-SIZE = NA 01597902 .* 01598302 .*02 EXTERNAL-REFERENCES = NA 01598702 .* 01599102 .*01INNER-MACROS = NONE 01599502 .* 01599602 .*01SYSTEM-MACROS = NONE 01599702 .* 01599802 .*01 CHANGE-ACTIVITY = SEE BELOW 01609802 .* 01619802 .* VS 2 RELEASE 2 01629802 .* 01649802 .**** END OF SPECIFICATIONS ***/ 01659802 */* MACCOMP Y-2 SC1D7/SJD48 */ 01669802 */* MACSTAT Y-2 73122/021160 */ 01679802 *%GOTO SWAPLS1; /* Y02072*/ 01689802 *********************************************************************** 01699802 * THE FOLLOWING DSECT FORMATS THE 12-BYTE SEGMENT WORKAREA CONTROL * 02000002 * BLOCK FOR BDAM CREATE VARIABLE SPANNED RECORDS. * 02500002 *********************************************************************** 03000002 SWACB DSECT 03500002 SWACBPTR DS AL4 PTR TO FIRST SEGMENT WORKAREA 04000002 SWACBNO DS H NUMBER OF SEGMENT WORKAREAS 04500002 SWACBLNG DS H LENGTH OF SEGMENT WORKAREA 05000002 SWATTR DS XL4 VOLUME TTR 05500002 SWALNG EQU *-SWACBPTR END OF CONTROL BLOCK 06000002 * 06500002 */********************************************************************/ 07000002 */*THE FOLLOWING DSECT FORMATS THE SEGMENT WORKAREA FOR BDAM CREATE */ 07500002 */*AND BDAM VAR SPANNED RECORDS.EACH SEGMENT DATA AREA IS PRECEDED */ 08000002 */*BY 10 BYTES OF CONTROL INFORMATION. THE DATA AREA, WHICH FOLLOWS */ 08050002 */*BEGINS WITH A 4-BYTE BLOCK DESCRIPTOR WORD, FOLLOWED BY A 4-BYTE */ 08100002 */*SEGMENT DESCRIPTOR WORD.A MODIFIED BDW AND DATA ARE MOVED INTO AND*/ 08150002 */*FROM THE RECORD AREA (POINTED TO IN THE SECOND WORD OF THE CONTROL*/ 08200002 */*INFO.)THE BDW CONTAINS THE LENGTH OF THE ENTIRE BLOCK SEGMENT. THE*/ 08250002 */*SDW CONTAINS THE LENGTH OF THAT SEGMENT(BDW LENGTH-4) PLUS A BIT */ 08300002 */*INDICATING IF THIS IS THE FIRST(01),MIDDLE(03),LAST(02),ONLY(00) */ 08302002 */*SEGMENT IN THIS BLOCK. */ 08352002 */********************************************************************/ 08500002 SWA DSECT 09000002 SWANXTPT DS A POINTER TO NEXT SEGMENT 09500002 * WORKAREA 10000002 SWARCDPT DS 0CL6 RECORD AREA POINTERS 10500002 SWARAPT DS A POINTER TO THE RECORD AREA 11000002 SWAFLAG EQU SWARAPT FLAG INDICATING SPANNED RECORD 11500002 SWASPNVL EQU X'80' BIT INDICATING CUR REC SPANNED 12000002 SWALAST EQU X'40' BIT INDICATING LAST SEGMENT WAS 12500002 * WRITTEN (BDAM CREATE ONLY) 13000002 SWABFINC DS CL2 OFFSET IN RECORD AREA TO 13500002 * CURRENT SEGMENT 14000002 SWACSLNG EQU *-SWANXTPT LENGTH OF CONTROL SECTION 14500002 SWASEGMT EQU * BEGINNING OF SEGMENT 15000002 SWABDW DS CL4 BLOCK DESCRIPTOR WORD 15500002 SWASDW DS 0CL4 SEGMENT DESCRIPTOR WORD 16000002 SWASEGLL DS 0H SEGMENT LENGTH (LL) 16500002 DS X FILLER 17000002 SWASAVID DS BL1 SAVE AREA FOR ID OF LAST BYTE 17500002 SWASEGFL DS BL1 SEGMENT FLAGS 18000002 DS X RESERVED 18500002 SWADATA EQU * DATA PORTION OF RECORD 19000002 MEND 19500002 *%SWAPLS1:; /* Y02072*/ 19550002 */* */ 19600002 */*THE FOLLOWING STRUCTURE FORMATS THE 12-BYTE SEGMENT WORKAREA CNTRL*/ 19650002 */*BLOCK FOR BDAM CREATE VARIABLE SPANNED RECORDS. */ 19700002 */* */ 19750002 *DCL 1 SWACB CHAR(12) BDY(WORD) BASED, /*BEGIN SWA CONTROL BLKY02072*/ 19800002 * 2 SWACBPTR PTR(31), /*POINT TO FIRST SWA Y02072*/ 19850002 * 2 SWACBNO FIXED(16), /*NUMBER OF SWAS Y02072*/ 19900002 * 2 SWACBLNG FIXED(16), /*LENGTH OF EACH SWA Y02072*/ 19950002 * 2 SWATTR FIXED(32); /*VOLUME TTR Y02072*/ 20000002 *DCL SWALNG CONSTANT(12); /*LEN OF SWA CNTRL BLK Y02072*/ 20050002