*%GOTO CWBPLS2; /* MAPPING MACRO @Y30LB01 00050003 MACRO 00100003 IEZCWB 00150003 ************************************************************ @Y30LB01 00200003 * ****** MAPPING MACRO ***** @Y30LB01 00250003 * MACRO NAME = IEZCWB(VS1-VS2) @Y30LB01 00300003 * @Y30LB01 00350003 * DESCRIPTIVE NAME = COMMAND WORK BUFFER FOR MSSC SUPPORT @Y30LB01 00400003 * @Y30LB01 00450003 * COPYRIGHT = NONE @Y30LB01 00500003 * @Y30LB01 00550003 * CHANGE-ACTIVITY = X04AC01,Y30LB01,Z40LB01 @Z40LB01 00600003 ************************************************************ @Y30LB01 00650003 CWB DSECT @Y30LB01 00700003 CWBCHAIN DS F CHAIN AHEAD POINTER @Y30LB01 00750003 CWBFREE DS 0F SUBPOOL - LENGTH @Y30LB01 00800003 CWBSBPOL DS C SUBPOOL @Y30LB01 00850003 CWBFLGTH DS AL3 LENGTH @Y30LB01 00900003 CWBVBCDE DS C COMMAND VERB CODE @Y30LB01 00950003 CWBVBVRY EQU 40 VARY @Y30LB01 01000003 CWBVBHLT EQU 60 HALT @Y30LB01 01050003 CWBVBDSP EQU 104 DISPLAY @Z40LB01 01060003 CWBVBPRG EQU 164 PURGE @Y30LB01 01100003 CWBVBASN EQU 140 ASSIGN @Y30LB01 01150003 CWBCMND DS CL126 OPERAND IMAGE @Y30LB01 01200003 CWBCOMQ DS C SYNTAX INDICATOR @Y30LB01 01250003 CWBUCMID DS C CONSOLE ID @Y30LB01 01300003 CWBAUTH DS CL2 CMD AUTHORIZATION @Y30LB01 01350003 CWBLCC DS C TARGET CONSOLE @Z40LB01 01352003 CWBLA DS C TARGET DISPLAY AREA @Z40LB01 01354003 CWBRESV DS CL3 RESERVED @Z40LB01 01360003 CWBLGTH EQU *-CWB LENGTH OF BLOCK @Y30LB01 01400003 MEND @Y30LB01*/ 01450003 %CWBPLS2:; /*@Y30LB01*/ 01500003 /********************************************************** @Y30LB01*/ 01550003 /* ****** MAPPING MACRO ***** @Y30LB01*/ 01600003 /* MACRO NAME = IEZCWB(VS1-VS2) @Y30LB01*/ 01650003 /* @Y30LB01*/ 01700003 /* DESCRIPTIVE NAME = COMMAND WORK BUFFER FOR MSSC SUPPORT @Y30LB01*/ 01750003 /* @Y30LB01*/ 01800003 /* COPYRIGHT = NONE @Y30LB01*/ 01850003 /* @Y30LB01*/ 01900003 /* CHANGE-ACTIVITY = X04AC01,Y30LB01,Z40LB01 @Z40LB01*/ 01950003 /********************************************************** @Y30LB01*/ 02000003 DCL 1 CWB BASED(CWBPTR) BDY(WORD), /* BEGIN BLOCK @Y30LB01*/ 02050003 2 CWBCHAIN FIXED(31), /* CHAIN AHEAD PTR @Y30LB01*/ 02100003 2 CWBFREE BDY(WORD) CHAR(4), /*SUBPOOL-LENGTH @Y30LB01*/ 02150003 3 CWBSBPOL CHAR(1), /* SUBPOOL @Y30LB01*/ 02200003 3 CWBFLGTH FIXED(24), /* LENGTH @Y30LB01*/ 02250003 2 CWBVBCDE CHAR(1), /* CMD VERB CODE @Y30LB01*/ 02300003 2 CWBCMND CHAR(126), /* OPERAND IMAGE @Y30LB01*/ 02350003 2 CWBCOMQ FIXED(8), /* SYNTAX IND @Y30LB01*/ 02400003 2 CWBUCMID FIXED(8), /* CONSOLE ID @Y30LB01*/ 02450003 2 CWBAUTH CHAR(2), /* CMD AUTH @Y30LB01*/ 02500003 2 CWBLCC CHAR(1), /* TARGET CONSOLE @Z40LB01*/ 02502003 2 CWBLA CHAR(1), /* TARGET AREA @Z40LB01*/ 02504003 2 CWBRESV CHAR(3); /* RESERVED @Z40LB01*/ 02510003 %CWBLGTH='LENGTH(CWB)'; /* CWB LENGTH @Y30LB01*/ 02550003 %CWBVBVRY='40'; /* VARY @Y30LB01*/ 02600003 %CWBVBHLT='60'; /* HALT @Y30LB01*/ 02650003 %CWBVBDSP='104'; /* DISPLAY @Z40LB01*/ 02660003 %CWBVBPRG='164'; /* PURGE @Y30LB01*/ 02700003 %CWBVBASN='140'; /* ASSIGN @Y30LB01*/ 02750003