* 00050002 * %GOTO WQEL1; /* BILINGUAL MAPPING 00060002 MACRO 00100002 IHAWQE &DSECT=YES,&FORMAT=OLD */ 00150002 *%WQEL1 : ; 00160002 * 00550002 */* **************************************************************** */ 00600002 */* */ 00750002 */* WRITE-TO-OPERATOR QUEUE ELEMENT (WQE) DEFINITIONS */ 00800002 */* */ 00850002 */* OS/VS2 SYSTEM CONTROL PROGRAM 2, 08/24/79, LEVEL=04 @ZA38566*/ 00900046 */* */ 00910002 */* METHOD OF ACCESS */ 00920002 */* PL/S - DCL (WQEPTR,WMJPTR,WMNPTR) PTR */ 00930002 */* BAL - DSECT(S) ARE PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00940002 */* USING ON DSECT NAME GIVES ADDRESSABILITY FOR ALL */ 00950002 */* SYMBOLS IN THAT DSECT. IF FORMAT=OLD IS SPECIFIED */ 00952002 */* OR DEFAULTED, 1 DSECT CALLED WQE IS PRODUCED. */ 00954002 */* IF FORMAT=NEW IS SPECIFIED, 3 DSECTS ARE PRODUCED, */ 00956002 */* AND THEY ARE */ 00958002 */* WQE - NORMAL WQE */ 00958402 */* WQEMAJ - MAJOR WQE */ 00958802 */* WQEMIN - MINOR WQE */ 00959202 */* */ 00960002 */* CHANGE ACTIVITY = ZA26741,ZA38566,G64DPSS */ 00979946 */* **************************************************************** */ 01000002 *%GOTO WQEL2; /* 01020002 SPACE 01050002 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01100002 *********************************************************************** 01200002 * * 01250002 * WQE (NORMAL FORMAT) * 01300002 * * 01350002 *********************************************************************** 01400002 SPACE 01400402 AIF ('&DSECT' EQ 'NO').WQE0000 01402002 WQE DSECT 01404002 AGO .WQE0020 01406002 .WQE0000 ANOP 01408002 DS 0D 01410002 WQE EQU * 01412002 .WQE0020 ANOP 01414002 SPACE 01450002 WQELKP DS 0A - LINKAGE POINTER 01500002 WQEUSE DS FL1 - WQE USE COUNT 01550002 WQELKPA DS AL3 - ADDRESS OF NEXT WQE IN CHAIN 01600002 WQENBR DS F - MESSAGE LENGTH (CCW COUNT FIELD) 01650002 WQERR DS CL4 - ROUTE CODES YO2710 01662002 WQEPAD DS C - BLANK Y02710 01670002 WQETS DS CL8 - TIME STAMP Y02710 01680002 WQEPAD1 DS C - BLANK Y02710 01690002 WQEJOBNM DS CL8 JOBNAME INSERTED BY SUBSYSTEM Y02710 01692002 WQEPAD2 DS CL1 BLANK Y02710 01694002 WQETXT DS 0CL128 - MESSAGE TEXT (MAX 128 BYTES) 01700002 DS CL127 01750002 WQETXTL DS C - LAST BYTE OF MESSAGE TEXT 01800002 WQEPAD3 DS C - EXTRA BYTE SO REMAINING FIELDS ARE Y02710 01810002 * ON A WORD BOUNDRY Y02710 01820002 SPACE 01850002 WQEXA DS B - DISPOSITION FLAGS 01900002 WQEPURGE EQU BIT0 - PURGE THIS WQE 01950002 WQEQFHC EQU BIT1 - QUEUE FOR HARD COPY 02000002 WQEORE EQU BIT2 - ORE EXISTS FOR THIS WQE Y02710 02050002 WQEQDFHC EQU BIT3 - QUEUED FOR HARD COPY 02100002 WQEWTOR EQU BIT4 - WQE CREATED FOR WTOR 02150002 WQEDOM EQU BIT5 - MESSAGE TO BE DOM'ED Y02710 02160002 WQESUSP EQU BIT6 - PROCESSING TEMPORARILY SUSPENDED Y02710 02162002 WQEAUTH EQU BIT7 - MESSAGE ISSUED BY AUTHORIZED USER Y02710 02170002 SPACE 02200002 WQEASID DS CL2 - ASID OF USER Y02710 02250002 SPACE 02400002 WQEAVAIL DS B - BUFFER STATUS FLAGS 02450002 WQEBUFA EQU BIT0 - BUFFER IS FREE 02500002 WQEBUFB EQU BIT1 - BUFFER IS IN USE 02550002 WQEBUFC EQU BIT2 - READY FOR HARDCOPY Y02710 02552002 WQEBUFD EQU BIT3 - BUFFER OBTAINED DYNAMICALLY 02600002 WQEBUFE EQU BIT4 - BUFFER HAS BEEN SERVICED 02650002 WQEBUFF EQU BIT5 - TPUT - TO DO Y02710 02660002 WQERSV06 EQU BIT6,,C'X' - RESERVED 02670002 WQEMTRCD EQU BIT7 - BUFFER HAS BEEN MASTER TRACED @G64MP2D 02680064 SPACE 02700002 WQETCB DS F - POINTER TO USER'S TCB Y02710 02750002 WQERTCT DS FL1 - ROUTED WQE COUNT 02850002 WQESEQN DS FL3 - 24-BIT ID SEQUENCE NUMBER 02900002 SPACE 02950002 WQEMCSF DS 0BL2 - MCS FLAGS 03000002 WQEMCSF1 DS B - FIRST BYTE OF MCS FLAGS 03050002 WQEMCSA EQU BIT0 - ROUTING AND DESCRIPTOR CODE FIELDS EXIST 03100002 WQEMCSB EQU BIT1 - QUEUE AT LEAST TO UCM ENTRY PASSED 03150002 * IN REG 0 (IF THE CONSOLE IS ACTIVE) 03152002 WQEMCSC EQU BIT2 - COMMAND RESPONSE (INCLUDES HARD COPY) 03200002 WQEMCSD EQU BIT3 - MESSAGE TYPE FLAGS FIELD EXISTS 03250002 WQEMCSE EQU BIT4 - THIS WTO IS A REPLY TO A WTOR 03300002 WQEMCSFF EQU BIT5 - BROADCAST TO ALL ACTIVE CONSOLES 03350002 WQEMCSG EQU BIT6 - QUEUE FOR HARD COPY ONLY 03400002 WQEMCSH EQU BIT7 - QUEUE UNCONDITIONALLY TO UCM ENTRY 03450002 * PASSED IN REG 0 03452002 WQEMCSF2 DS B - SECOND BYTE OF MCS FLAGS 03500002 WQEMCSI EQU BIT0 - NO TIME STAMP 03550002 WQEMCSJ EQU BIT1 - MUST BE ZERO 03552002 WQEMCSK EQU BIT2 - SUBSYSTEM USE ONLY @ZA26741 03562064 WQERSV09 EQU BIT3,,C'X' - RESERVED 03572002 WQERSV10 EQU BIT4,,C'X' - RESERVED 03582002 WQEMCSN EQU BIT5 - BYPASS QUEUING TO HARD COPY (FOR 03600002 * USERS OPERATING IN PROTECT KEY 0 ONLY) 03602002 WQEMCSO EQU BIT6 - RESERVED FOR DOM FUNCTION 03650002 WQEMCSP EQU BIT7 - RESERVED FOR GRAPHICS 03700002 SPACE 03750002 WQEMSGTP DS 0BL2 - MESSAGE TYPE FLAGS 03800002 WQEMSGT1 DS B - FIRST BYTE OF MESSAGE TYPE FLAGS 03850002 WQEMSGTA EQU BIT0 - DISPLAY JOBNAMES 03900002 WQEMSGTB EQU BIT1 - DISPLAY STATUS 03950002 WQEMSGTC EQU BIT2 - MONITOR ACTIVE 04000002 WQEMSGTD EQU BIT3 - INDICATES EXISTENCE OF QID FIELD IN 04002002 * WPL (AOS/1) ICB468 04004002 WQERSV13 EQU BIT4,,C'X' - RESERVED 04014002 WQEMSGTF EQU BIT5 - MONITOR SESS 04050002 WQERSV14 EQU BIT6,,C'X' - RESERVED 04060002 WQERSV15 EQU BIT7,,C'X' - RESERVED 04070002 WQEMSGT2 DS B - SECOND BYTE OF MESSAGE TYPE FLAGS 04100002 SPACE 04150002 WQEROUT DS 0BL2 - ROUTING CODES 04200064 * THESE CODES INDICATE THE FUNCTIONAL 04250002 * AREA OR AREAS TO WHICH A MESSAGE IS TO 04300002 * BE SENT. 04350002 WQEROUT1 DS B - 1ST BYTE OF ROUTING CODES 04400002 WQEROUTA EQU BIT0 - MASTER CONSOLE 04450002 WQEROUTB EQU BIT1 - MASTER CONSOLE INFORMATIONAL 04500002 WQEROUTC EQU BIT2 - TAPE POOL 04550002 WQEROUTD EQU BIT3 - DIRECT ACCESS POOL 04600002 WQEROUTE EQU BIT4 - TAPE LIBRARY 04650002 WQEROUTF EQU BIT5 - DISK LIBRARY 04700002 WQEROUTG EQU BIT6 - UNIT RECORD POOL 04750002 WQEROUTH EQU BIT7 - TELEPROCESSING CONTROL 04800002 WQEROUT2 DS B - 2ND BYTE OF ROUTING CODES 04850002 WQEROUTI EQU BIT0 - SYSTEM SECURITY 04900002 WQEROUTJ EQU BIT1 - SYSTEM/ERROR MAINTENANCE 04950002 WQEROUTK EQU BIT2 - PROGRAMMER INFORMATION 05000002 WQEROUTL EQU BIT3 - EMULATOR INFORMATION 05050002 WQEROUTM EQU BIT4 - USER ROUTING CODE 05100002 WQEROUTN EQU BIT5 - USER ROUTING CODE 05150002 WQEROUTO EQU BIT6 - USER ROUTING CODE 05200002 WQERSV16 EQU BIT7,,C'X' - RESERVED 05200402 SPACE 05202002 WQERSV17 DS CL2 RESERVED 05250064 WQEUCMID DS FL1 - UNIQUE UCM ENTRY ID 05300002 WQERSV18 DS FL1 - RESERVED Y02710 05350002 WQERPYID DS CL2 - REPLY ID Y02710 05400002 SPACE 05402002 WQEDESCD DS 0BL2 - DESCRIPTOR CODES 05450064 WQEDC1 DS B - FIRST BYTE OF DESCRIPTOR CODES 05500002 WQEDCA EQU BIT0 - SYSTEM FAILURE MESSAGE 05550002 WQEDCB EQU BIT1 - IMMEDIATE ACTION REQUIRED MESSAGE 05600002 WQEDCC EQU BIT2 - EVENTUAL ACTION REQUIRED MESSAGE 05650002 WQEDCD EQU BIT3 - SYSTEM STATUS MESSAGE 05700002 WQEDCE EQU BIT4 - IMMEDIATE COMMAND RESPONSE MESSAGE 05750002 WQEDCF EQU BIT5 - JOB STATUS MESSAGE 05800002 WQEDCG EQU BIT6 - APPLICATION PROGRAM/PROCESSOR MESSAGE 05850002 WQEDCH EQU BIT7 - OUT-OF-LINE MESSAGE 05900002 WQEDC2 DS B - SECOND BYTE OF DESCRIPTOR CODES 05950002 WQEDCI EQU BIT0 - DESCRIPTOR CODE 9 06000002 WQEDCJ EQU BIT1 - DESCRIPTOR CODE 10 Y02710 06000402 WQEDCK EQU BIT2 - CRITICAL EVENTUAL ACTION MSG - @G64DPSS 06000864 * DESCRIPTOR CODE 11 @G64DPSS 06000964 WQERSV21 EQU BIT3,,C'X' - RESERVED 06001202 WQERSV22 EQU BIT4,,C'X' - RESERVED 06001602 WQERSV23 EQU BIT5,,C'X' - RESERVED 06001702 WQERSV24 EQU BIT6,,C'X' - RESERVED 06001802 WQERSV25 EQU BIT7,,C'X' - RESERVED 06001902 SPACE 06002002 WQERSV26 DS CL2 - RESERVED 06050064 WQEJSTCB DS F - ADRESS OF JOB STEP TCB Y02710 06060002 WQEL EQU * - END OF WQE 06150002 WQESIZE EQU WQEL-WQE - LENGTH OF WQE 06200002 EJECT 06250002 *********************************************************************** 06300002 * * 06350002 * MAJOR WQE * 06400002 * * 06450002 *********************************************************************** 06500002 SPACE 06550002 AIF ('&DSECT' EQ 'YES' AND '&FORMAT' EQ 'NEW').WQE0100 06560002 ORG WQE 06600002 SPACE 06650002 AGO .WQE0200 06660002 .WQE0100 ANOP 06670002 WQEMAJ DSECT , - MAJOR WQE 06680002 .WQE0200 ANOP 06690002 WMJM EQU * - START OF MAJOR WQE 06700002 WMJMEXT DS 0A - POINTER TO NEXT WQE 06750002 WMJMUC DS FL1 - USE COUNT 06800002 WMJMEXTA DS AL3 - ADDRESS OF NEXT WQE 06850002 WMJMNXT EQU WMJMEXTA - ALIAS FOR WMJMEXTA 06900002 SPACE 06950002 WMJMMLW DS B - MLWTO FLAGS 07000002 WMJMMLWA EQU BIT0 - DO NOT QUEUE MLWTO TO CONSOLES 07050002 WMJMMLWB EQU BIT1 - MAJOR WQE 07100002 WMJMMLWC EQU BIT2 - MINOR WQE 07150002 WMJMMLWD EQU BIT3 - CHAIN ALTERED 07200002 WMJMMLWE EQU BIT4 - WTL ISSUED 07250002 WMJMMLWF EQU BIT5 - QUEUEING TO START AT TOP OF CHAIN 07300002 WMJMMLWG EQU BIT6 - SERVICE THIS CHAIN 07350002 WMJMMLWH EQU BIT7 - MINOR WQE QUEUED HAS NO TEXT 07400002 SPACE 07450002 WMJMAREA DS C - AREA ID 07500002 WMJMTXTL DS H - LENGTH OF TEXT 07550002 WMJMRR DS CL4 - ROUTE CODES Y02710 07610002 WMJMPAD DS C - BLANK Y02710 07650002 WMJMTS DS CL8 - TIME STAMP Y02710 07700002 WMJMPAD1 DS C - BLANK Y02710 07750002 WMJMJBNM DS CL8 - JOBNAME INSERTED BY SUBSYSTEM Y02710 07760002 WMJMPAD2 DS C - BLANK Y02710 07770002 WMJMTXT DS CL72 - MESSAGE TEXT (MAXIMUM OF 72 BYTES) 07800002 WMJMHCID DS CL4 - HARDCOPY ID 07850002 WMJMPAD3 DS C - BLANK INSERTED SO THAT REMAINING Y02710 07850402 * FIELDS ARE ON A WORD BOUNDRY. Y02710 07850802 WMJMRESA DS 2F - DUMMY MINOR CREATED BY PURGE OS/VS2 Y02710 07852002 WQERSV29 DS F - RESERVED Y02710 07862002 WQERSV30 DS H - RESERVED 07890002 SPACE 07902002 WMJMSER DS 0BL2 - LINE CONTROL FLAGS 07950002 WMJMSER1 DS B - 1ST BYTE OF LINE CONTROL FLAGS 08000002 WMJMSERA EQU BIT0 - C LINE IN MAJOR WQE 08050002 WMJMSERB EQU BIT1 - ONE LABEL LINE FOUND 08100002 WMJMSERC EQU BIT2 - TWO LABEL LINES FOUND 08150002 WMJMSERD EQU BIT3 - LAST TYPE WAS CONTROL LINE 08200002 WMJMSERE EQU BIT4 - LAST TYPE WAS LABEL LINE 08250002 WQERSV31 EQU BIT5,,C'X' - RESERVED 08260002 WQERSV32 EQU BIT6,,C'X' - RESERVED 08270002 WQERSV33 EQU BIT7,,C'X' - RESERVED 08280002 WMJMSER2 DS B - 2ND BYTE OF LINE CONTROL FLAGS 08300002 SPACE 08350002 WQERSVD2 DS BL8 - RESERVED @ZA38566 08400046 WQERSV34 DS XL2 - RESERVED ***WMJMRESB*** 08450002 SPACE 08500002 WMJMLTYP DS 0BL2 - LINE TYPE FLAGS 08550002 WMJMLTY1 DS B - 1ST BYTE OF LINE TYPE FLAGS 08600002 WMJMLTYA EQU BIT0 - CONTROL LINE 08650002 WMJMLTYB EQU BIT1 - LABEL LINE 08700002 WMJMLTYC EQU BIT2 - DATA LINE ICB433 08750002 WMJMLTYD EQU BIT3 - END LINE ICB433 08752002 WQERSV35 EQU BIT4,,C'X' - RESERVED 08762002 WQERSV36 EQU BIT5,,C'X' - RESERVED 08772002 WQERSV37 EQU BIT6,,C'X' - RESERVED 08782002 WQERSV38 EQU BIT7,,C'X' - RESERVED 08792002 WMJMLTY2 DS B - 2ND BYTE OF LINE TYPE FLAGS 08800002 SPACE 08850002 WMJMMIN DS A - ADDRESS OF FIRST MINOR WQE 08900002 WMJMAECB DS BL4 - ECB USED IN MLWTO PROCESSING Y02710 08910002 WMJMMSGN DS CL4 - MLWTO ID Y02710 08962002 SPACE 08972002 WMJMECBF DS B - STATUS FLAGS @ZA38566 08980046 WMJMWAIT EQU BIT0 - USER IS WAITING ON WMJMAECB Y02710 08981646 WMJMMAJD EQU BIT1 - SUBSYSTEM OR USERS EXIT ASKED TO *08983246 DELETE THIS MLWTO Y02710 08984846 WMJMCONS EQU BIT2 - FRAME FULL CONTROL BIT @ZA38566 08986446 WQERSVD3 EQU BIT3,,C'X' - RESERVED Y02710 08988002 WQERSVD4 EQU BIT4,,C'X' - RESERVED Y02710 08988402 WQERSVD5 EQU BIT5,,C'X' - RESERVED Y02710 08988802 WQERSVD6 EQU BIT6,,C'X' - RESERVED Y02710 08989202 WQERSVD7 EQU BIT7,,C'X' - RESERVED Y02710 08989602 WQERSVD8 DS XL3 - RESERVED Y02710 08989702 SPACE 08989802 WQERSVA4 DS F - RESERVED Y02710 08990002 WQERSVA5 DS F - RESERVED Y02710 08994002 SPACE 09050002 WMJMDSP DS B - DISPOSITION FLAGS 09100002 WMJMDSPA EQU BIT0 - PURGE THIS WQE 09150002 WMJMDSPB EQU BIT1 - QUEUE WQE TO HARDCOPY 09200002 WMJMDSPC EQU BIT2 - MUST BE ZERO 09250002 WMJMDSPD EQU BIT3 - QUEUED TO HARDCOPY 09300002 WMJMDSPE EQU BIT4 - MUST BE ZERO 09350002 WMJMDSPF EQU BIT5 - MESSAGE TO BE DOM'ED Y02710 09360002 WMJMDSPG EQU BIT6 - PROCESSING TEMPORARILY SUSPENDED Y02710 09362002 WMJMDSPH EQU BIT7 - MSG ISSUED BY AUTH USER Y02710 09364002 SPACE 09400002 WMJMASID DS CL2 - ASID OF USER Y02710 09450002 SPACE 09500002 WMJMBUF DS B - BUFFER STATUS FLAGS 09550002 WMJMBUFA EQU BIT0 - WQE AVAILABLE 09600002 WMJMBUFB EQU BIT1 - WQE IN USE 09650002 WMJMBUFC EQU BIT2 - READY FOR HARDCOPY Y02710 09660002 WMJMBUFD EQU BIT3 - WQE ACQUIRED BY GETMAIN 09700002 WMJMBUFE EQU BIT4 - WQE SERVICED 09750002 WMJMBUFF EQU BIT5 - TPUT TO DO Y02710 09760002 WMJMBUFG EQU BIT6 - TPUT DONE Y02710 09770002 WMJMTRCD EQU BIT7 - MAJOR WQE HAS BEEN MASTER TRACED @G64MP2D 09780064 SPACE 09800002 DS 0F - 09810002 WMJMTCB DS A - ADDRESS OF ISSUER'S TCB Y02710 09860002 WMJMRTCT DS FL1 - ROUTED COUNT 09900002 WMJMSEQ DS FL3 - SEQUENCE NUMBER 09950002 SPACE 10000002 WMJMCS DS 0BL2 - MCS FLAGS 10050002 WMJMCS1 DS B - 1ST BYTE OF MCS FLAGS 10100002 WMJMCS1A EQU BIT0 - ROUTE AND DESCRIPTOR CODES EXIST 10150002 WMJMCS1B EQU BIT1 - QUEUE BY ID TO ACTIVE CONSOLE 10200002 WMJMCS1C EQU BIT2 - COMMAND RESPONSE 10250002 WMJMCS1D EQU BIT3 - MESSAGE TYPE FIELD PRESENT 10300002 WMJMCS1E EQU BIT4 - ACCEPTED REPLY TO A WTOR 10350002 WMJMCS1F EQU BIT5 - BROADCAST (ROUTE TO ALL ACTIVE CONSOLES) 10400002 WMJMCS1G EQU BIT6 - QUEUE TO HARDCOPY ONLY 10450002 WMJMCS1H EQU BIT7 - QUEUE UNCONDITIONALLY BY ID 10500002 * TO CONSOLE 10550002 WMJMCS2 DS B - 2ND BYTE OF MCS FLAGS 10600002 WMJMCS2A EQU BIT0 - DO NOT TIME STAMP 10650002 WMJMCS2B EQU BIT1 - MLWTO 10700002 WMJMCS2C EQU BIT2 - SUBSYSTEM USE ONLY @ZA26741 10710064 WQERSV47 EQU BIT3,,C'X' - RESERVED 10720002 WQERSV48 EQU BIT4,,C'X' - RESERVED 10730002 WMJMCS2F EQU BIT5 - BYPASS HARDCOPY QUEUEING 10750002 WQERSV49 EQU BIT6,,C'X' - RESERVED 10760002 WQERSV11 EQU BIT7,,C'X' - RESERVED 10770002 SPACE 10800002 WMJMMT DS 0BL2 - MESSAGE TYPE FLAGS 10850002 WMJMMT1 DS B - 1ST BYTE OF MESSAGE TYPE FLAGS 10900002 WMJMMT1A EQU BIT0 - DISPLAY JOBNAMES 10950002 WMJMMT1B EQU BIT1 - DISPLAY STATUS 11000002 WQERSVA6 EQU BIT2,,C'X' - RESERVED ***WMJMMT1C*** Y02710 11050002 WMJMMT1D EQU BIT3 - MUST BE ZERO 11100002 WQERSV50 EQU BIT4,,C'X' - RESERVED 11110002 WMJMMT1F EQU BIT5 - MONITOR SESS 11150002 WQERSV51 EQU BIT6,,C'X' - RESERVED 11160002 WQERSV52 EQU BIT7,,C'X' - RESERVED 11170002 WMJMMT2 DS B - 2ND BYTE OF MESSAGE TYPE FLAGS 11200002 SPACE 11250002 WMJMRTC DS 0BL4 - ROUTING CODES 11300002 WMJMRCT1 DS B - 1ST BYTE OF ROUTING CODES 11350002 WMJMRCTA EQU BIT0 - MASTER CONSOLE 11400002 WMJMRCTB EQU BIT1 - MASTER CONSOLE INFORMATIONAL 11450002 WMJMRCTC EQU BIT2 - TAPE POOL 11500002 WMJMRCTD EQU BIT3 - DIRECT ACCESS POOL 11550002 WMJMRCTE EQU BIT4 - TAPE LIBRARY 11600002 WMJMRCTF EQU BIT5 - DISK LIBRARY 11650002 WMJMRCTG EQU BIT6 - UNIT RECORD POOL 11700002 WMJMRCTH EQU BIT7 - TELEPROCESSING CONTROL 11750002 WMJMRCT2 DS B - 2ND BYTE OF ROUTING CODES 11800002 WMJMRCTI EQU BIT0 - SYSTEM SECURITY 11850002 WMJMRCTJ EQU BIT1 - SYSTEM/ERROR MAINTENANCE 11900002 WMJMRCTK EQU BIT2 - PROGRAMMER INFORMATION 11950002 WMJMRCTL EQU BIT3 - EMULATOR INFORMATION 12000002 WMJMRCTM EQU BIT4 - USER ROUTING CODE 12050002 WMJMRCTN EQU BIT5 - USER ROUTING CODE 12100002 WMJMRCTO EQU BIT6 - USER ROUTING CODE 12150002 WQERSV53 EQU BIT7,,C'X' - RESERVED 12160002 WMJMRCT3 DS B - 3RD BYTE OF ROUTING CODES 12200002 WMJMRCT4 DS B - 4TH BYTE OF ROUTING CODES 12250002 SPACE 12300002 WMJMUID DS C - UCM ENTRY ID 12350002 WQERSV54 DS XL3 - RESERVED ***WMJMRESC*** AND 12450002 * ***WMJMLSQA*** Y02710 12460002 SPACE 12500002 WMJMDEC DS 0BL4 - DESCRIPTOR CODES 12550064 WMJMDEC1 DS B - 1ST BYTE OF DESCRIPTOR CODES 12600002 WMJMDECA EQU BIT0 - SYSTEM FAILURE MESSAGE 12650002 WMJMDECB EQU BIT1 - IMMEDIATE ACTION REQUIRED MESSAGE 12700002 WMJMDECC EQU BIT2 - EVENTUAL ACTION REQUIRED MESSAGE 12750002 WMJMDECD EQU BIT3 - SYSTEM STATUS MESSAGE 12800002 WMJMDECE EQU BIT4 - IMMEDIATE COMMAND RESPONSE MESSAGE 12850002 WMJMDECF EQU BIT5 - JOB STATUS MESSAGE 12900002 WMJMDECG EQU BIT6 - APPLICATION PROGRAM/PROCESSOR MESSAGE 12950002 WMJMDECH EQU BIT7 - OUT-OF-LINE MESSAGE 13000002 WMJMDEC2 DS B - 2ND BYTE OF DESCRIPTOR CODES 13050002 WMJMDECI EQU BIT0 - DESCRIPTOR CODE 9 13100002 WMJMDECJ EQU BIT1 - DESCRIPTOR CODE 10 Y02710 13110002 WMJMDECK EQU BIT2 - CRITICAL EVENTUAL ACTION MSG - @G64DPSS 13120064 * DESCRIPTOR CODE 11 @G64DPSS 13123064 WQERSV57 EQU BIT3,,C'X' - RESERVED 13130002 WQERSV58 EQU BIT4,,C'X' - RESERVED 13140002 WQERSV59 EQU BIT5,,C'X' - RESERVED 13142002 WQERSV60 EQU BIT6,,C'X' - RESERVED 13144002 WQERSV61 EQU BIT7,,C'X' - RESERVED 13146002 SPACE 1 @G64DPSS 13150064 WMJMDEC3 DS B - 3RD BYTE OF DESCRIPTOR CODES 13180064 WMJMDEC4 DS B - 4TH BYTE OF DESCRIPTOR CODES 13190064 SPACE 13250002 WMJMJTCB DS F - ADDRESS OF JOB STEP TCB Y02710 13300002 WMJMSIZE EQU *-WMJM - SIZE OF MAJOR WQE ICB433 13302002 EJECT 13350002 *********************************************************************** 13400002 * * 13450002 * MINOR WQE * 13500002 * * 13550002 *********************************************************************** 13600002 SPACE 13650002 AIF ('&DSECT' EQ 'YES' AND '&FORMAT' EQ 'NEW').WQE0300 13660002 ORG WQE 13700002 SPACE 13750002 AGO .WQE0400 13760002 .WQE0300 ANOP 13770002 WQEMIN DSECT , - MINOR WQE 13780002 .WQE0400 ANOP 13790002 WMNM EQU * - START OF MINOR WQE 13800002 WMNMEXT DS 0A - POINTER TO SECOND HALF OF WQE 13850002 WMNMUC1 DS FL1 - USE COUNT 1 13900002 WMNMNX1 DS AL3 - ADDRESS OF SECOND HALF OF WQE OR ZERO 13950002 SPACE 14000002 WMNMML1 DS B - MLWTO FLAGS FOR FIRST MESSAGE 14050002 WQERSV62 EQU BIT0,,C'X' - RESERVED 14060002 WMNMML1B EQU BIT1 - MAJOR WQE 14100002 WMNMML1C EQU BIT2 - MINOR WQE 14150002 WMNMML1D EQU BIT3 - CHAIN ALTERED 14200002 WMNMML1E EQU BIT4 - WTL ISSUED 14250002 WMNMML1F EQU BIT5 - MINOR WQE FOR ABEND ICB433 14252002 WMNMML1G EQU BIT6 - SERVICE THIS CHAIN 14300002 WMNMML1H EQU BIT7 - MINOR WQE ACQUIRED BY GETMAIN ICB461 14350002 SPACE 14400002 WMNMLT1 DS B - LINE TYPE FLAGS FOR FIRST MESSAGE 14450002 WMNMLT1A EQU BIT0 - CONTROL LINE 14500002 WMNMLT1B EQU BIT1 - LABEL LINE 14550002 WMNMLT1C EQU BIT2 - DATA LINE 14600002 WMNMLT1D EQU BIT3 - END INDICATOR 14650002 WQERSV63 EQU BIT4,,C'X' - RESERVED 14660002 WQERSV64 EQU BIT5,,C'X' - RESERVED 14670002 WQERSV65 EQU BIT6,,C'X' - RESERVED 14680002 WQERSV66 EQU BIT7,,C'X' - RESERVED 14690002 SPACE 14700002 WQERSV67 DS X - RESERVED 14750002 WMNMTL1 DS FL1 - LENGTH OF FIRST MESSAGE TEXT 14800002 WMNMHCT1 DS CL4 - HARDCOPY ID FOR FIRST MESSAGE 14850002 WMNMTXT1 DS CL72 - FIRST MESSAGE TEXT (MAX 72 BYTES) 14900002 WMNMST1 DS B - STATUS FLAGS Y02710 14910002 WMNMTPD1 EQU BIT0 - TPUT DONE Y02710 14920002 WMNMTRC1 EQU BIT1 - FIRST MINOR WQE HAS BEEN @G64MP2D 14930064 * MASTER TRACED @G64MP2D 14933064 WQERSVA9 EQU BIT2,,C'X' - RESERVED Y02710 14940002 WQERSVB1 EQU BIT3,,C'X' - RESERVED Y02710 14942002 WQERSVB2 EQU BIT4,,C'X' - RESERVED Y02710 14944002 WQERSVB3 EQU BIT5,,C'X' - RESERVED Y02710 14946002 WQERSVB4 EQU BIT6,,C'X' - RESERVED Y02710 14948002 WQERSVB5 EQU BIT7,,C'X' - RESERVED Y02710 14948402 SPACE 14948802 WQERSVB6 DS XL3 - RESERVED Y02710 14948902 WQERSVB7 DS 2F - RESERVED Y02710 14949202 SPACE 14949602 WMNMUC2 DS FL1 - USE COUNT 2 14950002 WMNMNX2 DS AL3 - ADDRESS OF NEXT MINOR WQE OR ZERO 15000002 SPACE 15050002 WMNMML2 DS B - MLWTO FLAGS FOR SECOND MESSAGE 15100002 WQERSV68 EQU BIT0,,C'X' - RESERVED 15110002 WMNMML2B EQU BIT1 - MAJOR WQE 15150002 WMNMML2C EQU BIT2 - MINOR WQE 15200002 WMNMML2D EQU BIT3 - CHAIN ALTERED 15250002 WMNMML2E EQU BIT4 - WTL ISSUED 15300002 WQERSV69 EQU BIT5,,C'X' - RESERVED 15310002 WMNMML2G EQU BIT6 - SERVICE THIS CHAIN 15350002 WMNMML2H EQU BIT7 - LINE 2 AVAILABLE 15400002 SPACE 15450002 WMNMLT2 DS B - LINE TYPE FLAGS FOR SECOND MESSAGE 15500002 WMNMLT2A EQU BIT0 - CONTROL LINE 15550002 WMNMLT2B EQU BIT1 - LABEL LINE 15600002 WMNMLT2C EQU BIT2 - DATA LINE 15650002 WMNMLT2D EQU BIT3 - END INDICATOR 15700002 WQERSV70 EQU BIT4,,C'X' - RESERVED 15710002 WQERSV71 EQU BIT5,,C'X' - RESERVED 15720002 WQERSV72 EQU BIT6,,C'X' - RESERVED 15730002 WQERSV73 EQU BIT7,,C'X' - RESERVED 15740002 SPACE 15750002 WQERSV74 DS X - RESERVED 15800002 WMNMTL2 DS FL1 - LENGTH OF SECOND MESSAGE TEXT 15850002 WMNMHCT2 DS CL4 - HARDCOPY ID FOR SECOND MESSAGE 15900002 WMNMTXT2 DS CL72 - SECOND MESSAGE TEXT (MAX 72 BYTES) 15950002 WMNMST2 DS B - STATUS FLAGS Y02710 15950402 WMNMTPD2 EQU BIT0 - TPUT DONE Y02710 15950802 WMNMTRC2 EQU BIT1 - SECOND MINOR WQE HAS BEEN @G64MP2D 15951264 * MASTER TRACED @G64MP2D 15951364 WQERSVB9 EQU BIT2,,C'X' - RESERVED Y02710 15951602 WQERSVC1 EQU BIT3,,C'X' - RESERVED Y02710 15951802 WQERSVC2 EQU BIT4,,C'X' - RESERVED Y02710 15951902 WQERSVC3 EQU BIT5,,C'X' - RESERVED Y02710 15977902 WQERSVC4 EQU BIT6,,C'X' - RESERVED Y02710 15979902 WQERSVC5 EQU BIT7,,C'X' - RESERVED Y02710 15981902 SPACE 15983902 WQERSVC6 DS XL3 - RESERVED Y02710 15989202 WQERSVC7 DS 2F - RESERVED Y02710 15990002 SPACE 15991202 WMNMSIZE EQU *-WMNM - SIZE OF MINOR WQE ICB433 15994702 MEND , - */ 16000002 *%WQEL2: ; 16050002 *@SPACE(2); @G64DPSS 16060064 */********************************************************************/ 16650002 */* */ 16700002 */* WQE (NORMAL FORMAT) */ 16750002 */* */ 16800002 */********************************************************************/ 16850002 * 16900002 *DECLARE 16950002 * 1 WQE BASED(WQEPTR) BDY(WORD), /* START OF WQE */ 17000002 * 2 WQELKP PTR(31), /* LINKAGE POINTER */ 17050002 * 3 WQEUSE PTR(8), /* WQE USE COUNT */ 17100002 * 3 WQELKPA PTR(24), /* ADDRESS OF NEXT WQE 17150002 * IN CHAIN */ 17200002 * 2 WQENBR FIXED(31), /* MESSAGE LENGTH (CCW 17250002 * COUNT FIELD) */ 17300002 * 2 WQERR CHAR(4) BDY(WORD), /* ROUTE CODES Y02710*/ 17330402 * 2 WQEPAD CHAR(1), /* BLANK Y02710*/ 17330802 * 2 WQETS CHAR(8) BDY(WORD,2), /* TIME STAMP Y02710*/ 17332002 * 3 WQETSHH CHAR(2), /* HOURS PART OF TIME Y02710*/ 17334002 * 3 WQEPER1 CHAR(1), /* PERIOD IN TIME Y02710*/ 17336002 * 3 WQETSMM CHAR(2), /* MINUTES PART OF TS Y02710*/ 17338002 * 3 WQEPER2 CHAR(1), /* PERIOD IN TIME Y02710*/ 17340002 * 3 WQETSSS CHAR(2), /* SECONDS PART OF TS Y02710*/ 17340402 * 2 WQEPAD1 CHAR(1), /* BLANK */ 17342002 * 2 WQEJOBNM CHAR(8), /* JOBNAME INSERTED BY THE 17344002 * SUBSYSTEM Y02710*/ 17346002 * 2 WQEPAD2 CHAR(1), /* BLANK Y02710*/ 17348002 * 2 WQETXT CHAR(128) BDY(WORD,4), /* MESSAGE TEXT (MAX 128 17350002 * BYTES) */ 17400002 * 3 * CHAR(127), /* MESSAGE TEXT */ 17450002 * 3 WQETXTL CHAR(1), /* LAST BYTE OF MESSAGE 17500002 * TEXT */ 17550002 * 2 WQEPAD3 CHAR(1), /* USED TO PUT REMAINING 17560002 * FIELDS ON WORD BDY Y02710*/ 17570002 * 17600002 * 2 WQEXA BIT(8) BDY(WORD), /* DISPOSITION FLAGS */ 17650002 * 3 WQEPURGE BIT(1), /* PURGE THIS WQE */ 17700002 * 3 WQEQFHC BIT(1), /* QUEUE FOR HARD COPY */ 17750002 * 3 WQEORE BIT(1), /* AN ORE EXISTS FOR 17800002 * THIS WQE */ 17850002 * 3 WQEQDFHC BIT(1), /* QUEUED FOR HARD COPY */ 17900002 * 3 WQEWTOR BIT(1), /* WQE CREATED FOR WTOR */ 17950002 * 3 WQEDOM BIT(1), /* MESSAGE TO BE DOM'ED */ 17960002 * 3 WQESUSP BIT(1), /* PROCESSING TEMPORARILY 18000002 * SUSPENDED */ 18000402 * 3 WQEAUTH BIT(1), /* MSG ISSUED BY AUTH USER */ 18010002 * 18050002 * 2 WQEASID CHAR(2), /* ASID OF USER */ 18100002 * 18300002 * 2 WQEAVAIL BIT(8), /* BUFFER STATUS FLAGS */ 18350002 * 3 WQEBUFA BIT(1), /* BUFFER IS FREE */ 18400002 * 3 WQEBUFB BIT(1), /* BUFFER IS IN USE */ 18450002 * 3 WQEBUFC BIT(1), /* READY FOR HARDCOPY 18460002 * Y02710*/ 18470064 * 3 WQEBUFD BIT(1), /* BUFFER OBTAINED 18550002 * DYNAMICALLY */ 18600002 * 3 WQEBUFE BIT(1), /* BUFFER HAS BEEN SERVICED */ 18650002 * 3 WQEBUFF BIT(1), /* TPUT TO DO */ 18700002 * 3 WQERSV06 BIT(1), /* RESERVED */ 18710002 * 3 WQEMTRCD BIT(1), /* BUFFER HAS BEEN MASTER 18720064 * TRACED @G64MP2D*/ 18730064 * 18750002 * 2 WQETCB PTR(31), /* ADDRESS OF USER'S TCB */ 18800002 * 2 WQERTCT PTR(8) BDY(WORD), /* ROUTED WQE COUNT */ 18950002 * 2 WQESEQN PTR(24), /* 24-BIT ID SEQUENCE 19000002 * NUMBER */ 19050002 * 19100002 * 2 WQEMCSF CHAR(2) BDY(WORD), /* MCS FLAGS */ 19150002 * 3 WQEMCSF1 BIT(8), /* FIRST BYTE OF MCS FLAGS */ 19200002 * 4 WQEMCSA BIT(1), /* ROUTING AND DESCRIPTOR 19250002 * CODE FIELDS EXIST */ 19300002 * 4 WQEMCSB BIT(1), /* QUEUE AT LEAST TO THE UCM 19350002 * ENTRY PASSED IN REG 0 (IF 19400002 * THE CONSOLE IS ACTIVE) */ 19402002 * 4 WQEMCSC BIT(1), /* COMMAND RESPONSE 19450002 * (INCLUDES HARD COPY) */ 19500002 * 4 WQEMCSD BIT(1), /* MESSAGE TYPE FLAGS FIELD 19550002 * EXISTS */ 19600002 * 4 WQEMCSE BIT(1), /* THIS WTO IS A REPLY TO 19650002 * A WTOR */ 19652002 * 4 WQEMCSFF BIT(1), /* BROADCAST TO ALL ACTIVE 19700002 * CONSOLES */ 19750002 * 4 WQEMCSG BIT(1), /* QUEUE FOR HARD COPY 19800002 * ONLY */ 19850002 * 4 WQEMCSH BIT(1), /* QUEUE UNCONDITIONALLY TO 19900002 * UCM ENTRY PASSED IN REG 0*/ 19950002 * 3 WQEMCSF2 BIT(8), /* SECOND BYTE OF MCS FLAGS */ 20000002 * 4 WQEMCSI BIT(1), /* NO TIME STAMP */ 20050002 * 4 WQEMCSJ BIT(1), /* MUST BE ZERO */ 20100002 * 4 WQEMCSK BIT(1), /* SUBSYSTEM USE ONLY 20150064 * @ZA26741*/ 20153064 * 4 WQERSV09 BIT(1), /* RESERVED */ 20160002 * 4 WQERSV10 BIT(1), /* RESERVED */ 20170002 * 4 WQEMCSN BIT(1), /* BYPASS QUEUING TO HARD 20200002 * COPY (FOR USERS OPERATING 20250002 * IN PROTECT KEY 0 ONLY) */ 20252002 * 4 WQEMCSO BIT(1), /* RESERVED FOR DOM FUNCTION*/ 20300002 * 4 WQEMCSP BIT(1), /* RESERVED FOR GRAPHICS */ 20310002 * 20400002 * 2 WQEMSGTP CHAR(2), /* MESSAGE TYPE FLAGS */ 20450002 * 3 WQEMSGT1 BIT(8), /* FIRST BYTE OF MESSAGE 20500002 * TYPE FLAGS */ 20550002 * 4 WQEMSGTA BIT(1), /* DISPLAY JOBNAMES */ 20600002 * 4 WQEMSGTB BIT(1), /* DISPLAY STATUS */ 20650002 * 4 WQEMSGTC BIT(1), /* MONITOR ACTIVE */ 20700002 * 4 WQEMSGTD BIT(1), /* INDICATES EXISTENCE OF 20750002 * QID FIELD IN WPL 20752002 * (AOS/1) ICB468*/ 20754002 * 4 WQERSV13 BIT(1), /* RESERVED */ 20756002 * 4 WQEMSGTF BIT(1), /* MONITOR SESS */ 20800002 * 4 WQERSV14 BIT(1), /* RESERVED */ 20850002 * 4 WQERSV15 BIT(1), /* RESERVED */ 20860002 * 20900002 * 2 WQEROUT CHAR(2) BDY(WORD), /* ROUTING CODES (2 BYTES) */ 20950064 */* THESE CODES INDICATE THE FUNCTIONAL AREA OR AREAS TO WHICH */ 21050002 */* A MESSAGE IS TO BE SENT */ 21100002 * 21150002 * 3 WQEROUT1 CHAR(1), /* 1ST BYTE OF ROUTING CODES*/ 21200002 * 4 WQEROUTA BIT(1), /* MASTER CONSOLE */ 21250002 * 4 WQEROUTB BIT(1), /* MASTER CONSOLE INFO */ 21300002 * 4 WQEROUTC BIT(1), /* TAPE POOL */ 21350002 * 4 WQEROUTD BIT(1), /* DIRECT ACCESS POOL */ 21400002 * 4 WQEROUTE BIT(1), /* TAPE LIBRARY */ 21450002 * 4 WQEROUTF BIT(1), /* DISK LIBRARY */ 21500002 * 4 WQEROUTG BIT(1), /* UNIT RECORD POOL */ 21550002 * 4 WQEROUTH BIT(1), /* TELEPROCESSING CONTROL */ 21600002 * 3 WQEROUT2 CHAR(1), /* 2ND BYTE OF ROUTING CODES*/ 21650002 * 4 WQEROUTI BIT(1), /* SYSTEM SECURITY */ 21700002 * 4 WQEROUTJ BIT(1), /* SYSTEM/ERROR MAINTENANCE */ 21750002 * 4 WQEROUTK BIT(1), /* PROGRAMMER INFORMATION */ 21800002 * 4 WQEROUTL BIT(1), /* EMULATOR INFORMATION */ 21850002 * 4 WQEROUTM BIT(1), /* USER ROUTING CODE */ 21900002 * 4 WQEROUTN BIT(1), /* USER ROUTING CODE */ 21950002 * 4 WQEROUTO BIT(1), /* USER ROUTING CODE */ 22000002 * 4 WQERSV16 BIT(1), /* RESERVED */ 22050002 * 2 WQERSV17 FIXED(15), /* RESERVED */ 22100064 * 2 WQEUCMID PTR(8) BDY(WORD), /* UNIQUE UCM ENTRY ID */ 22220064 * 2 WQERSV18 PTR(8), /* RESERVED */ 22250064 * 2 WQERPYID CHAR(2), /* REPLY ID */ 22280064 * 2 WQEDESCD CHAR(2) BDY(WORD), /* DESCRIPTOR CODES 22310064 * (2 BYTES) */ 22330064 */* DESCRIPTOR CODES ARE USED TO FUNCTIONALLY CLASSIFY WTO AND */ 22450002 */* WTOR MESSAGES. */ 22500002 * 22550002 * 3 WQEDC1 CHAR(1), /* 1ST BYTE OF DESCRIPTOR 22600002 * CODES */ 22650002 * 4 WQEDCA BIT(1), /* SYSTEM FAILURE MESSAGE */ 22700002 * 4 WQEDCB BIT(1), /* IMMEDIATE ACTION 22750002 * REQUIRED MESSAGE */ 22800002 * 4 WQEDCC BIT(1), /* EVENTUAL ACTION 22850002 * REQUIRED MESSAGE */ 22900002 * 4 WQEDCD BIT(1), /* SYSTEM STATUS MESSAGE */ 22950002 * 4 WQEDCE BIT(1), /* IMMEDIATE COMMAND 23000002 * RESPONSE MESSAGE */ 23050002 * 4 WQEDCF BIT(1), /* JOB STATUS MESSAGE */ 23100002 * 4 WQEDCG BIT(1), /* APPLICATION PROGRAM/ 23150002 * PROCESSOR MESSAGE */ 23200002 * 4 WQEDCH BIT(1), /* OUT-OF-LINE MESSAGE */ 23250002 * 3 WQEDC2 CHAR(1), /* 2ND BYTE OF DESCRIPTOR 23300002 * CODES */ 23350002 * 4 WQEDCI BIT(1), /* DESCRIPTOR CODE 9 */ 23400002 * 4 WQEDCJ BIT(1), /* DESCRIPTOR CODE 10 23450002 * Y02710*/ 23452002 * 4 WQEDCK BIT(1), /* CRITICAL EVENTUAL ACTION 23460064 * MSG - DESCRIPTOR CODE 11 23462064 * @G64DPSS*/ 23464064 * 4 WQERSV21 BIT(1), /* RESERVED */ 23470002 * 4 WQERSV22 BIT(1), /* RESERVED */ 23480002 * 4 WQERSV23 BIT(1), /* RESERVED */ 23490002 * 4 WQERSV24 BIT(1), /* RESERVED */ 23492002 * 4 WQERSV25 BIT(1), /* RESERVED */ 23494002 * 2 WQERSV26 CHAR(2), /* RESERVED */ 23500064 * 2 WQEJSTCB PTR(31); /* ADDR OF JOB STEP TCB 23550002 * Y02710*/ 23560002 *%WQESIZE = 'LENGTH(WQE)'; /* GET LENGTH OF WQE */ 23650002 * @EJECT; @G64MP2D 23700064 */********************************************************************/ 23750002 */* */ 23800002 */* MAJOR WQE */ 23850002 */* */ 23900002 */********************************************************************/ 23950002 * 24000002 *DECLARE 24050002 * 1 WMJM BASED(WMJPTR) BDY(WORD), /* START OF MAJOR WQE */ 24100002 * 2 WMJMEXT PTR(31), /* POINTER TO NEXT WQE */ 24150002 * 3 WMJMUC PTR(8), /* USE COUNT */ 24200002 * 3 WMJMEXTA PTR(24), /* ADDRESS OF NEXT WQE */ 24250002 * 4 WMJMNXT PTR(24), /* ALIAS FOR WMJMEXTA */ 24300002 * 2 WMJMMLW BIT(8), /* MLWTO FLAGS */ 24350002 * 3 WMJMMLWA BIT(1), /* DO NOT QUEUE MLWTO TO 24400002 * CONSOLES */ 24450002 * 3 WMJMMLWB BIT(1), /* MAJOR WQE */ 24500002 * 3 WMJMMLWC BIT(1), /* MINOR WQE */ 24550002 * 3 WMJMMLWD BIT(1), /* CHAIN ALTERED */ 24600002 * 3 WMJMMLWE BIT(1), /* WTL ISSUED */ 24650002 * 3 WMJMMLWF BIT(1), /* QUEUEING TO START AT TOP 24700002 * OF CHAIN */ 24750002 * 3 WMJMMLWG BIT(1), /* SERVICE THIS CHAIN */ 24800002 * 3 WMJMMLWH BIT(1), /* MINOR WQE QUEUED HAS NO 24850002 * TEXT */ 24900002 * 2 WMJMAREA CHAR(1), /* AREA ID */ 24950002 * 2 WMJMTXTL FIXED(15), /* LENGTH OF MESSAGE TEXT */ 25000002 * 2 WMJMRR CHAR(4) BDY(WORD), /* ROUTE CODES Y02710*/ 25010002 * 2 WMJMPAD CHAR(1), /* BLANK */ 25100002 * 2 WMJMTS CHAR(8) BDY(WORD,2), /* TIME STAMP Y02710*/ 25150002 * 3 WMJMTSHH CHAR(2), /* HOURS PART OF TS Y02710*/ 25160002 * 3 WMJMTSP1 CHAR(1), /* PERIOD Y02710*/ 25170002 * 3 WMJMTSMM CHAR(2), /* MINUTES PART OF TS Y02710*/ 25180002 * 3 WMJMTSP2 CHAR(1), /* PERIOD Y02710*/ 25190002 * 3 WMJMTSSS CHAR(2), /* SECONDS PART OF TS Y02710*/ 25192002 * 2 WMJMPAD1 CHAR(1), /* BLANK */ 25200002 * 2 WMJMJBNM CHAR(8), /* JOBNAME INSERTED BY THE 25210002 * SUBSYSTEM Y02710*/ 25220002 * 2 WMJMPAD2 CHAR(1), /* BLANK Y02710*/ 25230002 * 2 WMJMTXT CHAR(72) BDY(WORD,4), /* MESSAGE TEXT (MAXIMUM 25250002 * OF 72 BYTES) Y02710*/ 25300002 * 2 WMJMHCID CHAR(4) BDY(WORD,4), /* HARDCOPY ID Y02710*/ 25350002 * 2 WNJNPAD3 CHAR(1), /* BLANK TO LINE UP 25352002 * REMAINING FIELDS Y02710*/ 25354002 * 2 WMJMRESA CHAR(8) BDY(WORD), /* DUMMY MINOR CREATED BY 25360002 * PURGE OS/VS2 REL1 */ 25370002 * 2 WQERSV29 PTR(31), /* RESERVED Y02710*/ 25420002 * 2 WQERSV30 FIXED(15), /* RESERVED */ 25430002 * 2 WMJMSER CHAR(2), /* LINE CONTROL FLAGS */ 25450002 * 3 WMJMSER1 BIT(8), /* 1ST BYTE OF LINE CONTROL 25500002 * FLAGS */ 25550002 * 4 WMJMSERA BIT(1), /* C LINE IN MAJOR WQE */ 25600002 * 4 WMJMSERB BIT(1), /* ONE LABEL LINE FOUND */ 25650002 * 4 WMJMSERC BIT(1), /* TWO LABEL LINES FOUND */ 25700002 * 4 WMJMSERD BIT(1), /* LAST TYPE WAS CONTROL 25750002 * LINE */ 25800002 * 4 WMJMSERE BIT(1), /* LAST TYPE WAS LABEL LINE */ 25850002 * 4 WQERSV31 BIT(1), /* RESERVED */ 25900002 * 4 WQERSV32 BIT(1), /* RESERVED */ 25910002 * 4 WQERSV33 BIT(1), /* RESERVED */ 25920002 * 3 WMJMSER2 BIT(8), /* 2ND BYTE OF LINE CONTROL 25950002 * FLAGS */ 26000002 * 2 WQERSVD2 CHAR(8) BDY(WORD), /* RESERVED @ZA38566*/ 26050046 * 2 WQERSV34 FIXED(15), /* RESERVED **WMJMRESB** */ 26100002 * 2 WMJMLTYP CHAR(2), /* LINE TYPE FLAGS */ 26150002 * 3 WMJMLTY1 BIT(8), /* 1ST BYTE OF LINE TYPE 26200002 * FLAGS */ 26250002 * 4 WMJMLTYA BIT(1), /* CONTROL LINE */ 26300002 * 4 WMJMLTYB BIT(1), /* LABEL LINE */ 26350002 * 4 WMJMLTYC BIT(1), /* DATA LINE */ 26400002 * 4 WMJMLTYD BIT(1), /* END LINE ICB433*/ 26402002 * 4 WQERSV35 BIT(1), /* RESERVED */ 26450002 * 4 WQERSV36 BIT(1), /* RESERVED */ 26460002 * 4 WQERSV37 BIT(1), /* RESERVED */ 26470002 * 4 WQERSV38 BIT(1), /* RESERVED */ 26480002 * 3 WMJMLTY2 BIT(8), /* 2ND BYTE OF LINE TYPE 26500002 * FLAGS */ 26550002 * 2 WMJMMIN PTR(31), /* ADDR OF FIRST MINOR WQE */ 26600002 * 2 WMJMAECB CHAR(4) BDY(WORD), /* ECB USED IN MLWTO */ 26650002 * 2 WMJMMSGN CHAR(4) BDY(WORD), /* MLWTO ID Y02710*/ 26662002 * 2 WMJMECBF BIT(8) BDY(WORD), /* STATUS FLAGS @ZA38566*/ 26668046 * 3 WMJMWAIT BIT(1), /* USER IS WAITING ON 26674002 * WMJMECB Y02710*/ 26676002 * 3 WMJMMAJD BIT(1), /* SUBSYSTEM OR USERS EXIT HAS 26676402 * ASKED TO DELETE THIS MLWTO 26676802 * Y02710*/ 26677202 * 3 WMJMCONS BIT(1), /* FRAME FULL CONTROL BIT 26684246 * @ZA38566*/ 26687746 * 3 WQERSVD3 BIT(1), /* RESERVED Y02710*/ 26691202 * 3 WQERSVD4 BIT(1), /* RESERVED Y02710*/ 26698202 * 3 WQERSVD5 BIT(1), /* RESERVED Y02710*/ 26705202 * 3 WQERSVD6 BIT(1), /* RESERVED Y02710*/ 26712202 * 3 WQERSVD7 BIT(1), /* RESERVED Y02710*/ 26719202 * 2 WQERSVD8 FIXED(24), /* RESERVED Y02710*/ 26726202 * 2 WQERSVA4 PTR(31), /* RESERVED Y02710*/ 26733202 * 2 WQERSVA5 PTR(31), /* RESERVED Y02710*/ 26740202 * 2 WMJMDSP BIT(8) BDY(WORD), /* DISPOSITION FLAGS */ 26750002 * 3 WMJMDSPA BIT(1), /* PURGE THIS WQE */ 26800002 * 3 WMJMDSPB BIT(1), /* QUEUE WQE TO HARDCOPY */ 26850002 * 3 WMJMDSPC BIT(1), /* MUST BE ZERO */ 26900002 * 3 WMJMDSPD BIT(1), /* QUEUED TO HARDCOPY */ 26950002 * 3 WMJMDSPE BIT(1), /* MUST BE ZERO */ 27000002 * 3 WMJMDSPF BIT(1), /* MESSAGE TO BE DOM'ED */ 27010002 * 3 WMJMDSPG BIT(1), /* PROCESSING TEMPORARILY 27050002 * SUSPENDED Y02710*/ 27054002 * 3 WMJMDSPH BIT(1), /* MSG ISSUED BY AUTH USER 27056002 * Y02710*/ 27058064 * 2 WMJMASID CHAR(2), /* ASID OF USER Y02710*/ 27100002 * 2 WMJMBUF BIT(8), /* BUFFER STATUS FLAGS */ 27150002 * 3 WMJMBUFA BIT(1), /* WQE AVAILABLE */ 27200002 * 3 WMJMBUFB BIT(1), /* WQE IN USE */ 27250002 * 3 WMJMBUFC BIT(1), /* READY FOR HARDCOPY 27260002 * Y02710*/ 27270064 * 3 WMJMBUFD BIT(1), /* WQE ACQUIRED BY GETMAIN */ 27350002 * 3 WMJMBUFE BIT(1), /* WQE SERVICED */ 27400002 * 3 WMJMBUFF BIT(1), /* TPUT TO DO Y02710*/ 27450002 * 3 WMJMBUFG BIT(1), /* TPUT DONE Y02710*/ 27460002 * 3 WMJMTRCD BIT(1), /* MAJOR WQE HAS BEEN 27470064 * MASTER TRACED @G64MP2D*/ 27473064 * 2 WMJMTCB PTR(31), /* ADDR OF ISSUER'S TCB 27480002 * Y02710*/ 27510002 * 2 WMJMRTCT PTR(8) BDY(WORD), /* ROUTED COUNT */ 27550002 * 2 WMJMSEQ PTR(24), /* SEQUENCE NUMBER */ 27600002 * 2 WMJMCS CHAR(2) BDY(WORD), /* MCS FLAGS */ 27650002 * 3 WMJMCS1 BIT(8), /* 1ST BYTE OF MCS FLAGS */ 27700002 * 4 WMJMCS1A BIT(1), /* ROUTE AND DESCRIPTOR 27750002 * CODES EXIST */ 27800002 * 4 WMJMCS1B BIT(1), /* QUEUE BY ID TO ACTIVE 27850002 * CONSOLE */ 27900002 * 4 WMJMCS1C BIT(1), /* COMMAND RESPONSE */ 27950002 * 4 WMJMCS1D BIT(1), /* MESSAGE TYPE FIELD 28000002 * PRESENT */ 28050002 * 4 WMJMCS1E BIT(1), /* ACCEPTED REPLY TO A WTOR */ 28100002 * 4 WMJMCS1F BIT(1), /* BROADCAST (ROUTE TO ALL 28150002 * ACTIVE CONSOLES) */ 28200002 * 4 WMJMCS1G BIT(1), /* QUEUE TO HARDCOPY ONLY */ 28250002 * 4 WMJMCS1H BIT(1), /* QUEUE UNCONDITIONALLY BY 28300002 * ID TO CONSOLE */ 28350002 * 3 WMJMCS2 BIT(8), /* 2ND BYTE OF MCS FLAGS */ 28400002 * 4 WMJMCS2A BIT(1), /* DO NOT TIME STAMP */ 28450002 * 4 WMJMCS2B BIT(1), /* MLWTO */ 28500002 * 4 WMJMCS2C BIT(1), /* SUBSYSTEM USE ONLY 28550064 * @ZA26741*/ 28553064 * 4 WQERSV47 BIT(1), /* RESERVED */ 28560002 * 4 WQERSV48 BIT(1), /* RESERVED */ 28570002 * 4 WMJMCS2F BIT(1), /* BYPASS HARDCOPY QUEUEING */ 28600002 * 4 WQERSV49 BIT(1), /* RESERVED */ 28650002 * 4 WQERSV11 BIT(1), /* RESERVED */ 28660002 * 2 WMJMMT CHAR(2), /* MESSAGE TYPE FLAGS */ 28700002 * 3 WMJMMT1 BIT(8), /* 1ST BYTE OF MESSAGE TYPE 28750002 * FLAGS */ 28800002 * 4 WMJMMT1A BIT(1), /* DISPLAY JOBNAMES */ 28850002 * 4 WMJMMT1B BIT(1), /* DISPLAY STATUS */ 28900002 * 4 WQERSVA6 BIT(1), /* RESERVED ***WMJMMT1C*** 28950002 * Y02710*/ 28960002 * 4 WMJMMT1D BIT(1), /* MUST BE ZERO */ 29000002 * 4 WQERSV50 BIT(1), /* RESERVED */ 29050002 * 4 WMJMMT1F BIT(1), /* MONITOR SESS */ 29100002 * 4 WQERSV51 BIT(1), /* RESERVED */ 29150002 * 4 WQERSV52 BIT(1), /* RESERVED */ 29160002 * 3 WMJMMT2 BIT(8), /* 2ND BYTE OF MESSAGE TYPE 29200002 * FLAGS */ 29250002 * 2 WMJMRTC CHAR(4) BDY(WORD), /* ROUTING CODES */ 29300002 * 3 WMJMRCT1 BIT(8), /* 1ST BYTE OF ROUTING CODES*/ 29350002 * 4 WMJMRCTA BIT(1), /* MASTER CONSOLE */ 29400002 * 4 WMJMRCTB BIT(1), /* MASTER CONSOLE INFO */ 29450002 * 4 WMJMRCTC BIT(1), /* TAPE POOL */ 29500002 * 4 WMJMRCTD BIT(1), /* DIRECT ACCESS POOL */ 29550002 * 4 WMJMRCTE BIT(1), /* TAPE LIBRARY */ 29600002 * 4 WMJMRCTF BIT(1), /* DISK LIBRARY */ 29650002 * 4 WMJMRCTG BIT(1), /* UNIT RECORD POOL */ 29700002 * 4 WMJMRCTH BIT(1), /* TELEPROCESSING CONTROL */ 29750002 * 3 WMJMRCT2 BIT(8), /* 2ND BYTE OF ROUTING CODES*/ 29800002 * 4 WMJMRCTI BIT(1), /* SYSTEM SECURITY */ 29850002 * 4 WMJMRCTJ BIT(1), /* SYSTEM/ERROR MAINTENANCE */ 29900002 * 4 WMJMRCTK BIT(1), /* PROGRAMMER INFORMATION */ 29950002 * 4 WMJMRCTL BIT(1), /* EMULATOR INFORMATION */ 30000002 * 4 WMJMRCTM BIT(1), /* USER ROUTING CODE */ 30050002 * 4 WMJMRCTN BIT(1), /* USER ROUTING CODE */ 30100002 * 4 WMJMRCTO BIT(1), /* USER ROUTING CODE */ 30150002 * 4 WQERSV53 BIT(1), /* RESERVED */ 30200002 * 3 WMJMRCT3 BIT(8), /* 3RD BYTE OF ROUTING CODES*/ 30250002 * 3 WMJMRCT4 BIT(8), /* 4TH BYTE OF ROUTING CODES*/ 30300002 * 2 WMJMUID CHAR(1) BDY(WORD), /* UCM ENTRY ID */ 30350002 * 2 WQERSV54 FIXED(24), /* RESERVED ***WMJMRESC*** 30450002 * AND***WMJMLSQA*** Y02710*/ 30460002 * 2 WMJMDEC CHAR(4) BDY(WORD), /* DESCRIPTOR CODES */ 30500064 * 3 WMJMDEC1 BIT(8), /* 1ST BYTE OF DESCRIPTOR 30550002 * CODES */ 30600002 * 4 WMJMDECA BIT(1), /* SYSTEM FAILURE MESSAGE */ 30650002 * 4 WMJMDECB BIT(1), /* IMMEDIATE ACTION 30700002 * REQUIRED MESSAGE */ 30750002 * 4 WMJMDECC BIT(1), /* EVENTUAL ACTION 30800002 * REQUIRED MESSAGE */ 30850002 * 4 WMJMDECD BIT(1), /* SYSTEM STATUS MESSAGE */ 30900002 * 4 WMJMDECE BIT(1), /* IMMEDIATE COMMAND 30950002 * RESPONSE MESSAGE */ 31000002 * 4 WMJMDECF BIT(1), /* JOB STATUS MESSAGE */ 31050002 * 4 WMJMDECG BIT(1), /* APPLICATION PROGRAM/ 31100002 * PROCESSOR MESSAGE */ 31150002 * 4 WMJMDECH BIT(1), /* OUT-OF-LINE MESSAGE */ 31200002 * 3 WMJMDEC2 BIT(8), /* 2ND BYTE OF DESCRIPTOR 31250002 * CODES */ 31300002 * 4 WMJMDECI BIT(1), /* DESCRIPTOR CODE 9 */ 31350002 * 4 WMJMDECJ BIT(1), /* DESCRIPTOR CODE 10 31400002 * Y02710*/ 31402002 * 4 WMJMDECK BIT(1), /* CRITICAL EVENTUAL ACTION 31410064 * MSG - DESCRIPTOR CODE 11 31412064 * @G64DPSS*/ 31414064 * 4 WQERSV57 BIT(1), /* RESERVED */ 31420002 * 4 WQERSV58 BIT(1), /* RESERVED */ 31430002 * 4 WQERSV59 BIT(1), /* RESERVED */ 31440002 * 4 WQERSV60 BIT(1), /* RESERVED */ 31442002 * 4 WQERSV61 BIT(1), /* RESERVED */ 31444002 * 3 WMJMDEC3 BIT(8), /* 3RD BYTE OF DESCRIPTOR 31450064 * CODES - RESERVED */ 31470064 * 3 WMJMDEC4 BIT(8), /* 4TH BYTE OF DESCRIPTOR 31490064 * CODES - RESERVED */ 31510064 * 2 WMJMJTCB PTR(31); /* ADDR OF JOB STEP TCB 31650002 * Y02710*/ 31660002 *%WMJMSIZE = 'LENGTH(WMJM)'; /* GET SIZE OF MAJOR WQE 31702002 * ICB433*/ 31704002 * @EJECT; @G64MP2D 31750064 */********************************************************************/ 31800002 */* */ 31850002 */* MINOR WQE */ 31900002 */* */ 31950002 */********************************************************************/ 32000002 * 32050002 *DECLARE 32100002 * 1 WMNM BASED(WMNPTR) BDY(WORD), /* START OF MINOR WQE */ 32150002 * 2 WMNMEXT PTR(31), /* POINTER TO SECOND HALF OF 32200002 * WQE */ 32250002 * 3 WMNMUC1 PTR(8), /* USE COUNT 1 */ 32300002 * 3 WMNMNX1 PTR(24), /* ADDRESS OF SECOND HALF OF 32350002 * WQE OR ZERO */ 32400002 * 2 WMNMML1 BIT(8) BDY(WORD), /* MLWTO FLAGS FOR FIRST 32450002 * MESSAGE */ 32500002 * 3 WQERSV62 BIT(1), /* RESERVED */ 32550002 * 3 WMNMML1B BIT(1), /* MAJOR WQE */ 32600002 * 3 WMNMML1C BIT(1), /* MINOR WQE */ 32650002 * 3 WMNMML1D BIT(1), /* CHAIN ALTERED */ 32700002 * 3 WMNMML1E BIT(1), /* WTL ISSUED */ 32750002 * 3 WMNMML1F BIT(1), /* MINOR WQE FOR ABEND 32800002 * ICB433*/ 32802002 * 3 WMNMML1G BIT(1), /* SERVICE THIS CHAIN */ 32850002 * 3 WMNMML1H BIT(1), /* MINOR WQE ACQUIRED VIA 32900002 * GETMAIN ICB461*/ 32950002 * 2 WMNMLT1 BIT(8), /* LINE TYPE FLAGS FOR FIRST 33000002 * MESSAGE */ 33050002 * 3 WMNMLT1A BIT(1), /* CONTROL LINE */ 33100002 * 3 WMNMLT1B BIT(1), /* LABEL LINE */ 33150002 * 3 WMNMLT1C BIT(1), /* DATA LINE */ 33200002 * 3 WMNMLT1D BIT(1), /* END INDICATOR */ 33250002 * 3 WQERSV63 BIT(1), /* RESERVED */ 33300002 * 3 WQERSV64 BIT(1), /* RESERVED */ 33310002 * 3 WQERSV65 BIT(1), /* RESERVED */ 33320002 * 3 WQERSV66 BIT(1), /* RESERVED */ 33330002 * 2 WQERSV67 PTR(8), /* RESERVED */ 33350002 * 2 WMNMTL1 PTR(8), /* LENGTH OF FIRST MESSAGE 33400002 * TEXT */ 33450002 * 2 WMNMHCT1 CHAR(4) BDY(WORD), /* HARDCOPY ID FOR FIRST 33500002 * MESSAGE */ 33550002 * 2 WMNMTXT1 CHAR(72) BDY(WORD), /* FIRST MESSAGE TEXT 33600002 * (MAXIMUM 72 BYTES) */ 33650002 * 2 WMNMST1 BIT(8) BDY(WORD), /* STATUS FLAGS Y02710*/ 33660002 * 3 WMNMTPD1 BIT(1), /* TPUT DONE Y02710*/ 33664002 * 3 WMNMTRC1 BIT(1), /* FIRST MINOR WQE HAS BEEN 33668064 * MASTER TRACED @G64MP2D*/ 33669064 * 3 WQERSVA9 BIT(1), /* RESERVED Y02710*/ 33672002 * 3 WQERSVB1 BIT(1), /* RESERVED Y02710*/ 33676002 * 3 WQERSVB2 BIT(1), /* RESERVED Y02710*/ 33680002 * 3 WQERSVB3 BIT(1), /* RESERVED Y02710*/ 33684002 * 3 WQERSVB4 BIT(1), /* RESERVED Y02710*/ 33688002 * 3 WQERSVB5 BIT(1), /* RESERVED Y02710*/ 33692002 * 33700002 * 2 WQERSVB6 CHAR(3), /* RESERVED Y02710*/ 33710002 * 33750002 * 2 WQERSVB7(2) PTR(31), /* RESERVED Y02710*/ 33760002 * 2 WMNMUC2 PTR(8) BDY(WORD), /* USE COUNT 2 */ 33800002 * 2 WMNMNX2 PTR(24), /* ADDRESS OF NEXT MINOR 33850002 * WQE OR ZERO */ 33900002 * 2 WMNMML2 BIT(8) BDY(WORD), /* MLWTO FLAGS FOR SECOND 33950002 * MESSAGE */ 34000002 * 3 WQERSV68 BIT(1), /* RESERVED */ 34050002 * 3 WMNMML2B BIT(1), /* MAJOR WQE */ 34100002 * 3 WMNMML2C BIT(1), /* MINOR WQE */ 34150002 * 3 WMNMML2D BIT(1), /* CHAIN ALTERED */ 34200002 * 3 WMNMML2E BIT(1), /* WTL ISSUED */ 34250002 * 3 WQERSV69 BIT(1), /* RESERVED */ 34300002 * 3 WMNMML2G BIT(1), /* SERVICE THIS CHAIN */ 34350002 * 3 WMNMML2H BIT(1), /* LINE 2 AVAILABLE */ 34400002 * 2 WMNMLT2 BIT(8), /* LINE TYPE FLAGS FOR 34500002 * SECOND MESSAGE */ 34550002 * 3 WMNMLT2A BIT(1), /* CONTROL LINE */ 34600002 * 3 WMNMLT2B BIT(1), /* LABEL LINE */ 34650002 * 3 WMNMLT2C BIT(1), /* DATA LINE */ 34700002 * 3 WMNMLT2D BIT(1), /* END INDICATOR */ 34750002 * 3 WQERSV70 BIT(1), /* RESERVED */ 34800002 * 3 WQERSV71 BIT(1), /* RESERVED */ 34810002 * 3 WQERSV72 BIT(1), /* RESERVED */ 34820002 * 3 WQERSV73 BIT(1), /* RESERVED */ 34830002 * 2 WQERSV74 PTR(8), /* RESERVED */ 34850002 * 2 WMNMTL2 PTR(8), /* LENGTH OF SECOND MESSAGE 34900002 * TEXT */ 34950002 * 2 WMNMHCT2 CHAR(4) BDY(WORD), /* HARDCOPY ID FOR SECOND 35000002 * MESSAGE */ 35050002 * 2 WMNMTXT2 CHAR(72) BDY(WORD), /* SECOND MESSAGE TEXT 35100002 * (MAXIMUM 72 BYTES) */ 35150002 * 35152002 * 2 WMNMST2 BIT(8) BDY(WORD), /* STATUS FLAGS 2 Y02710*/ 35152402 * 3 WMNMTPD2 BIT(1), /* TPUT DONE MSG 2 Y02710*/ 35159402 * 3 WMNMTRC2 BIT(1), /* SECOND MINOR WQE HAS BEEN 35166464 * MASTER TRACED @G64MP2D*/ 35168464 * 3 WQERSVB9 BIT(1), /* RESERVED Y02710*/ 35173402 * 3 WQERSVC1 BIT(1), /* RESERVED Y02710*/ 35180402 * 3 WQERSVC2 BIT(1), /* RESERVED Y02710*/ 35187402 * 3 WQERSVC3 BIT(1), /* RESERVED Y02710*/ 35194402 * 3 WQERSVC4 BIT(1), /* RESERVED Y02710*/ 35201402 * 3 WQERSVC5 BIT(1), /* RESERVED Y02710*/ 35208402 * 35223902 * 2 WQERSVC6 CHAR(3), /* RESERVED Y02710*/ 35233902 * 35243902 * 2 WQERSVC7(2) PTR(31) BDY(WORD); /* RESERVED Y02710*/ 35245902 *%WMNMSIZE = 'LENGTH(WMNM)'; /* GET LENGTH OF MINOR WQE 35253902 * ICB433*/ 35303902