* 00050001 * %GOTO WPLL1; /* BILINGUAL MAPPING 00060001 MACRO 00100001 IEZWPL &DSECT=YES */ 00150001 *%WPLL1 : ; 00160001 * 00550001 */* **************************************************************** */ 00600001 */* */ 00750001 */* WTO/WTOR/MLWTO/WTP PARAMETER LIST DEFINITION */ 00800001 */* */ 00850001 */* OS/VS2 SU64, 05/23/78, LEVEL=1 */ 00900064 */* */ 00910001 */* METHOD OF ACCESS */ 00920001 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00930001 */* USING ON WPLRF GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00940001 */* PL/S - DCL WPLPTR PTR */ 00950001 */* **************************************************************** */ 01000001 *%GOTO WPLL2; /* 01010001 SPACE 01050001 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01100001 *********************************************************************** 01200001 * * 01300001 * WTOR PREFIX * 01350001 * * 01400001 *********************************************************************** 01450001 SPACE 01450401 AIF ('&DSECT' EQ 'NO').WPL0000 01452001 WPLRF DSECT , - START OF WTOR PREFIX 01454001 AGO .WPL0020 01456001 .WPL0000 ANOP 01458001 DS 0D 01460001 WPLRF EQU * - START OF WTOR PREFIX 01462001 .WPL0020 ANOP 01464001 SPACE 01500001 WPLRPTR DS 0A - POINTER TO REPLY BUFFER 01550001 WPLRLN DS FL1 - MAXIMUM LENGTH OF REPLY 01600001 WPLRPTRA DS AL3 - ADDRESS OF REPLY BUFFER 01650001 WPLRECB DS A - ADDRESS OF REPLY ECB 01700001 SPACE 01750001 *********************************************************************** 01800001 * * 01850001 * COMMON SECTION * 01900001 * * 01950001 *********************************************************************** 02000001 SPACE 02002001 ORG WPLRF 02010001 SPACE 02050001 WPL EQU * - START OF COMMON SECTION 02060001 WPLLGH DS H - MESSAGE LENGTH (COMBINED LENGTH OF 02100001 * MESSAGE TEXT, MESSAGE LENGTH FIELD, 02150001 * AND MCS FLAGS FIELD) 02200001 WPLMCSF DS 0BL2 - MCS FLAGS 02250001 WPLMCSF1 DS B - FIRST BYTE OF MCS FLAGS 02300001 WPLMCSFA EQU BIT0 - ROUTE/DESCRIPTOR CODE FIELDS PRESENT 02350001 WPLMCSFB EQU BIT1 - QUEUE TO CONSOLE IF ACTIVE (ID IN REG 0) 02400001 WPLMCSFC EQU BIT2 - COMMAND RESPONSE 02450001 WPLMCSFD EQU BIT3 - MESSAGE TYPE FIELD EXISTS 02500001 WPLMCSFE EQU BIT4 - THIS WPL IS A REPLY TO A WTOR 02550001 WPLMCSFF EQU BIT5 - BROADCAST THIS MSG TO ALL ACTIVE 02600001 * CONSOLES 02650001 WPLMCSFG EQU BIT6 - QUEUE TO HARD COPY ONLY 02700001 WPLMCSFH EQU BIT7 - QUEUE UNCONDITIONALLY TO CONSOLE (ID IN 02750001 * REG 0) 02800001 WPLMCSF2 DS B - SECOND BYTE OF MCS FLAGS 02850001 WPLMCSFI EQU BIT0 - DO NOT TIME STAMP THIS MESSAGE 02900001 WPLMCSFJ EQU BIT1 - MLWTO INDICATOR 02950001 WPLMCSFK EQU BIT2 - IF ON, THE TEXT IN THIS WPL IS TO BE 02960002 * ROUTED TO THE JOB'S PRINTER ONLY 02962002 * (OS/VS1) MDC003 02964002 WPLNOWTP EQU BIT3 - DO NOT ISSUE WRITE TO PROGRAMMER (WTP) 02970002 * (OS/VS1) (MDC004) XM4455 02975002 WPLRSV03 EQU BIT4,,C'X' - RESERVED 02980001 WPLMCSFN EQU BIT5 - BYPASS QUEUING MESSAGE TO HARD COPY 03000001 WPLRSV04 EQU BIT6,,C'X' - RESERVED 03002001 WPLRSV05 EQU BIT7,,C'X' - RESERVED 03004001 SPACE 03010001 WPLTXT DS 0CL126 - MESSAGE TEXT (MAXIMUM 126 CHARACTERS) 03050001 DS CL125 - MESSAGE TEXT 03060001 WPLTXTL DS C - LAST BYTE OF MESSAGE TEXT 03070001 SPACE 03100001 * THE FOLLOWING FIELDS BEGIN IMMEDIATELY FOLLOWING THE LAST 03150001 * BYTE OF MESSAGE TEXT 03200001 SPACE 03250001 ORG WPLRF 03252001 SPACE 03254001 WPLFLGS EQU * - START OF WPL FLAGS FIELDS 03260001 WPLDESC DS 0BL2 - DESCRIPTOR CODES 03300001 WPLDESC1 DS B - FIRST BYTE OF DESCRIPTOR CODES 03350001 WPLDESCA EQU BIT0 - SYSTEM FAILURE MESSAGE 03400001 WPLDESCB EQU BIT1 - IMMEDIATE ACTION REQUIRED MESSAGE 03450001 WPLDESCC EQU BIT2 - EVENTUAL ACTION REQUIRED MESSAGE 03500001 WPLDESCD EQU BIT3 - SYSTEM STATUS MESSAGE 03510001 WPLDESCE EQU BIT4 - IMMEDIATE COMMAND RESPONSE MESSAGE 03520001 WPLDESCF EQU BIT5 - JOB STATUS MESSAGE 03530001 WPLDESCG EQU BIT6 - APPLICATION PROGRAM/PROCESSOR MESSAGE 03540001 WPLDESCH EQU BIT7 - OUT-OF-LINE MESSAGE 03542001 WPLDESC2 DS B - SECOND BYTE OF DESCRIPTOR CODES 03550001 WPLDESCI EQU BIT0 - DESCRIPTOR CODE 9 03600001 WPLDESCJ EQU BIT1 - DESCRIPTOR CODE 10 (OS/VS2) MDC002 03610002 WPLDESCK EQU BIT2 - CRITICAL EVENTUAL ACTION MESSAGE - 03612064 * DESCRIPTOR CODE 11 (MDC300) @G64DP9A 03614064 WPLRSV08 EQU BIT3,,C'X' - RESERVED 03620001 WPLRSV09 EQU BIT4,,C'X' - RESERVED 03630001 WPLRSV10 EQU BIT5,,C'X' - RESERVED 03640001 WPLRSV11 EQU BIT6,,C'X' - RESERVED 03642001 WPLRSV12 EQU BIT7,,C'X' - RESERVED 03644001 SPACE 03650001 WPLROUT DS 0BL2 - ROUTING CODES 03660001 * THESE CODES INDICATE THE FUNCTIONAL 03662001 * AREA OR AREAS TO WHICH A MESSAGE IS TO 03664001 * BE SENT. 03666001 WPLROUT1 DS B - 1ST BYTE OF ROUTING CODES 03670001 WPLROUTA EQU BIT0 - MASTER CONSOLE 03680001 WPLROUTB EQU BIT1 - MASTER CONSOLE INFORMATIONAL 03690001 WPLROUTC EQU BIT2 - TAPE POOL 03692001 WPLROUTD EQU BIT3 - DIRECT ACCESS POOL 03694001 WPLROUTE EQU BIT4 - TAPE LIBRARY 03696001 WPLROUTF EQU BIT5 - DISK LIBRARY 03698001 WPLROUTG EQU BIT6 - UNIT RECORD POOL 03698401 WPLROUTH EQU BIT7 - TELEPROCESSING CONTROL 03698801 WPLROUT2 DS B - 2ND BYTE OF ROUTING CODES 03699201 WPLROUTI EQU BIT0 - SYSTEM SECURITY 03699601 WPLROUTJ EQU BIT1 - SYSTEM/ERROR MAINTENANCE 03699701 WPLROUTK EQU BIT2 - PROGRAMMER INFORMATION 03699801 WPLROUTL EQU BIT3 - EMULATOR INFORMATION 03699901 WPLROUTM EQU BIT4 - USER ROUTING CODE 03716601 WPLROUTN EQU BIT5 - USER ROUTING CODE 03726601 WPLROUTO EQU BIT6 - USER ROUTING CODE 03728601 WPLRSV13 EQU BIT7,,C'X' - RESERVED 03729001 SPACE 03730601 WPLMSGTY DS 0BL2 - MESSAGE TYPE FLAGS 03733301 WPLMSGT1 DS B - FIRST BYTE OF MESSAGE TYPE FLAGS 03743301 WPLMSGTA EQU BIT0 - DISPLAY JOBNAMES 03745301 WPLMSGTB EQU BIT1 - DISPLAY STATUS 03747301 WPLMSGTC EQU BIT2 - MONITOR ACTIVE (OS/VS1) MDC001 03749302 WPLMSGTD EQU BIT3 - INDICATES EXISTENCE OF QID FIELD IN 03749401 * WPL (OS/VS1) ICB467 03757802 WPLRSV14 EQU BIT4,,C'X' - RESERVED 03766401 WPLMSGTF EQU BIT5 - MONITOR SESS 03774801 WPLRSV15 EQU BIT6,,C'X' - RESERVED 03776801 WPLRSV16 EQU BIT7,,C'X' - RESERVED 03778801 WPLMSGT2 DS B - SECOND BYTE OF MESSAGE TYPE FLAGS 03783201 WPLRSV25 EQU BIT0,,C'X' - RESERVED 03783601 WPLRSV26 EQU BIT1,,C'X' - RESERVED 03784001 WPLRSV27 EQU BIT2,,C'X' - RESERVED 03784401 WPLRSV28 EQU BIT3,,C'X' - RESERVED 03784801 WPLRSV29 EQU BIT4,,C'X' - RESERVED 03784901 WPLRSV30 EQU BIT5,,C'X' - RESERVED 03785001 WPLRSV31 EQU BIT6,,C'X' - RESERVED 03785101 WPLRSV32 EQU BIT7,,C'X' - RESERVED 03786701 WPLQID DS H - STATION IDENTIFICATION FOR RES SUPPORT 03788401 * (OS/VS1) ICB467 03790064 SPACE 03791601 *********************************************************************** 03800001 * * 03850001 * MLWTO EXTENSION * 03900001 * * 03950001 *********************************************************************** 04000001 SPACE 04050001 * THE FOLLOWING FIELDS ARE ALWAYS PRESENT WHEN MLWTO 04060001 * IS SPECIFIED 04062001 SPACE 04070001 ORG WPLRF 04120001 SPACE 04130001 WPLLTF DS 0BL2 - LINE TYPE FLAGS FOR WPLTXT 04150001 WPLLTF1 DS B - 1ST BYTE OF WPLTXT LINE TYPE FLAGS 04200001 WPLLTFA EQU BIT0 - CONTROL LINE 04250001 WPLLTFB EQU BIT1 - LABEL LINE 04300001 WPLLTFC EQU BIT2 - DATA LINE 04350001 WPLLTFD EQU BIT3 - END LINE 04400001 WPLRSV17 EQU BIT4,,C'X' - RESERVED 04410001 WPLRSV18 EQU BIT5,,C'X' - RESERVED 04420001 WPLRSV19 EQU BIT6,,C'X' - RESERVED 04430001 WPLRSV20 EQU BIT7,,C'X' - RESERVED 04440001 WPLLTF2 DS B - 2ND BYTE OF WPLTXT LINE TYPE FLAGS 04450001 WPLAREA DS C - AREA IDENTIFICATION 04500001 WPLLINES DS FL1 - NUMBER OF LINES (1 + NUMBER OF WPLMLTXT 04550001 * LINES) 04560001 SPACE 04600001 * THE FOLLOWING FIELDS ARE OPTIONAL FOR MLWTO. THEY REPRESENT 04610001 * A MAPPING OF THE ENTRIES DESCRIBING MESSAGE TEXT LINES 04620001 * CREATED IN ADDITION TO THE WPLTXT MESSAGE TEXT LINE 04630001 SPACE 04640001 ORG WPLRF 04640401 SPACE 04640801 WPLML EQU * - START OF ADDITIONAL MLWTO LINE ENTRY 04642001 WPLML0 DS FL1 - ALWAYS ZERO 04650001 WPLMLLEN DS FL1 - MESSAGE LENGTH FOR THIS LINE (LENGTH OF 04700001 * MESSAGE TEXT + 4) 04750001 WPLMLLTF DS 0BL2 - TYPE FLAGS FOR THIS LINE (WPLMLTXT) 04800001 WPLMLLT1 DS B - 1ST BYTE OF LINE TYPE FLAGS FOR 04900001 * WPLMLTXT 04910001 WPLMLLTA EQU BIT0 - CONTROL LINE 04950001 WPLMLLTB EQU BIT1 - LABEL LINE 05000001 WPLMLLTC EQU BIT2 - DATA LINE 05050001 WPLMLLTD EQU BIT3 - END LINE 05100001 WPLRSV21 EQU BIT4,,C'X' - RESERVED 05102001 WPLRSV22 EQU BIT5,,C'X' - RESERVED 05104001 WPLRSV23 EQU BIT6,,C'X' - RESERVED 05106001 WPLRSV24 EQU BIT7,,C'X' - RESERVED 05108001 WPLMLLT2 DS B - 2ND BYTE OF LINE TYPE FLAGS FOR 05110001 * WPLMLTXT 05120001 SPACE 05130001 WPLMLTXT DS CL126 - MESSAGE TEXT FOR THIS LINE (MAXIMUM 126 05150001 * CHARACTERS) 05200001 MEND , */ 05250001 *%WPLL2: ; 05300001 * 05750001 * @SPACE(2); /* @G64DP9A*/ 05800064 */********************************************************************/ 05850001 */* */ 05900001 */* WTOR PREFIX */ 05950001 */* */ 06100001 */********************************************************************/ 06150001 * 06200001 *DECLARE 06250001 * 1 WPLRF BASED(WPLPTR) BDY(WORD), /* START OF WTOR PREFIX */ 06300001 * 2 WPLRPTR PTR(31), /* POINTER TO REPLY BUFFER */ 06350001 * 3 WPLRLN PTR(8), /* MAXIMUM LENGTH OF REPLY */ 06400001 * 3 WPLRPTRA PTR(24), /* ADDRESS OF REPLY BUFFER */ 06450001 * 2 WPLRECB PTR(31); /* ADDRESS OF REPLY ECB */ 06500001 * 06550001 */********************************************************************/ 06600001 */* */ 06650001 */* COMMON SECTION */ 06700001 */* */ 06750001 */********************************************************************/ 06800001 * 06850001 *DECLARE 06900001 * 1 WPL BASED(WPLPTR) BDY(WORD), /* START OF COMMON SECTION */ 06950001 * 2 WPLLGH FIXED(15), /* MESSAGE LENGTH (4 + 07000001 * MESSAGE TEXT LENGTH */ 07050001 * 2 WPLMCSF CHAR(2), /* MCS FLAGS */ 07100001 * 3 WPLMCSF1 BIT(8), /* 1ST BYTE OF MCS FLAGS */ 07150001 * 4 WPLMCSFA BIT(1), /* ROUTE/DESCRIPTOR CODE 07200001 * FIELDS PRESENT */ 07250001 * 4 WPLMCSFB BIT(1), /* QUEUE TO CONSOLE IF ACTIVE 07300001 * (ID IN REG 0) */ 07350001 * 4 WPLMCSFC BIT(1), /* COMMAND RESPONSE */ 07400001 * 4 WPLMCSFD BIT(1), /* MESSAGE TYPE FIELD EXISTS*/ 07450001 * 4 WPLMCSFE BIT(1), /* THIS WPL IS A REPLY TO A 07500001 * WTOR */ 07550001 * 4 WPLMCSFF BIT(1), /* BROADCAST THIS MESSAGE 07600001 * TO ALL ACTIVE CONSOLES */ 07650001 * 4 WPLMCSFG BIT(1), /* QUEUE TO HARD COPY ONLY */ 07700001 * 4 WPLMCSFH BIT(1), /* QUEUE UNCONDITIONALLY 07750001 * TO CONSOLE (ID IN REG 0) */ 07800001 * 3 WPLMCSF2 BIT(8), /* 2ND BYTE OF MCS FLAGS */ 07850001 * 4 WPLMCSFI BIT(1), /* DO NOT TIME STAMP THIS 07900001 * MESSAGE */ 07950001 * 4 WPLMCSFJ BIT(1), /* MLWTO INDICATOR */ 08000001 * 4 WPLMCSFK BIT(1), /* IF ON, THE TEXT IN THIS 08050002 * WPL IS TO BE ROUTED TO 08052002 * THE JOB'S PRINTER ONLY 08054002 * (OS/VS1) MDC003*/ 08056002 * 4 WPLNOWTP BIT(1), /* DO NOT ISSUE WRITE TO 08060002 * PROGRAMMER (WTP) (OS/VS1) 08063002 * (MDC004) XM4455*/ 08066002 * 4 WPLRSV03 BIT(1), /* RESERVED */ 08070001 * 4 WPLMCSFN BIT(1), /* BYPASS QUEUING MESSAGE 08100001 * TO HARD COPY */ 08150001 * 4 WPLRSV04 BIT(1), /* RESERVED */ 08200001 * 4 WPLRSV05 BIT(1), /* RESERVED */ 08210001 * 2 WPLTXT CHAR(126) BDY(WORD), /* MESSAGE TEXT (MAXIMUM 08250001 * 126 CHARACTERS */ 08300001 * 3 * CHAR(125), /* MESSAGE TEXT */ 08310001 * 3 WPLTXTL CHAR(1); /* LAST BYTE OF MESSAGE 08320001 * TEXT */ 08330001 * 08350001 */* THE FOLLOWING FIELDS BEGIN IMMEDIATELY FOLLOWING THE LAST */ 08400001 */* CHARACTER (BYTE) OF MESSAGE TEXT IN WPLTXT */ 08450001 * 08500001 *DECLARE 08550001 * 1 WPLFLGS BASED(WPLPTR) BDY(BYTE), /* START OF WPL FLGS FIELDS */ 08600001 * 2 WPLDESC CHAR(2), /* DESCRIPTOR CODES */ 08650001 * 08700001 */* DESCRIPTOR CODES ARE USED TO FUNCTIONALLY CLASSIFY WTO AND */ 08750001 */* WTOR MESSAGES. */ 08800001 * 08850001 * 3 WPLDESC1 BIT(8), /* 1ST BYTE OF DESCRIPTOR 08900001 * CODES */ 08950001 * 4 WPLDESCA BIT(1), /* SYSTEM FAILURE MESSAGE */ 09000001 * 4 WPLDESCB BIT(1), /* IMMEDIATE ACTION 09050001 * REQUIRED MESSAGE */ 09100001 * 4 WPLDESCC BIT(1), /* EVENTUAL ACTION 09150001 * REQUIRED MESSAGE */ 09200001 * 4 WPLDESCD BIT(1), /* SYSTEM STATUS MESSAGE */ 09250001 * 4 WPLDESCE BIT(1), /* IMMEDIATE COMMAND 09300001 * RESPONSE MESSAGE */ 09350001 * 4 WPLDESCF BIT(1), /* JOB STATUS MESSAGE */ 09400001 * 4 WPLDESCG BIT(1), /* APPLICATION PROGRAM/ 09450001 * PROCESSOR MESSAGE */ 09500001 * 4 WPLDESCH BIT(1), /* OUT-OF-LINE MESSAGE */ 09550001 * 3 WPLDESC2 BIT(8), /* 2ND BYTE OF DESCRIPTOR 09600001 * CODES */ 09650001 * 4 WPLDESCI BIT(1), /* DESCRIPTOR CODE 9 */ 09700001 * 4 WPLDESCJ BIT(1), /* DESCRIPTOR CODE 10 09750002 * (OS/VS2) MDC002*/ 09752002 * 4 WPLDESCK BIT(1), /* CRITICAL EVENTUAL ACTION 09760064 * MESSAGE - DESCRIPTOR CODE 09762064 * 11 (MDC300) @G64DP9A*/ 09764064 * 4 WPLRSV08 BIT(1), /* RESERVED */ 09770001 * 4 WPLRSV09 BIT(1), /* RESERVED */ 09780001 * 4 WPLRSV10 BIT(1), /* RESERVED */ 09790001 * 4 WPLRSV11 BIT(1), /* RESERVED */ 09792001 * 4 WPLRSV12 BIT(1), /* RESERVED */ 09794001 * 09800001 * 2 WPLROUT CHAR(2), /* ROUTING CODES */ 09850001 * 09860001 */* THESE CODES INDICATE THE FUNCTIONAL AREA OR AREAS TO WHICH */ 09900001 */* A MESSAGE IS TO BE SENT */ 09950001 * 09960001 * 3 WPLROUT1 BIT(8), /* 1ST BYTE OF ROUTING CODES*/ 10000001 * 4 WPLROUTA BIT(1), /* MASTER CONSOLE */ 10050001 * 4 WPLROUTB BIT(1), /* MASTER CONSOLE INFO */ 10100001 * 4 WPLROUTC BIT(1), /* TAPE POOL */ 10150001 * 4 WPLROUTD BIT(1), /* DIRECT ACCESS POOL */ 10200001 * 4 WPLROUTE BIT(1), /* TAPE LIBRARY */ 10250001 * 4 WPLROUTF BIT(1), /* DISK LIBRARY */ 10300001 * 4 WPLROUTG BIT(1), /* UNIT RECORD POOL */ 10350001 * 4 WPLROUTH BIT(1), /* TELEPROCESSING CONTROL */ 10400001 * 3 WPLROUT2 BIT(8), /* 2ND BYTE OF ROUTING CODES*/ 10450001 * 4 WPLROUTI BIT(1), /* SYSTEM SECURITY */ 10500001 * 4 WPLROUTJ BIT(1), /* SYSTEM/ERROR MAINTENANCE */ 10550001 * 4 WPLROUTK BIT(1), /* PROGRAMMER INFORMATION */ 10600001 * 4 WPLROUTL BIT(1), /* EMULATOR INFORMATION */ 10650001 * 4 WPLROUTM BIT(1), /* USER ROUTING CODE */ 10700001 * 4 WPLROUTN BIT(1), /* USER ROUTING CODE */ 10710001 * 4 WPLROUTO BIT(1), /* USER ROUTING CODE */ 10720001 * 4 WPLRSV13 BIT(1), /* RESERVED */ 10850001 * 10900001 * 2 WPLMSGTY CHAR(2), /* MESSAGE TYPE FLAGS */ 10950001 * 3 WPLMSGT1 BIT(8), /* 1ST BYTE OF MESSAGE 10970001 * TYPE FLAGS */ 10980001 * 4 WPLMSGTA BIT(1), /* DISPLAY JOBNAMES */ 10990001 * 4 WPLMSGTB BIT(1), /* DISPLAY STATUS */ 10992001 * 4 WPLMSGTC BIT(1), /* MONITOR ACTIVE 10994002 * (OS/VS1) MDC001*/ 10994102 * 4 WPLMSGTD BIT(1), /* INDICATES EXISTENCE OF 10994401 * QID FIELD IN WPL 10994801 * (OS/VS1) ICB467*/ 10995202 * 4 WPLRSV14 BIT(1), /* RESERVED */ 10996001 * 4 WPLMSGTF BIT(1), /* MONITOR SESS */ 10998001 * 4 WPLRSV15 BIT(1), /* RESERVED */ 10998401 * 4 WPLRSV16 BIT(1), /* RESERVED */ 10998501 * 3 WPLMSGT2 BIT(8), /* 2ND BYTE OF MESSAGE 10998801 * TYPE FLAGS */ 10999201 * 4 WPLRSV25 BIT(1), /* RESERVED */ 10999301 * 4 WPLRSV26 BIT(1), /* RESERVED */ 10999401 * 4 WPLRSV27 BIT(1), /* RESERVED */ 10999501 * 4 WPLRSV28 BIT(1), /* RESERVED */ 11007901 * 4 WPLRSV29 BIT(1), /* RESERVED */ 11009901 * 4 WPLRSV30 BIT(1), /* RESERVED */ 11011901 * 4 WPLRSV31 BIT(1), /* RESERVED */ 11013901 * 4 WPLRSV32 BIT(1), /* RESERVED */ 11015901 * 2 WPLQID FIXED(15) BDY(BYTE); /* STATION IDENTIFICATION 11016401 * FOR RES SUPPORT 11024801 * (OS/VS1) ICB467*/ 11033264 * 11041601 */********************************************************************/ 11050001 */* */ 11100001 */* MLWTO EXTENSION */ 11150001 */* */ 11200001 */********************************************************************/ 11250001 * 11300001 * /* THE FOLLOWING FIELDS ARE ALWAYS PRESENT WHEN MLWTO IS */ 11350001 * /* SPECIFIED. */ 11360001 * 11400001 *DECLARE 11410001 * 1 WPLLS01 BASED(WPLPTR) BDY(BYTE), 11420001 * 2 WPLLTF CHAR(2), /* LINE TYPE FLAGS FOR MSG 11450001 * TEXT IN WPLTXT */ 11500001 * 3 WPLLTF1 BIT(8), /* 1ST BYTE OF LINE TYPE 11550001 * FLAGS FOR WPLTXT */ 11600001 * 4 WPLLTFA BIT(1), /* CONTROL LINE */ 11650001 * 4 WPLLTFB BIT(1), /* LABEL LINE */ 11700001 * 4 WPLLTFC BIT(1), /* DATA LINE */ 11800001 * 4 WPLLTFD BIT(1), /* END LINE */ 11850001 * 4 WPLRSV17 BIT(1), /* RESERVED */ 11900001 * 4 WPLRSV18 BIT(1), /* RESERVED */ 11910001 * 4 WPLRSV19 BIT(1), /* RESERVED */ 11920001 * 4 WPLRSV20 BIT(1), /* RESERVED */ 11930001 * 3 WPLLTF2 BIT(8), /* 2ND BYTE OF LINE TYPE 11950001 * FLAGS FOR WPLTXT */ 12000001 * 2 WPLAREA CHAR(1), /* AREA IDENTIFICATION */ 12100001 * 2 WPLLINES PTR(8); /* NUMBER OF LINES (1 + 12150001 * NUMBER OF WPLMLTXT LINES)*/ 12200001 * 12250001 * /* THE FOLLOWING FIELDS ARE OPTIONAL FOR MLWTO. THEY REPRE- */ 12300001 * /* SENT A MAPPING OF THE ENTRIES DESCRIBING MESSAGE TEXT LINES */ 12350001 * /* CREATED IN ADDITION TO THE WPLTXT MESSAGE TEXT LINE. */ 12400001 * 12450001 *DECLARE 12500001 * 1 WPLML BASED(WPLPTR) BDY(WORD), /* START OF ADDITIONAL MSG 12550001 * TEXT LINE ENTRY */ 12600001 * 2 WPLML0 PTR(8), /* HIGH-ORDER BYTE OF LENGTH 12650001 * FIELD FOR WPLMLTXT (ALWAYS 12700001 * ZERO) */ 12750001 * 2 WPLMLLEN PTR(8), /* LENGTH OF ADDITIONAL MSG 12800001 * TEXT LINE ENTRY (4 + 12850001 * LENGTH OF WPLMLTXT TEXT) */ 12900001 * 2 WPLMLLTF CHAR(2), /* LINE TYPE FLAGS FOR 12950001 * WPLMLTXT TEXT */ 13000001 * 3 WPLMLLT1 BIT(8), /* 1ST BYTE OF LINE TYPE 13050001 * FLAGS FOR WPLMLTXT */ 13100001 * 4 WPLMLLTA BIT(1), /* CONTROL LINE */ 13150001 * 4 WPLMLLTB BIT(1), /* LABEL LINE */ 13200001 * 4 WPLMLLTC BIT(1), /* DATA LINE */ 13250001 * 4 WPLMLLTD BIT(1), /* END LINE */ 13300001 * 4 WPLRSV21 BIT(1), /* RESERVED */ 13350001 * 4 WPLRSV22 BIT(1), /* RESERVED */ 13352001 * 4 WPLRSV23 BIT(1), /* RESERVED */ 13354001 * 4 WPLRSV24 BIT(1), /* RESERVED */ 13356001 * 3 WPLMLLT2 BIT(8), /* 2ND BYTE OF LINE TYPE 13360001 * FLAGS FOR WPLMLTXT */ 13370001 * 13390001 * 2 WPLMLTXT CHAR(126); /* ADDITIONAL LINE MESSAGE 13400001 * TEXT (MAX 126 CHARS) */ 13450001 * 13500001 * /************************** END OF WPL *****************************/ 13550001