* %GOTO STOL1; 00100002 MACRO 00200002 IHASTOW &DSECT=YES 00300002 .* /* START OF SPECIFICATIONS **** 00305002 .* 00310002 .*01 MODULE-NAME = IHASTOW 00315002 .* 00320002 .*01 COPYRIGHT = NONE 00325002 .* 00330002 .*01 STATUS = VS2 RELEASE 2 LEVEL 0 00335002 .* 00340002 .*01 DESCRIPTIVE-NAME = STOW INPUT PARAMETER LIST 00345002 .* 00350002 .*01 FUNCTION = MAPS THE PARAMETER LIST SUPPLIED TO THE STOW MACRO 00355002 .* BY THE CALLER. 00360002 .* 00365002 .*01 MODULE-TYPE = MACRO 00370002 .* 00375002 .*02 MACRO-SIZE = N/A FOR A MAPPING MACRO 00380002 .* 00385002 .*02 PARAMETER-RECEIVED = DSECT 00390002 .* 00395002 .*03 TYPE = CHARACTER STRING 00400002 .* 00405002 .*04 VALUE = YES OR NO 00410002 .* 00415002 .*01 TABLES = NONE 00420002 .* 00425002 .*01 INNER-MACROS = NONE 00430002 .* 00435002 .*01 SYSTEM-MACROS = NONE 00440002 .* 00445002 .*01 CHANGE-ACTIVITY = SEE BELOW 00450002 .* VS2 RELEASE 2 DELETIONS 00455002 .* 00465002 .**** END OF SPECIFICATIONS ***/ 00470002 .*/* 00475002 .*/ %STOL1: ; 00500002 * /* MACCOMP Y-2 SC1D2/SJD48 */ 00502002 * /* MACSTAT Y-2 73226/021160 */ 00504002 */********************************************************************/ 00700002 */* */ 00800002 */* THIS MACRO MAPS THE PARAMETER LIST SUPPLIED TO THE STOW */ 00900002 */* MACRO BY THE CALLER. */ 01000002 */* */ 01100002 */* VS2 RELEASE 2, 8/14/73, LEVEL=0 */ 01200002 */* */ 01300002 */* METHOD OF ACCESS */ 01400002 */* BAL - A USING ON THE DSECT NAME 'STOW' ESTABLISHES */ 01500002 */* ADDRESSABILITY TO ALL SYMBOLS. */ 01600002 */* PL/S - DEFINE A BASE FOR THE STRUCTURE BEFORE REFERENCING */ 01700002 */* ANY SYMBOLS WITHIN IT. */ 01800002 */* */ 01900002 */********************************************************************/ 02000002 * %; /* 02100002 .*/ %GOTO STOL2; /* 02200002 AIF ('&DSECT' EQ 'NO').STONOD 02202002 STOW DSECT 02204002 AGO .STOL3 02206002 .STONOD ANOP 02208002 STOW EQU * 02210002 .STOL3 ANOP 02212002 * 02214002 STONAME DS CL8 NEW NAME FOR ADD. OLD NAME FOR 02300002 * DELETE, CHANGE, OR REPLACE. 02400002 STOCHANG DS 0CL8 NEW NAME FOR CHANGE 02500002 STOTTR DS XL3 RELATIVE ADDRESS OF MEMBER 02600002 STOCTTRN DS B ALIAS BIT, NUMBER OF TTRN'S, 02700002 * AND LENGTH OF USER DATA 02800002 STOALIAS EQU X'80' MEMBER IS AN ALIAS NAME 02900002 STOTTRNS EQU X'60' NUMBER OF TTRN'S IN THE USER 03000002 * DATA AREA. 03100002 STODATSZ EQU X'1F' SIZE OF USER DATA AREA IN 03200002 * HALF WORDS. 03300002 STODATA DS CL62 USER DATA AREA 03400002 STOLNGMV EQU L'STOCHANG+L'STOTTR+L'STOCTTRN LENGTH OF FIELDS SAVED 03500002 * FOR CHANGE OPERATIONS 03600002 MEND , */ 03700002 * %STOL2: ; 03800002 * 03802002 *DCL 1 STOW BASED, 03900002 * 2 STONAME CHAR(8), /* NEW NAME FOR ADD. OLD NAME 04000002 * FOR DELETE, CHANGE, REPLACE. */ 04100002 * 2 STOCHANG CHAR(8), /* NEW NAME FOR CHANGE */ 04200002 * 3 STOTTR FIXED(24) BDY(BYTE), /* RELATIVE ADDR OF MEMBER */ 04300002 * 3 STOCTTRN FIXED(8), /* ALIAS BIT, NUMBER OF TTRN'S, 04400002 * AND LENGTH OF USER DATA. */ 04500002 * 4 STODATSZ FIXED(8), /* SIZE OF USER DATA AREA IN 04600002 * HALF WORDS (BITS 3 - 7). */ 04700002 * %STOCLRHI = '''00011111''B'; 04800002 * 5 STOALIAS BIT(1), /* MEMBER IS AN ALIAS NAME */ 04900002 * 5 STOTTRNS BIT(2), /* NUMBER OF TTRN'S IN THE 05000002 * USER DATA AREA. */ 05100002 * 3 STODATA CHAR(62); /* USER DATA AREA */ 05200002