TITLE 'IEEVDUS1 - DISPLAY USERS RTN' 00010000 * GEN (TITLE 'IEEVDUS1 - DISPLAY USER ROUTINE'); 00020000 TITLE 'IEEVDUS1 - DISPLAY USER ROUTINE' 00030000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * 00040000 * /* STATUS: * 00050000 * /* CHANGE LEVEL 000 * 00060000 * /* M4801 * 00070000 * /* M4619 * 00080000 * /* M3822 * 00090000 * /* C 390200-390220 M0383 * 00100000 * /* C 026898,701500,725000 M2089 * 00110000 * /* A 293000,817000,027112 M2089 * 00120000 * /* TITLE: * 00130000 * /* DISPLAY USER ROUTINE FOR TSO * 00140000 * /* FUNCTION: * 00150000 * /* DISPLAYS THE ACTIVE USERS IN A TIME SHARING ENVIRONMENT. THE * 00160000 * /* USERID AND REGION NUMBER THAT THE USER IS RUNNING IN IS DIS- * 00170000 * /* PLAYED. THE TOTAL NUMBER OF TIME SHARING USERS IS ALSO DIS- * 00180000 * /* PLAYED. * 00190000 * /* OPERATION: * 00200000 * /* UPON ENTRY, IT IS DETERMINED IF TIME SHARING IS ACTIVE. IF IT * 00210000 * /* IS NOT, AN ERROR MESSAGE IS WRITTEN TO THE CONSOLE AND CONTROL * 00220000 * /* RETURNS TO INVOKER. IF TIME SHARING IS ACTIVE THE SYSTEM IS * 00230000 * /* ACTIVE THE SYSTEM IS DISABLED. THE TOTAL NUMBER OF TIME * 00240000 * /* SHARING USERS IS SAVED IN THE WORKAREA FROM TSCVT. THE TJB * 00250000 * /* CHAIN IS SEARCHED FOR ACTIVE USERS. IF A TJB IS MARKED IN USE, * 00260000 * /* THE USERID IS SAVED IN A WORKAREA AND THE REGION NUMBER IS * 00270000 * /* SAVED FROM THE ASSOCIATED RCB. WHEN THE TJB SEARCH IS COMPLETE,* 00280000 * /* THE SYSTEM IS ENABLED, THE MESSAGES FORMATTED, AND SENT TO THE * 00290000 * /* ISSUING CONSOLE OR TERMINAL. * 00300000 * /* IF USER=NMBR WAS ISSUED, THE TOTAL NUMBER OF ACTIVE USERS IS * 00310000 * /* GOTTEN FROM THE TSCVT, THE MESSAGE FORMATTED, SENT TO THE * 00320000 * /* ISSUING CONSOLE OR TERMINAL AND CONTROL RETURNS TO INVOKER. * 00330000 * /* ENTRY POINT: * 00340000 * /* IEEVDUS1 FROM IEEVWAIT * 00350000 * /* INPUT: * 00360000 * /* REGISTER 1 CONTAINS THE ADDRESS OF THE CSCB FOR DISPLAY USER * 00370000 * /* OUTPUT: * 00380000 * /* MESSAGES TO THE ISSUING CONSOLE/TERMINAL * 00390000 * /* IEE325I DISPLAY REJECTED-TSO NOT ACTIVE * 00400000 * /* IEE327I USERS=NN 'USERID'(RN) ... * 00410000 * /* EXTERNAL REFERENCES: * 00420000 * /* N/A * 00430000 * /* MACROS CALLED: * 00440000 * /* GETMAIN,TPUT,WTO,IKJTSCVT,CVT,IKJRCB,IKJTCB,IEECHAIN * 00450000 * /* EXITS, NORMAL: * 00460000 * /* CONTROL RETURNS TO INVOKER * 00470000 * /* EXITS, ERROR: * 00480000 * /* CONTROL RETURNS TO INVOKER * 00490000 * /* TABLES/WORKAREAS: * 00500000 * /* THE USERID AND REGION NUMBER FOR 208 USERS ARE SAVED IN A * 00510000 * /* WORKAREA WITH THE FOLLOWING FORMAT * 00520000 * /* /USERID /REGION NUMBER/ * 00530000 * /* 0 8 9 * 00540000 * /* ATTRIBUTES: * 00550000 * /* REENTRANT, REFRESHABLE,READONLY, DISABLED DURING SEARCH OF * 00560000 * /* TJB CHAIN * 00570000 * /* SUPPORT CODE: * 00580000 * /* 20034 * 00590000 * /* NOTES: * 00600000 * /* EBCDIC CHARACTER CODE DEPENDENCY * 00610000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00620000 * GEN(EJECT); 00630000 EJECT 00640000 * IEEVDUS1: PROC (CALLPARM) OPTIONS 00650000 * (REENTRANT,NOSAVEAREA,DONTSAVE,DATAREG(0)); 00660000 LCLA &T,&SPN 0003 00670000 .@001 ANOP 0003 00680000 IEEVDUS1 CSECT , 0003 00690000 BALR @B,0 0003 00700000 @PSTART DS 0H 0003 00710000 USING @PSTART+00000,@B 0003 00720000 * /* M3822 * 00730000 * DCL FREECSCB STATIC LOCAL ENTRY INTERNAL; /* Y01012 * 00740000 * DCL CALLPARM PTR (31); 00750000 * 00760000 * /* REGISTER USAGE * 00770000 * 00780000 * RESTRICT (3,4,5,6,7); 00790000 * DCL R0 REG (0); 00800000 * DCL R1 REG (1) PTR (31); /* Y01043 * 00810000 * DCL R2 REG (2); /* USED TO TEMP STORE RET R M3822 * 00820000 * DCL R3 REG (3) PTR (31); 00830000 * DCL R4 REG (4) FIXED (31); 00840000 * DCL R6 REG (6) PTR (31); 00850000 * DCL R7 REG (7) PTR (31); /* Y01043 * 00860000 * DCL R11 REG (11) PTR (31);/* BASE REGISTER OF THIS ROUTINE * 00870000 * DCL R12 REG (12) PTR (31);/* REG FOR BASE OF WORKAREA M3822 * 00880000 * DCL R15 REG (15) FIXED (31); /* Y01043 * 00890000 * /* M2089 * 00900000 * DCL R14 REG (14) FIXED (31); /* Y01043 * 00910000 * /* SAVE RETURN ADDR IN REGISTER * 00920000 * DCL WORK1 REG(4) PTR (31); /* Y01043 * 00930000 * DCL WORK2 REG(5) PTR (31); /* TJB BASE Y01043 * 00940000 * DCL WORK3 REG(7) PTR (31); /* Y01043 * 00950000 * GEN(EJECT); 00960000 EJECT 00970000 DS 0H 00980000 * 00990000 * /* CVT MACRO * 01000000 * 01010000 * DCL CVTPTR BASED (16) PTR (31); /* PTR TO CVT * 01020000 ** 01030000 ** /* COMMUNICATION VECTOR TABLE * 01040000 ** /* RELEASE 1 AOS (AOS/1 REL 1), 02/07/72, LEVEL=13 * 01050000 ** /* RELEASE 2 AOS (AOS/1 REL 2, AOS/2 REL 1), 02/11/72, LEVEL=21 * 01060000 ** 01070000 ** /* CVT PROPER * 01080000 ** 01090000 ** DECLARE 01100000 ** 1 CVTMAP BASED(CVTPTR), 01110000 ** 01120000 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 01130000 ** AND CURRENT TCB * 01140000 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 01150000 ** ASYNCHRONOUS EXITS * 01160000 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 01170000 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 01180000 ** BLOCKS * 01190000 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 01200000 ** CONSOLE INTERRUPTION ROUTINE * 01210000 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 01220000 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 01230000 ** VALIDITY CHECKING ROUTINE * 01240000 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 01250000 ** FOR CONVERTING RELATIVE 01260000 ** TRACK ADDR TO ABSOLUTE * 01270000 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 01280000 ** FOR CONVERTING ABSOLUTE 01290000 ** TRACK ADDR TO RELATIVE * 01300000 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 01310000 ** UNIT SECTION IN UCB LOOKUP 01320000 ** TABLE * 01330000 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 01340000 ** SECTION IN UCB LOOKUP TABLE * 01350000 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 01360000 ** ROUTINE FOR SYSTEM ERROR 01370000 ** ROUTINES * 01380000 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 01390000 ** VOLUME ENTRY IN UCB TABLE * 01400000 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 01410000 ** ROUTINE * 01420000 ** 2 CVTDATE CHAR(4), /* LOCAL DATE IN PACKED DECIMAL * 01430000 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 01440000 ** PLEASE USE CVTMSER INSTEAD 01450000 ** TO ADDRESS MASTER SCHEDULER 01460000 ** RESIDENT DATA AREA * 01470000 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 01480000 ** CHARACTERISTIC TABLE * 01490000 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 01500000 ** ROUTINE * 01510000 ** 2 CVTDAR PTR(31), /* SAME AS CVTDARA BELOW ICB370* 01520000 ** 3 CVTFLGS1 BIT(8), /* FLAG BYTE ICB370* 01530000 ** 4 CVTDMPLK BIT(1), /* SVC DUMP IS IN PROGRESS 01540000 ** ICB370* 01550000 ** 4 * BIT(7), /* RESERVED ICB370* 01560000 ** 3 CVTDARA PTR(24), /* ADDRESS OF SYS1.DUMP I/O 01570000 ** CONTROL BLOCKS FOR DAMAGE 01580000 ** ASSESSMENT ROUTINES (AOS/1) 01590000 ** ADDRESS OF DCB FOR SYS1.DUMP 01600000 ** DATA SET (AOS/2) ICB370* 01610000 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 01620000 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 01630000 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 01640000 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 01650000 ** 2 CVTTPC PTR(31), /* ADDR OF TIMER SUPERVISOR 01660000 ** WORK AREA * 01670000 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 01680000 ** TO BLDL ROUTINE * 01690000 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 01700000 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 01710000 ** UCB ADDR * 01720000 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 01730000 ** ROUTINE * 01740000 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 01750000 ** ROUTINE * 01760000 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 01770000 ** TABLE * 01780000 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 01790000 ** CONFIGURATION * 01800000 ** 4 * BIT(1), /* RESERVED * 01810000 ** 4 CVT1SSS BIT(1), /* - PCP * 01820000 ** 4 CVT2SPS BIT(1), /* - MFT, AOS/1 * 01830000 ** 4 CVT4MS1 BIT(1), /* - MVT, AOS/2 * 01840000 ** 4 * BIT(1), /* RESERVED * 01850000 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 01860000 ** 4 CVT6DAT BIT(1), /* DYNAMIC ADDRESS TRANSLATION 01870000 ** BY CPU (AOS/1, AOS/2) * 01880000 ** 4 * BIT(1), /* RESERVED * 01890000 ** 2 CVTDCBA PTR(24), /* ADDR OF DCB FOR SYS1.LOGREC * 01900000 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 01910000 ** TABLE * 01920000 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 01930000 ** FREELIST POINTER * 01940000 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 01950000 ** NUCLEUS. ON PAGE BDY * 01960000 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 01970000 ** ROUTINE * 01980000 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 01990000 ** DISPATCHER * 02000000 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 02010000 ** TABLE * 02020000 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 02030000 ** QUEUE * 02040000 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 02050000 ** RESIDENT DATA AREA * 02060000 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 02070000 ** OF POST ROUTINE * 02080000 ** 2 * PTR(31), /* ** CVTTRMTB FIELD UNUSED 02090000 ** IN AOS ** * 02100000 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 02110000 ** IN READY QUEUE * 02120000 ** 2 CVTMZ00 PTR(31), /* HIGHEST ADDRESS IN VIRTUAL 02130000 ** STORAGE * 02140000 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 02150000 ** CREATES IRBS FOR EXITS * 02160000 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 02170000 ** WORD, OR ZERO * 02180000 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 02190000 ** DATA AREA * 02200000 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 02210000 ** NUMBER COUNTER * 02220000 ** 2 CVTOPTA CHAR(1), /* FLAGS * 02230000 ** 3 CVTCCH BIT(1), /* CCH OPTION PRESENT PTM 4686* 02240000 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 02250000 ** I/O RECOVERY MGT * 02260000 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE 02270000 ** RECONFIGURATION -- 02280000 ** I/O RECOVERY MGT PTM 4686* 02290000 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 02300000 ** 3 * BIT(2), /* RESERVED * 02310000 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 02320000 ** 3 CVTXPFP BIT(1), /* CPU HAS EXTENDED PRECISION 02330000 ** FLOATING POINT * 02340000 ** 2 CVTOPTB CHAR(1), /* RESERVED * 02350000 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 02360000 ** 3 * BIT(1), /* RESERVED * 02370000 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 02380000 ** 3 CVTNLOG BIT(1), /* SYS1.LOGREC UNAVAILABLE FOR 02390000 ** ERROR RECORDING ICB382* 02400000 ** 3 * BIT(1), /* RESERVED * 02410000 ** 3 CVTFP BIT(1), /* FETCH PROTECT IS ACTIVE 02420000 ** (AOS/1) ICB427* 02430000 ** 3 * BIT(2), /* RESERVED * 02440000 ** 2 CVTQCDSR PTR(31), /* CDE SEARCH ROUTINE ADDRESS * 02450000 ** 2 CVTQLPAQ PTR(31), /* ADDRESS OF POINTER TO MOST 02460000 ** RECENT ENTRY ON LPA CDE QUEUE* 02470000 ** 2 * PTR(31), /* ** CVTMPCVT FIELD UNUSED IN 02480000 ** AOS ** * 02490000 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 02500000 ** 2 CVTABEND PTR(31), /* AOS/2 - ADDR OF SECONDARY CVT 02510000 ** -- AOS/1 - RESERVED * 02520000 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 02530000 ** 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 02540000 ** SUPPORT * 02550000 ** 2 CVTQABST CHAR (2), /* AOS/2 - AN SVC 13 INSTRUCTION 02560000 ** -- AOS/1 - RESERVED * 02570000 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 02580000 ** ICB369* 02590000 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 02600000 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 02610000 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS VECTOR TABLE * 02620000 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 02630000 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 02640000 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 02650000 ** 4 * BIT(7), /* RESERVED * 02660000 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 02670000 ** 2 CVT0SCR1 PTR(31), /* ADDRESS OF RPS SECTOR 02680000 ** CONVERTER * 02690000 ** 2 CVTGTF PTR(31), /* GTF CONTROL WORD ICB312* 02700000 ** 3 CVTGTFST BIT(8), /* GTF FLAG BYTE ICB312* 02710000 ** 4 CVTGTFS BIT(2), /* GTF STATUS ICB312* 02720000 ** 4 CVTSTATE BIT(1), /* GTF IN CONTROL PROCESSING 02730000 ** A HOOK ICB312* 02740000 ** 4 CVTTMODE BIT(1), /* IF 0 - MODE=INT 02750000 ** IF 1 - MODE=EXT ICB312* 02760000 ** 4 CVTFORM BIT(1), /* FORMAT TRACE TABLE AT 02770000 ** ABEND ICB312* 02780000 ** 4 CVTUSR BIT(1), /* TRACE=USR SPECIFIED ICB312* 02790000 ** 4 * BIT(2), /* RESERVED ICB312* 02800000 ** 3 CVTGTFA PTR(24), /* ADDR OF MONITOR CALL 02810000 ** VECTOR TABLE ICB312* 02820000 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 02830000 ** ADDR OF TCAM VECTOR TABLE * 02840000 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 02850000 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 02860000 ** 4 * BIT(7), /* RESERVED * 02870000 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 02880000 ** ADDR OF TCAM VECTOR TABLE * 02890000 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 02900000 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 02910000 ** TAB ENTRIES * 02920000 ** 3 CVTTAT PTR(24), /* ADDR OF P0 TCB POINTER * 02930000 ** 2 CVTATER PTR(31), /* POINTER TO SYSTEM ERROR 02940000 ** TCB (AOS/1) ICB346* 02950000 ** 3 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 02960000 ** 3 CVTATERA PTR(24), /* POINTER TO SYSTEM ERROR 02970000 ** TCB (AOS/1) ICB346* 02980000 ** 2 CVTEXT1 PTR(31), /* ADDRESS OF OS-AOS COMMON 02990000 ** EXTENSION ICB421* 03000000 ** 2 CVTCBSP PTR(31), /* ADDRESS OF ACCESS METHOD 03010000 ** CONTROL BLOCK STRUCTURE. IF 03020000 ** ZERO, IT INDICATES THAT THE 03030000 ** ACCESS METHOD MASTER CATALOG 03040000 ** IS NOT OPEN'ED AND AVAILABLE 03050000 ** ICB436* 03060000 ** 2 CVTPURG PTR(31), /* POINTER TO SUBSYSTEM PURGE 03070000 ** ROUTINE ICB330* 03080000 ** 3 * CHAR(1), /* RESERVED ICB330* 03090000 ** 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 03100000 ** ROUTINE ICB330* 03110000 ** 2 CVTAMFF CHAR(4), /* RESERVED FOR ACCESS METHOD 03120000 ** FLAGS ICB436* 03130000 ** 2 CVTQMSG PTR(31), /* POINTER TO INFORMATION TO BE 03140000 ** PRINTED BY ABEND ICB307* 03150000 ** 3 * CHAR(1), /* RESERVED ICB307* 03160000 ** 3 CVTQMSGA PTR(24), /* ADDRESS OF INFORMATION TO BE 03170000 ** PRINTED BY ABEND ICB307* 03180000 ** 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB346* 03190000 ** 3 * CHAR(1), /* RESERVED ICB346* 03200000 ** 3 CVTDMSRA PTR(24), /* ADDRESS OF OPEN/CLOSE/EOV 03210000 ** SUPERVISORY ROUTINE ICB346* 03220000 ** 2 * CHAR(8), /* RESERVED ICB346* 03230000 ** 03240000 ** /* AOS/1 - AOS/2 COMMON SECTION * 03250000 ** 03260000 ** 2 CVTREAL PTR(31), /* ADDRESS OF THE VIRTUAL 03270000 ** STORAGE BYTE FOLLOWING THE 03280000 ** HIGHEST VIRTUAL=REAL STORAGE 03290000 ** ADDRESS ICB368* 03300000 ** 2 CVTPTRV PTR(31), /* ADDRESS OF PAGING SUPERVISOR 03310000 ** GENERAL ROUTINE TO TRANSLATE 03320000 ** REAL ADDRESSES TO VIRTUAL * 03330000 ** 2 CVTMODE PTR(31), /* ADDRESS OF ROUTINE TO CHANGE 03340000 ** SYSTEM MASK * 03350000 ** 2 CVTJESCT PTR(31), /* ADDRESS OF JES CONTROL TABLE * 03360000 ** 2 CVTJEPS PTR(31), /* ADDRESS OF JEPS MONITOR TCB * 03370000 ** 2 CVTTZ FIXED(31), /* DIFFERENCE BETWEEN LOCAL TIME 03380000 ** AND GREENWICH MEAN TIME 03390000 ** (BIT 31 = 1.048576 SEC) * 03400000 ** 2 CVTMCHPR PTR(31), /* ADDRESS OF MACHINE CHECK 03410000 ** PARAMETER LIST * 03420000 ** 2 CVTEORM PTR(31), /* HIGHEST REAL ADDRESS IN MAIN 03430000 ** STORAGE * 03440000 ** 2 CVTERPV PTR(31), /* POINTER TO SUBROUTINE IN IOS 03450000 ** TO CONVERT CCW DATA ADDRESSES 03460000 ** TO VIRTUAL ADDRESSES ICB367* 03470000 ** 2 CVTINTLA PTR(31), /* ADDRESS OF AREA CONTAINING 03480000 ** INTERVAL LENGTH AT WHICH I/O 03490000 ** LOAD BALANCING EXCP COUNTS 03500000 ** AND RATES ARE COMPUTED ICB341* 03510000 ** 2 CVTAPF PTR(31), /* SAME AS CVTAPFA BELOW ICB360* 03520000 ** 3 * CHAR(1), /* RESERVED ICB360* 03530000 ** 3 CVTAPFA PTR(24), /* ADDRESS OF BRANCH ENTRY POINT 03540000 ** IN APF ROUTINE (AOS/2) ICB360* 03550000 ** 2 CVTEXT2 PTR(31), /* ADDRESS OF AOS/1 - AOS/2 03560000 ** COMMON EXTENSION ICB330* 03570000 ** 3 * CHAR(1), /* RESERVED ICB330* 03580000 ** 3 CVTEXT2A PTR(24), /* SAME AS CVTEXT2 ABOVE ICB330* 03590000 ** 2 CVTHJES PTR(31), /* SAME AS CVTHJESA BELOW ICB454* 03600000 ** 3 * CHAR(1), /* RESERVED ICB454* 03610000 ** 3 CVTHJESA PTR(24), /* ADDRESS OF OPTIONAL JOB ENTRY 03620000 ** SYSTEM COMMUNICATION VECTOR 03630000 ** TABLE ICB454* 03640000 ** 2 * CHAR(12), /* RESERVED * 03650000 ** 03660000 ** /* AOS/1 OVERLAY * 03670000 ** 03680000 ** 2 CVTPGSIA PTR(31), /* ADDRESS OF PAGING SUPERVISOR 03690000 ** INFORMATION AREA * 03700000 ** 2 CVTPCVT PTR(31), /* ADDRESS OF PAGED CVT 03710000 ** EXTENSION * 03720000 ** 2 CVTA1F1 CHAR(1), /* PAGE FAULT FLAGS * 03730000 ** 3 CVTPFSW BIT(1), /* ONLY PAGING TASK MAY BE 03740000 ** DISPATCHABLE * 03750000 ** 3 CVTSRSW BIT(1), /* NO TASK EXCEPT PAGING TASK 03760000 ** MAY EXECUTE DISABLED CODE * 03770000 ** 3 * BIT(6), /* RESERVED * 03780000 ** 2 CVTSYSK CHAR(1), /* SYSTEM LOCK. IF NOT ZERO, 03790000 ** ONLY PAGING TASK MAY BE 03800000 ** DISPATCHED * 03810000 ** 3 * BIT(4), /* RESERVED * 03820000 ** 3 CVTSLKR BIT(1), /* MACHINE CHECK HANDLING IS IN 03830000 ** PROGRESS ICB320* 03840000 ** 3 CVTSLKQ BIT(1), /* SQA EXHAUSTED * 03850000 ** 3 CVTSLKP BIT(1), /* LAST PCB USED * 03860000 ** 3 CVTSLKO BIT(1), /* A DISABLED ROUTINE HAS 03870000 ** PRODUCED A PAGE FAULT * 03880000 ** 2 CVTSULK FIXED(15), /* SUPERVISOR LOCK. NUMBER OF 03890000 ** TASKS ATTEMPTING TO EXECUTE 03900000 ** DISABLED CODE. IF NOT ZERO, 03910000 ** ONLY ENABLED TASKS MAY RUN * 03920000 ** 2 CVTSMF PTR(31), /* ADDRESS OF SMF TCB ICB395* 03930000 ** 2 CVTPNWFR PTR(31); /* ADDRESS OF ROUTINE WHICH 03940000 ** FREES THE 'EMERGENCY' WORK 03950000 ** AREA (ICB413) PTM 2452* 03960000 ** 03970000 ** /* AOS/2 OVERLAY * 03980000 ** 03990000 ** DECLARE 04000000 ** 1 CVTS01 BASED(ADDR(CVTPGSIA)),/* AOS/2 OVERLAY * 04010000 ** 2 * PTR(31), /* RESERVED ICB339* 04020000 ** 2 CVTLPDSR PTR(31), /* ADDRESS OF LPA DIRECTORY 04030000 ** SEARCH ROUTINE * 04040000 ** 2 CVTPVTP PTR(31), /* ADDRESS OF PAGE VECTOR TABLE * 04050000 ** 2 CVTLPDIA PTR(31), /* ADDRESS OF LPA DIRECTORY. 04060000 ** ON PAGE BOUNDARY * 04070000 ** 3 CVTDIRST CHAR(1), /* FLAG BYTE * 04080000 ** 4 CVTDICOM BIT(1), /* LPA DIRECTORY HAS BEEN 04090000 ** INITIALIZED BY NIP * 04100000 ** 4 * BIT(7), /* RESERVED * 04110000 ** 3 CVTLPDIR PTR(24), /* ADDRESS OF LPA DIRECTORY. 04120000 ** ON PAGE BOUNDARY * 04130000 ** 2 CVTPAGE1 PTR(31), /* ADDRESS OF DCB FOR PRIMARY 04140000 ** PAGING DATA SET * 04150000 ** 2 CVTPGSUP PTR(31), /* ADDRESS OF TCB FOR PAGING 04160000 ** SUPERVISOR * 04170000 ** 2 CVTSLIDA CHAR(4) BDY(WORD), /* IDENTITY OF TCB CAUSING 04180000 ** SUPERVISOR LOCK BYTE (CVTSYLK) 04190000 ** TO BE SET OR IDENTITY OF TCB 04200000 ** THAT SECOND EXIT PROCESSING 04210000 ** IS FOR WHEN CVTSEIC=1 * 04220000 ** 3 CVTSYLK CHAR(1), /* SUPERVISOR LOCK. ONLY 04230000 ** ENABLED TASKS MAY BE 04240000 ** DISPATCHED * 04250000 ** 3 CVTSLID CHAR(3), /* SAME AS CVTSLIDA ABOVE * 04260000 ** 2 CVTSER PTR(31), /* SAME AS CVTSERA BELOW * 04270000 ** 3 CVTSEFLG CHAR(1), /* SECOND EXIT FLAGS * 04280000 ** 4 CVTSEIC BIT(1), /* INDICATES THAT PAGING 04290000 ** SUPERVISOR HAS BRANCHED TO A 04300000 ** SECOND EXIT ROUTINE * 04310000 ** 4 * BIT(7), /* RESERVED * 04320000 ** 3 CVTSERA PTR(24), /* SECOND EXIT ROUTINE ADDRESS 04330000 ** THAT WILL BE BRANCHED TO BY 04340000 ** ABTERM PROLOGUE SHOULD THE 04350000 ** SECOND EXIT ROUTINE PROGRAM 04360000 ** CHECK * 04370000 ** 2 CVTSEG CHAR(16) BDY(WORD), /* SEGMENT TABLE INFORMATION * 04380000 ** 3 CVTSEGA PTR(31), /* VIRTUAL ADDRESS OF USER 04390000 ** SEGMENT TABLE * 04400000 ** 3 CVTSEGB PTR(31), /* VIRTUAL ADDRESS OF SYSTEM 04410000 ** SEGMENT TABLE * 04420000 ** 3 CVTSEGC PTR(31), /* REAL ADDRESS OF USER SEGMENT 04430000 ** TABLE * 04440000 ** 4 CVTSEGLC PTR(8), /* LENGTH IN 64-BYTE UNITS OF 04450000 ** USER SEGMENT TABLE * 04460000 ** 4 CVTSEGCA PTR(24), /* REAL ADDRESS OF USER SEGMENT 04470000 ** TABLE * 04480000 ** 3 CVTSEGD PTR(31), /* REAL ADDRESS OF SYSTEM 04490000 ** SEGMENT TABLE * 04500000 ** 4 CVTSEGLD PTR(8), /* LENGTH IN 64-BYTE UNITS OF 04510000 ** SYSTEM SEGMENT TABLE * 04520000 ** 4 CVTSEGDA PTR(24), /* REAL ADDRESS OF SYSTEM 04530000 ** SEGMENT TABLE * 04540000 ** 2 * CHAR(1), /* RESERVED * 04550000 ** 2 CVTSPVLK PTR(8), /* NUMBER OF TASKS WHICH HAVE 04560000 ** TERMINATED WHILE OWNING 04570000 ** SUPERVISOR LOCK WITHOUT 04580000 ** OPERATOR HAVING YET BEEN 04590000 ** NOTIFIED * 04600000 ** 2 CVTCTLFG CHAR(1), /* SYSTEM CONTROL FLAGS * 04610000 ** 3 CVTPSIC BIT(1), /* PAGING SUPERVISOR IN CONTROL * 04620000 ** 3 CVTAPGB BIT(1), /* APG IS ACTIVE ICB339* 04630000 ** 3 * BIT(1), /* RESERVED ICB382* 04640000 ** 3 CVTDSTAT BIT(1), /* DEVSTAT OPTION IN EFFECT. 04650000 ** DEVICE ADDRESS FOR 2319-3330- 04660000 ** 2314 CAN VARY ACROSS SYSTEMS * 04670000 ** 3 * BIT(2), /* RESERVED * 04680000 ** 3 CVTGTRCE BIT(1), /* GTF HAS SUPPRESSED SUPERVISOR 04690000 ** TRACE ICB446* 04700000 ** 3 CVTSDTRC BIT(1), /* SVC DUMP HAS SUPPRESSED 04710000 ** SUPERVISOR TRACE ICB446* 04720000 ** 2 CVTAPG CHAR(1), /* DISPATCHING PRIORITY OF 04730000 ** APG ICB339* 04740000 ** 2 CVTTRACE CHAR(2), /* BRANCH ON REGISTER 04750000 ** INSTRUCTION. SET BY NIP. 04760000 ** REGISTER TEN FOR TRACE. 04770000 ** REGISTER ELEVEN FOR NO TRACE.* 04780000 ** 2 CVTTRAC2 CHAR(2), /* BRANCH ON REGISTER 11 04790000 ** INSTRUCTION. THIS ALLOWS FOR 04800000 ** SUPPRESSING TRACE DYNAMICALLY 04810000 ** BY SETTING CONDITION CODE 04820000 ** MASK TO ZERO IN FIRST 04830000 ** INSTRUCTION (CVTTRACE) * 04840000 ** 2 CVTRSCN PTR(31), /* ADDRESS OF ROUTINE TO SCAN 04850000 ** TCB TREE * 04860000 ** 2 CVTTAS PTR(31), /* ADDRESS OF ROUTINE TO 04870000 ** TRANSFER ADDRESS SPACE * 04880000 ** 2 CVTPVALD PTR(31), /* ADDRESS OF ROUTINE TO CHECK 04890000 ** ADDRESSES AS BEING IN A 04900000 ** REGION * 04910000 ** 2 CVTSHRVM PTR(31), /* LOWEST ADDRESS OF SHARED 04920000 ** VIRTUAL STORAGE AREA. THIS 04930000 ** ADDRESS WILL BE EITHER THE 04940000 ** BEGINNING OF LPA DIRECTORY OR 04950000 ** THE BEGINNING OF LPA UPDATE 04960000 ** AREA IF 'MLPA' OPTION WAS 04970000 ** USED AT SUPERVISOR 04980000 ** INITIALIZATION. * 04990000 ** 2 CVT0VL01 PTR(31), /* ENTRY POINT ADDRESS OF 05000000 ** VALIDITY CHECK ROUTINE 05010000 ** (IEA0VL01) USED TO COMPARE 05020000 ** PROTECT KEY OF AN ADDRESS 05030000 ** WITH TCB PROTECT KEY. * 05040000 ** 2 CVTPFIXQ PTR(31), /* BRANCH ENTRY TO IEAPFIXQ, THE 05050000 ** FIX-QUIESCE ROUTINE USED BY 05060000 ** TSO BEFORE SWAP TO FREE ALL 05070000 ** SVC FIXES ICB412* 05080000 ** 2 CVTPFIXR PTR(31), /* BRANCH ENTRY TO IEAPFIXR, THE 05090000 ** FIX-RESTORE ROUTINE USED BY 05100000 ** TSO AFTER SWAP (INVERSE OF 05110000 ** FIX-QUIESCE) ICB412* 05120000 ** 2 CVTPFIXP PTR(31), /* BRANCH ENTRY TO IEAPFIXP, THE 05130000 ** FIX-PURGE ROUTINE USED BY 05140000 ** STAE, ABEND, ETC., TO GET RID 05150000 ** OF OUTSTANDING FIX REQUESTS 05160000 ** ICB412* 05170000 ** 2 CVTPTCD PTR(31); /* BRANCH ENTRY TO IEAPTCD, THE 05180000 ** PAGE-TABLE-CREATE-DESTROY 05190000 ** ROUTINE USED BY TSO LOGOFF IN 05200000 ** DOING A PSEUDO-FREEPART 05210000 ** ICB412* 05220000 ** 05230000 ** /* * 05240000 ** /* OS - AOS COMMON EXTENSION * 05250000 ** /* * 05260000 ** 05270000 ** DECLARE 05280000 ** 1 CVTXTNT1 BASED(CVTEXT1), /* START OF OS-AOS COMMON 05290000 ** EXTENSION ICB421* 05300000 ** 2 CVTFACHN PTR(31); /* ADDRESS OF CHAIN OF DCB FIELD 05310000 ** AREAS (ISAM) ICB421* 05320000 ** 05330000 ** /* * 05340000 ** /* AOS/1 - AOS/2 COMMON EXTENSION * 05350000 ** /* * 05360000 ** 05370000 ** DECLARE 05380000 ** 1 CVTXTNT2 BASED(CVTEXT2), /* START OF AOS/1-AOS/2 EXT * 05390000 ** 2 CVTDSSV PTR(31), /* ADDRESS OF THE DSS VECTOR 05400000 ** TABLE ICB313* 05410000 ** 3 * CHAR(1), /* RESERVED ICB313* 05420000 ** 3 CVTDSSVA PTR(24), /* ADDRESS OF THE DSS VECTOR 05430000 ** TABLE ICB313* 05440000 ** 2 CVTNUCLS CHAR(1), /* USED TO IDENTIFY THE NUCLEUS 05450000 ** MEMBER NAME ICB322* 05460000 ** 2 * CHAR(3), /* RESERVED ICB322* 05470000 ** 2 CVTDEBVR PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 05480000 ** OF DEBCHK VERIFY ROUTINE 05490000 ** (AOS/2) ICB380* 05500000 ** 2 * (3) FIXED(31), /* RESERVED ICB381* 05510000 ** 2 CVTQID PTR(31), /* SAVE AS CVTQIDA BELOW ICB381* 05520000 ** 3 * CHAR(1), /* RESERVED ICB381* 05530000 ** 3 CVTQIDA PTR(24), /* ADDRESS OF QID TABLE 05540000 ** PREFIX ICB381* 05550000 ** 2 CVTOLTEP PTR(31); /* POINTER TO CONTROL BLOCK 05560000 ** CREATED BY SVC 59 TO POINT TO 05570000 ** PSEUDO-DEB'S ICB423* 05580000 ** 05590000 ** /* CVT PREFIX * 05600000 ** 05610000 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 05620000 ** 2 * CHAR(248), /* RESERVED * 05630000 ** 2 * CHAR(2), /* RESERVED * 05640000 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 05650000 ** PACKED DECIMAL, I.E., A 05660000 ** MODEL 50 WOULD BE REPRESENTED 05670000 ** AS 0050 HEX * 05680000 ** 2 CVTRELNO CHAR(4), /* OS RELEASE NUMBER (EBCDIC) * 05690000 ** 3 CVTNUMB CHAR(2), /* RELEASE NUMBER * 05700000 ** 3 CVTLEVL CHAR(2); /* RELEASE LEVEL * 05710000 ** 05720000 ** /* END OF CVT MACRO * 05730000 ** 05740000 * GEN(EJECT); 05750000 EJECT 05760000 DS 0H 05770000 * 05780000 * /* TSCVT MACRO * 05790000 * 05800000 ** DECLARE 05810000 ** 1 TSCVT BASED(CVTTSCVT), 05820000 ** 2 TSCVTTJB PTR(31), /* POINTER TO TJB TABLE * 05830000 ** 2 TSCVTRCB PTR(31), /* POINTER TO RCB TABLE * 05840000 ** 2 TSCVTRPT PTR(31), /* PTR TO REFERENCE POINTER 05850000 ** TABLE * 05860000 ** 2 TSCVTFLG CHAR(2), /* FLAGS TO INDICATE FUNCT 05870000 ** REQUESTED OF TSC * 05880000 ** 3 * BIT(1), /* SPARE * 05890000 ** 3 TSCSWPBG BIT(1), /* SWAP SHOULD BE STARTED * 05900000 ** 3 TSCLOGON BIT(1), /* A LOGON IS TO BE PROCESSED * 05910000 ** 3 TSCDISC BIT(1), /* A DISCONNECT IS TO BE 05920000 ** PROCESSED BITS * 05930000 ** 3 TSCVTTHR BIT(1), /* SYSTEM IS THRASHING * 05940000 ** 2 TSCVTFL1 CHAR(2), /* FLAGS TO INDICATE FUNCT 05950000 ** REQUESTED OF TSC * 05960000 ** 3 TSCSSTOP BIT(1), /* SYSTEM STOP REQUESTED AND 05970000 ** TSC IS STOPPING * 05980000 ** 3 TSCRSTOP BIT(1), /* REGION STOP REQUESTED * 05990000 ** 3 TSCASTOP BIT(1), /* ABEND-STOP TS FLG. SET BY 06000000 ** TSO/RMS IF TCAM MCH'SSET BY 06010000 ** TCAM STAE EXIT IF TCAM 06020000 ** ABENDS BITS * 06030000 ** 3 TSCTSTOP BIT(1), /* RMS/MCH INTERFACE HAS STOPPED 06040000 ** /* TSC * 06050000 ** 3 * BIT(1), /* RESERVED * 06060000 ** 3 * BIT(1), /* RESERVED * 06070000 ** 3 * BIT(1), /* RESERVED * 06080000 ** 3 * BIT(1), /* RESERVED * 06090000 ** 2 TSCVTI04 PTR(31), /* ADDRESS OF IKJVAI04 IN TS 06100000 ** DISPATCHER * 06110000 ** 2 TSCVTCUS FIXED(15), /* CURR NO. OF USERS LOGGED ON 06120000 ** TSO * 06130000 ** 2 TSCVTLUS FIXED(15), /* CURRENT LIMIT NO. OF USERS 06140000 ** LOGGED ON TO TSO SET BY TSC * 06150000 ** 2 TSCVTNTJ FIXED(15), /* NO.TJB-TSB'S ALLOC BY TSO 06160000 ** INITIALLY * 06170000 ** 2 TSCVTSZU FIXED(15), /* SIZE OF TJB * 06180000 ** 2 TSCVTCTR FIXED(15), /* NO. OF RCB'S ALLOC BY TSO 06190000 ** INITIALLY * 06200000 ** 2 TSCVTMUS FIXED(15), /* MAX NUMBER OF USERS LOGGED 06210000 ** ON TO TSO SET BY START AND 06220000 ** MODIFY COMMANDS (TSC) * 06230000 ** 2 TSCVTSAV PTR(31), /* PTR TO SAV AREA FOR 06240000 ** TSC,TSIP&TS DISP * 06250000 ** 2 TSCVTECB PTR(31), /* PTR TO TSECBTAB CTL BLK OF 06260000 ** ECB'S * 06270000 ** 2 TSCVTSIA PTR(31), /* PTR TO TSIA * 06280000 ** 2 TSCVTICB PTR(31), /* PTR TO TSICB * 06290000 ** 2 TSCVTI01 PTR(31), /* ADDRESS OF ENTRY POINT 06300000 ** IKJEAI01 TSIP BR ENTRY * 06310000 ** 2 TSCVTTQE PTR(31), /* PTR TO TQE FOR TSO'S TIME 06320000 ** SLICING * 06330000 ** 2 TSCVTI02 PTR(31), /* ADDRESS OF ENTRY POINT 06340000 ** IKJEAI02 IN TS DISPATCH * 06350000 ** 2 TSCVTI03 PTR(31), /* ADDRESS OF ENTRY POINT 06360000 ** IKJEAI03 IN TS DISPATCH * 06370000 ** 2 TSCVTD02 PTR(31), /* ADDRESS OF ENTRY POINT 06380000 ** IKJEAD02 IN TS DRIVER * 06390000 ** 2 TSCVTLCQ PTR(31), /* ADDR OF TOP ELEM ON LOGON 06400000 ** COMM. QUE * 06410000 ** 2 TSCVTTRB PTR(31), /* ADDR OF TRACE CTL BLK CHAIN * 06420000 ** 2 TSCVTLPA PTR(31), /* ADDR OF 1ST CDE IN TS LINK 06430000 ** PACK AREA * 06440000 ** 2 TSCVTSLF FIXED(31), /* SYSTEM INIATED LOGOFF * 06450000 ** 2 TSCVTTSC PTR(31), /* ADDR OF THE * 06460000 ** 2 TSCVTSPL PTR(31), /* ADDRESS OF START PARAMETER 06470000 ** LIST * 06480000 ** 2 TSCVTRSZ FIXED(15), /* MIN REGION SIZE FOR LOGON * 06490000 ** 2 * CHAR(2), /* RESERVED * 06500000 ** 2 TSCVTSVT CHAR(4), /* SVCTBL ENTRY FOR TSIP PRIOR 06510000 ** TO START TS * 06520000 ** 2 TSCVTSVQ CHAR(4), /* SVCTBL ENTRY FOR QTIP PRIOR 06530000 ** TO START TS * 06540000 ** 2 TSCVTABN PTR(31), /* ADDR OF OUT-OF-CORE ABEND 06550000 ** RTN(IKJEAT07) * 06560000 ** 2 TSCVTD03 PTR(31), /* ADDR OF EP IKJEAD03 IN TS 06570000 ** DRIVER * 06580000 ** 2 TSCVTFLM PTR(31), /* ADDR OF EP - IKJEFLM * 06590000 ** 2 TSCVTQTP PTR(31), /* ADDR OF EP OF QTIP SVC - 06600000 ** IKJGGQT1 * 06610000 ** 2 TSCVTT08 PTR(31), /* ADDR OF EP - IKJEAT08 * 06620000 ** 2 TSCVTDMP PTR(31), /* ADDR OF TSO DUMP CONTROL 06630000 ** BLOCK - IKJTSDMP * 06640000 ** 2 TSCVTT06 PTR(31), /* ADDR OF TCB FOR IKJEAT06 * 06650000 ** 2 TSCVTLS3 PTR(31), /* ADDR OF LOGON OUT OF CORE * 06660000 ** 2 TSCVTSMI PTR(31), /* ADDRESS OF SMITDSN CONTROL 06670000 ** BLOCK * 06680000 ** 2 TSCVTMSG PTR(31), /* BRANCH ENTRY POINT FOR IKJVAMS 06690000 ** * 06700000 ** 2 TSCVTSCN PTR(31), /* BRANCH ENTRY POINT FOR IKJVASC 06710000 ** * 06720000 ** 2 TSCVTR01 PTR(31); /* ADDRESS OF IKJVAR01. * 06730000 ** 06740000 * GEN(EJECT); 06750000 EJECT 06760000 DS 0H 06770000 * 06780000 * /* TJB MACRO * 06790000 * 06800000 ** DECLARE 06810000 ** 1 TJB BASED(WORK2), 06820000 ** 2 TJBTSB PTR(31), /* ADDR OF TSB FOR THIS 06830000 ** JOB,0-STARTED BY OPERATOR * 06840000 ** 2 TJBATTN CHAR(1), /* NUMBER OF UNPROCESSED ATTNS 06850000 ** FOR THIS JOB * 06860000 ** 2 TJBSTAX CHAR(1), /* NUMBER OF STAX EXITS YET 06870000 ** UNSCHEDULED * 06880000 ** 2 TJBSTAT CHAR(1), /* STATUS FLAGS * 06890000 ** 3 TJBNJB BIT(1), /* NO JOB,THIS TJB IS CURRENTLY 06900000 ** UNUSED * 06910000 ** 3 TJBINCOR BIT(1), /* USER IN CORE * 06920000 ** 3 TJBLOGON BIT(1), /* LOGON START,SET BY TIOC AT 06930000 ** DIAL-UP,TSC RESET * 06940000 ** 3 TJBIWAIT BIT(1), /* INPUT WAIT,TERMINAL JOB IS 06950000 ** IN INPUT WAIT * 06960000 ** 3 TJBOWAIT BIT(1), /* OUTPUT WAIT,TERMINAL JOB IS 06970000 ** IN OUTPUT WAIT * 06980000 ** 3 TJBSILF BIT(1), /* SYSTEM INITIATED LOGOFF * 06990000 ** 3 TJBDISC BIT(1), /* DISCONNECT SET TO REQUEST 07000000 ** TIOC TO DISCON LINE * 07010000 ** 3 TJBSILF2 BIT(1), /* SYSTEM INITIATED LOGOFF * 07020000 ** 2 TJBSTAT2 CHAR(1), /* STATUS FLAGS * 07030000 ** 3 TJBHUNG BIT(1), /* HUNG UP * 07040000 ** 3 TJBHOLD BIT(1), /* USER IS IN OWAIT DUE TO HOLD 07050000 ** OPTIONS * 07060000 ** 3 TJBOCAB BIT(1), /* TSO FAILURE RESULTING IN 07070000 ** OUT-OF-CORE ABEND * 07080000 ** 3 TJBRNAV BIT(1), /* USER CANNOT BE LOGGED ON 07090000 ** BECAUSE MACHINE CHECK IN 07100000 ** REGION OR NO REGION LARGE 07110000 ** ENOUGH BITS * 07120000 ** 3 TJBSURSV BIT(1), /* ON NEXT SWAP IN,DO NOT MARK 07130000 ** SWAP UNIT AVAILABLE FOR USE * 07140000 ** 3 TJBQUIS BIT(1), /* QUIESCE STARTED FOR USER * 07150000 ** 3 TJBUSERR BIT(1), /* USER READY TO RUN * 07160000 ** 3 TJBDEAD BIT(1), /* INDIACTE ABEND RECURSION 07170000 ** TO IKJEAT07 * 07180000 ** 2 TJBEXTNT PTR(31), /* POINTER TO TJB IN SWAPPED 07190000 ** OUT JOB IMAGE * 07200000 ** 2 TJBRCB PTR(31), /* POINTER TO RCB FOR THIS 07210000 ** REGION * 07220000 ** 2 * PTR(31), /* RESERVED * 07230000 ** 2 TJBSPCT PTR(31), /* PTR TO USER SPCT * 07240000 ** 2 * FIXED(15), /* RESERVED * 07250000 ** 2 TJBRSTOR CHAR(1), /* RESTORE FLAGS, TESTED BY RCT 07260000 ** RESTORE * 07270000 ** 3 TJBOWP BIT(1), /* POST OUTPUT WAIT,SET BY 07280000 ** TIOC,ENDS AN OWAIT * 07290000 ** 3 TJBIWP BIT(1), /* POST INPUT WAIT,SET BY 07300000 ** TIOC,ENDS AN IWAIT EQU * 07310000 ** 3 * BIT(1), /* RESERVED * 07320000 ** 3 TJBLOGP BIT(1), /* POST LOGON,POST ECB WAITED 07330000 ** ON BY LOGON IMAGE * 07340000 ** 3 TJBLWAIT BIT(1), /* USER IN LONG WAIT,SWAP OUT 07350000 ** IF NOT MADE READY BY RESTORE 07360000 ** PROCESSING EQU * 07370000 ** 3 TJBDDRD BIT(1), /* WHEN ON RESTORE WILL RESET DDR 07380000 ** NON DISPATCHABILITY BIT * 07390000 ** 3 TJBFAT BIT(1), /* AN ATTN EXIT IS REQ FOR THIS 07400000 ** USER * 07410000 ** 3 TJBDDRND BIT(1) , /* INDICATES TO RESTORE TO SET 07420000 ** TCB NON DISPATCHABILE WHEN 07430000 ** JOB SWAPPED IN * 07440000 ** 2 * CHAR(1), /* RESERVED * 07450000 ** 2 TJBUSER CHAR(8), /* USERID OF THIS JOB 07460000 ** OWNER,PADDED RT WITH BLANKS * 07470000 ** 2 TJBIPPB FIXED(31), /* IPPB CHAIN OF ECB'S TO BE 07480000 ** POSTED BY RESTORE * 07490000 ** 2 TJBNEWID PTR(8), /* RGN ID INTO WHICH THIS USER 07500000 ** SHOULD BE LOGGED ON. 0 IF 07510000 ** SELECTED BY DRIVER * 07520000 ** 2 TJBFLUSL CHAR(1), /* STAX LEV OF LAST STAX ISSUED 07530000 ** WITH NOPURGE OPTION * 07540000 ** 2 TJBTJID FIXED(15), /* TERMINAL JOB ID * 07550000 ** 2 TJBMONI CHAR(1), /* MONITOR CMD INDICATING INFO 07560000 ** REQUESTED * 07570000 ** 3 TJBMDSN BIT(1), /* DSNAMES * 07580000 ** 3 TJBMJBN BIT(1), /* JOBNAMES * 07590000 ** 3 TJBMSES BIT(1), /* SESSION * 07600000 ** 3 TJBMSPA BIT(1), /* SPACE * 07610000 ** 3 TJBMSTA BIT(1), /* STATUS * 07620000 ** 3 TJBGETBF BIT(1), /* THIS BIT INDICATES TPUT SHOULD 07630000 ** ATTEMPT TO GET ADDITIONAL 07640000 ** BUFFERS FOR USER BEFORE GOING 07650000 ** INTO A WAIT STATE * 07660000 ** 3 * BIT(1), /* RESERVED * 07670000 ** 3 * BIT(1), /* RESERVED * 07680000 ** 2 TJBSTAT3 CHAR(1), /* STATUS FLAGS * 07690000 ** 3 TJBDISC2 BIT(1), /* TJB GOING TO DISCONNECT * 07700000 ** 3 TJBSOEM BIT(1), /* SWAP OUT ERR MSG RECURS FLG * 07710000 ** 3 TJBLOGTM BIT(1), /* INDICATES TO LOGON THAT 07720000 ** TERMINATION IS REQUESTED * 07730000 ** 2 TJBLINE CHAR(2); /* CONTAINS THE BINARY REP OF THE 07740000 ** UNIT ADR OF LINE BEING USED * 07750000 * GEN(EJECT); 07760000 EJECT 07770000 DS 0H 07780000 * 07790000 * /* RCB MACRO * 07800000 * 07810000 ** DECLARE 07820000 ** 1 RCB BASED(TJBRCB), 07830000 ** 2 RCBRCT PTR(31), /* ADDR OF RCT'S TCB * 07840000 ** 2 RCBECB FIXED(31), /* RCT'S ECB * 07850000 ** 2 RCBDIECB FIXED(31), /* POSTED AT RCT TERMINATION * 07860000 ** 2 RCBTJID FIXED(15), /* TERM JOB ID OF CURRENT TS 07870000 ** JOB EXEC IN REGION * 07880000 ** 2 RCBRSIZE FIXED(15), /* SIZE OF THIS TS REGION * 07890000 ** 2 RCBCOMM FIXED(15), /* AMT AUX. STORAGE COMMITTED 07900000 ** AT LOGON FOR THIS REGION * 07910000 ** 2 RCBNMBR CHAR(1), /* REGION NUMBER ASSIGNED TO 07920000 ** THIS REGION * 07930000 ** 2 RCBFLG CHAR(1), /* FIRST BYTE OF RCB FLAGS * 07940000 ** 3 RCBFQU BIT(1), /* QUIESCE FLAG-CURR USER 07950000 ** SHOULD BE QUIESCED * 07960000 ** 3 RCBFSO BIT(1), /* SWAP OUT * 07970000 ** 3 RCBFSI BIT(1), /* SWAP IN USERS TJID IS IN THE 07980000 ** RCB * 07990000 ** 3 RCBFRS BIT(1), /* RESTORE FLAG-USER WHOSE TJID 08000000 ** IS IN THE RCB * 08010000 ** 3 RCBOCAB BIT(1), /* OUT-OF-CORE ABEND(IKJVAT07) 08020000 ** USER WHOSE TJID IS IN RCB * 08030000 ** 3 RCBABRT BIT(1), /* INDICATES STOP REGION FOR 08040000 ** ACTIVE RCT BEFORE LOGON IMAGE 08050000 ** CREATED * 08060000 ** 3 RCBFAT BIT(1), /* ATTENTION EXIT- A ATTN EXIT 08070000 ** IS REQ FOR A USER * 08080000 ** 3 RCBFND BIT(1), /* END RCT - RCT SHOULD RETURN 08090000 ** TO TSC-NORMALLY * 08100000 ** 2 RCBFLG2 CHAR(1), /* SECOND BYTE OF RCB FLAGS * 08110000 ** 3 RCBRDY BIT(1), /* INDICATES ACTIVE RCT READY 08120000 ** FOR LOGONS * 08130000 ** 3 RCBSTOP BIT(1), /* REGION STOP REQUESTED * 08140000 ** 3 RCBACTV BIT(1), /* INDICATES ACTIVE RCT. SET TO 08150000 ** 1 BY RCT INIT RESET TO 0 BY 08160000 ** RCT TERM * 08170000 ** 3 RCBSTR1 BIT(1), /* INDICATES REGION START 08180000 ** REQUESTED ATTACH AN RCT * 08190000 ** 3 RCBSTR2 BIT(1), /* INDICATES REGION START 08200000 ** REQUESTED CREATE SWAP LOGON 08210000 ** IMAGE * 08220000 ** 3 RCBDEAD BIT(1), /* REGION TERMINATED ABNORMALLY * 08230000 ** 3 RCBLOGPR BIT(1), /* INDICATE LOGON IMAGE 08240000 ** SWAPPED OUT * 08250000 ** 3 RCBMODFY BIT(1), /* INDICATES T06 MODIFY IN 08260000 ** PROGRESS FOR THIS REGION - 08270000 ** TSCECB4 SHOULD BE POSTED 08280000 ** UPON RCT TERMINATION * 08290000 ** 2 * CHAR(1), /* SPARE * 08300000 ** 2 RCBCUSE FIXED(15), /* NO OF USERS CURR LOGGED ON 08310000 ** IN THIS REGION TSC WILL 08320000 ** INCREMENT COUNT BEFORE 08330000 ** DISCONNECTTSC WILL DECREMENT 08340000 ** COUNT IN LOGON * 08350000 ** 2 RCBEXTNT PTR(31), /* PTR TO TJBX CREATED SURING 08360000 ** LOGON INIT FOR REG * 08370000 ** 2 RCBSPCT PTR(31), /* PTR TO LOGON SPCT * 08380000 ** 2 RCBTMECB PTR(31), /* ECB USED BY R01 FOR SWAP-IN 08390000 ** OF THE LOGON IMAGE AT 08400000 ** REGION TERMINATION * 08410000 ** 2 RCBPRG CHAR(12), /* SVC PURGE I/O PARM LIST * 08420000 ** 2 RCBQPL PTR(31), /* ADDR OF QUIESCE I/O * 08430000 ** 2 RCBSTECB FIXED(31), /* POSTED UPON RCT SUBTASK 08440000 ** TERMINATION * 08450000 ** 2 RCBRCOVR CHAR(1), /* INDICATE CURRENT STATE OF 08460000 ** RCT FOR RECOVERY PURPOSES IN 08470000 ** EVENT SUBSYSTEM FAILURE * 08480000 ** 2 RCBRSFLG CHAR(1), /* INDICATORS FOR OUT OF CORE 08490000 ** ABEND * 08500000 ** 3 RCBRSTRT BIT(1), /* INDICATE RESTORE STARTED * 08510000 ** 3 RCBTCBDN BIT(1), /* INDICATE TCBS REQUEUED * 08520000 ** 3 RCBQELCM BIT(1), /* INDICATE QEL RESTORE 08530000 ** PROCESSING COMPLETE * 08540000 ** 3 RCBTQECM BIT(1), /* INDICATE TQE RESTORE 08550000 ** PROCESSING COMPLETE * 08560000 ** 3 RCBRQIQC BIT(1), /* INDICATE RQE AND IQE RESTORE 08570000 ** PROCESSING COMP * 08580000 ** 3 RCBIORSC BIT(1), /* INDICATE I/O RESTORE 08590000 ** PROCESSING COMPLETE * 08600000 ** 3 RCBWTORC BIT(1), /* INDICATE WTOR RESTORE 08610000 ** PROCESSING COMPLETE * 08620000 ** 3 RCBSQECM BIT(1), /* INDICATE SQE RESTORE DONE * 08630000 ** 2 RCBQUFLG CHAR(1), /* INDICATIONS FOR OUT OF CORE 08640000 ** ABEND * 08650000 ** 3 RCBQUSTR BIT(1), /* QUIESCE STARTED * 08660000 ** 3 RCBIOSTR BIT(1), /* INDICATE 1ST ENTRY I/O PURGE 08670000 ** COMPLETE * 08680000 ** 3 RCBSQEDN BIT(1), /* SQE QUIESCE COMPLETE * 08690000 ** 3 RCBWTORD BIT(1), /* WTOR QUIESCE DONE * 08700000 ** 3 RCBQELDN BIT(1), /* QEL QUIESCE DONE * 08710000 ** 3 RCBIODON BIT(1), /* INDICATE 2ND ENTRY I/O PURGE 08720000 ** COMPLETE * 08730000 ** 3 RCBTQEDN BIT(1), /* TQE QUIESCE * 08740000 ** 3 RCBRQIQD BIT(1), /* INDICATE IQE AND RQE 08750000 ** COMPLETE * 08760000 ** 2 RCBSWTCH CHAR(1), /* SET & RESET BY IKJVAT07 TO 08770000 ** INDICATE METHOD OF SEARCH BY 08780000 ** IKJEAT07 * 08790000 ** 3 RCBSTSP BIT(1), /* FLAG=STATUS STOP RECURSION * 08800000 ** 3 RCBSWTON BIT(1), /* WHEN SET WITH BIT 0 SEARCH 08810000 ** BY TJID & TCB ADDR * 08820000 ** 3 RCBEXTRN BIT(1), /* INDICATE USAGE OF EXTERNAL 08830000 ** BY IKJEAR02 AND IKJEAR03 * 08840000 ** 3 RCBRMSAL BIT(1), /* SOLID MACHINE CHECK IN USER 08850000 ** REGION * 08860000 ** 3 RCBRMS1U BIT(1), /* INTERMITTENT MACHINE CHECK 08870000 ** IN USER REGION * 08880000 ** 3 RCBZQRF BIT(1), /* IF ON ZERO THE RCBRSFLG AND 08890000 ** RCBQUFLG BEF TSEVENT LOGOFF * 08900000 ** 3 * BIT(1), /* RESERVED * 08910000 ** 3 * BIT(1), /* RESERVED * 08920000 ** 2 RCBCONID CHAR(1), /* CONSOLE ID FOR START COMMAND 08930000 ** OR MODIFY COMMAND * 08940000 ** 2 RCBSTAEN CHAR(1), /* INDEX VALUE TO SCHEDULE STAE 08950000 ** RETRY ROUTINES FOR RCT * 08960000 ** 2 * CHAR(2), /* SPARE * 08970000 ** 2 RCBFXECB PTR(31), /* ECB POSTED ON FIX COMPLETION * 08980000 ** 2 RCBUSPCT PTR(31), /* ADDRESS OF USER SPCT * 08990000 ** 2 RCBPQE PTR(31); /* ADDRESS OF COPY OF PQE IN SQA* 09000000 ** 09010000 * GEN(EJECT); 09020000 EJECT 09030000 DS 0H 09040000 * 09050000 * /* CSCB MACRO * 09060000 * 09070000 ** 09080000 ** /* --------------------------------------------------------------- * 09090000 ** 09100000 ** /* IEECHAIN MAPPING OF CSCB * 09110000 ** /* COMMAND SCHEDULING CONTROL BLOCK * 09120000 ** /* REVISED 9-1-70 * 09130000 ** 09140000 ** /* AOS/1 RELEASE 1, 10/14/71, LEVEL=1 * 09150000 ** /* AOS/2 RELEASE 1, 10/20/71, LEVEL=2 * 09160000 ** 09170000 ** /* RUN TIME JOB DESCRIPTOR RESIDENT IN GLOBAL SQS AND * 09180000 ** /* COMMUNICATION AREA PASSED VIA CSCB QUEUE * 09190000 ** /* FROM COMMAND SCHEDULING ROUTINES * 09200000 ** /* TO COMMAND EXECUTION ROUTINES * 09210000 ** 09220000 ** /* CREATED BY COMMAND SCHEDULER FOR LIFE OF TASK * 09230000 ** /* FOR RDR, WTR, INIT OR MOUNT TASKS * 09240000 ** 09250000 ** /* CREATED BY QUEUE MANAGEMENT DEQUEUE FOR LIFE OF JOB * 09260000 ** /* BETWEEN DEQUEUEING AND TERMINATION * 09270000 ** 09280000 ** /* CREATED BY SYSOUT WRITER FOR DSB STRING IN QUEUE ENTRY * 09290000 ** /* TO ALLOW CANCELLATION OF WRITER SUBTASKS * 09300000 ** 09310000 ** /* UPDATED BY COMMAND SCHEDULER IN EVENT OF * 09320000 ** /* CANCEL JOBNAME AFTER SELECTION, CANCEL WRITER DEVICE, * 09330000 ** /* MODIFY, OR NON-PERIODIC STOP * 09340000 ** 09350000 ** DECLARE 09360000 ** 1 CHAIN BASED(R6), 09370000 ** 09380000 ** 2 CHPTR PTR(31), /* CHAIN PTR TO NEXT CSCB * 09390000 ** 2 CHFLG CHAR(4), /* FOUR BYTES * 09400000 ** 3 CHVCD CHAR(1), /* COMMAND VERB CODE * 09410000 ** 3 CHSZE PTR(8), /* SIZE OF THIS CSCB IN DOUBLE 09420000 ** WORDS * 09430000 ** 3 CHSTS CHAR(1), /* STATUS FLAGS * 09440000 ** 4 CHAP BIT(1), /* ASSIGNMENT PENDING * 09450000 ** 4 CHSYS BIT(1), /* SYSTEM TASK CSCB * 09460000 ** 4 CHSOUT BIT(1), /* CANCEL ALL SYSOUT * 09470000 ** 4 CHQSPC BIT(1), /* INSUFFICIENT Q SPACE FOR 422 09480000 ** ABEND * 09490000 ** 4 CHAD BIT(1), /* ADD THIS CSCB TO CHAIN * 09500000 ** 4 CHDL BIT(1), /* DELETE THIS CSCB FROM CHAIN * 09510000 ** 4 CHFC BIT(1), /* FREE THIS CSCB'S CORE * 09520000 ** 4 CHABTERM BIT(1), /* EXECUTE BRANCH ENTRY TO 09530000 ** ABTERM * 09540000 ** 3 CHACT CHAR(1), /* FLAGS INDICATING ACTIVITY 09550000 ** INVOLVED * 09560000 ** 4 CHSWAP BIT(1), /* SWAPPABLE JOB * 09570000 ** 4 CHTERM BIT(1), /* TERMINAL JOB * 09580000 ** 4 CHDISC BIT(1), /* CANCEL IMPLIES DISCONNECT * 09590000 ** 4 CHDSI BIT(1), /* ON MEANS NO DATA SET 09600000 ** INTEGRITY * 09610000 ** 4 CHCL BIT(1), /* CANCELABLE JOB STEP * 09620000 ** 4 CHCLD BIT(1), /* CANCEL COMMUNICATION SWITCH * 09630000 ** 4 CHAIFX BIT(1), /* CANCELABLE--MFTII ONLY * 09640000 ** 4 CHIFY BIT(1), /* SYSTEM ASSIGNED 09650000 ** PROCEDURE--MFTII * 09660000 ** 2 CHKEY CHAR(8), /* 1. ID OF A STARTED TASK 09670000 ** (THIS ID IS THE TASK'S 09680000 ** STEPNAME) 2. JOBNAME OF AN 09690000 ** EXECUTED JOB. * 09700000 ** 2 CHCLS CHAR(8), /* 1.PROCNAME OF A STARTED TASK 09710000 ** (THE PROCNAME IS THE TASK'S 09720000 ** JOBNAME.) 2. JOBNAME OF AN 09730000 ** EXECUTED JOB (SAME AS CHKEY) * 09740000 ** 2 CHUNIT CHAR(3), /* UNITNAME (SET FOR STARTED 09750000 ** TASKS ONLY) * 09760000 ** 2 CHCIBCTR PTR(8), /* MAXIMAL NUMBER OF QUEUED 09770000 ** CIB'S * 09780000 ** 2 CHPKE CHAR(1), /* PROTECT KEY (AOS/1) ICB345* 09790000 ** 3 CHJBNR CHAR(1), /* FLAG BYTE (AOS/2) ICB345* 09800000 ** 4 CHJBNRF BIT(6), /* INITIATOR IDENTIFIER 09810000 ** (AOS/2) ICB345* 09820000 ** 4 * BIT(2), /* RESERVED (AOS/2) ICB345* 09830000 ** 2 CHUCMP CHAR(1), /* UCMI (UNIT CONTROL MODULE 09840000 ** INDICATOR) THIS IS THE ID 09850000 ** OF THE CONSOLE WHICH ISSUED 09860000 ** THE COMMAND. * 09870000 ** 2 CHTJID FIXED(15), /* TERMINAL ID * 09880000 ** 09890000 ** 2 CHASM, 09900000 ** /* BEGINNING OF OVERLAY SEGMENT * 09910000 ** 09920000 ** /* BEGINNING OF CONTROL FORMAT MAPPING AFTER * 09930000 ** /* INTERPRETATION OF COMMAND OPERANDS * 09940000 ** 09950000 ** 3 CHECBP PTR(31), /* PTR TO STOP/MODIFY ECB * 09960000 ** 3 CHCIBP PTR(31), /* PTR TO CIB -- * 09970000 ** 4 CHEND BIT(1), /* HIGH ORDER BIT OF LAST 09980000 ** PARAMETER POINTER IS ON * 09990000 ** 4 * BIT(7), /* RESERVED * 10000000 ** 10010000 ** /* THE ABOVE ECB AND CIB POINTERS FORM * 10020000 ** /* THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM * 10030000 ** 10040000 ** 3 CHRPRTY CHAR(1), /* RESET PRIORITY OF A JOB 10050000 ** WHOSE PRIORITY HAS BEEN 10060000 ** RESET DURING EXECUTION * 10070000 ** 3 * PTR(24), /* RESERVED * 10080000 ** 3 * FIXED(31), /* RESERVED * 10090000 ** 3 CHECB FIXED(31), /* STOP/MODIFY ECB * 10100000 ** 3 CHCECB FIXED(31), /* CANCEL ECB * 10110000 ** 3 * (2) FIXED(31), /* RESERVED * 10120000 ** 10130000 ** 3 CHSHORT, 10140000 ** /* AFTER MVT JOB SELECT TIME, END OF CSCB. * 10150000 ** /* MFTII CSCB IS UNCHANGED. * 10160000 ** 10170000 ** 4 CHSWT CHAR(1), /* COMMUNICATIONS SWITCHES * 10180000 ** 5 CHRESC BIT(1), /* RESERVED * 10190000 ** 5 CHJCT BIT(1), /* READER RETURN WITH IN-CORE 10200000 ** JCT * 10210000 ** 5 CHPSD BIT(1), /* WRITER PAUSE DATASET * 10220000 ** 5 CHPSF BIT(1), /* WRITER PAUSE FORMS * 10230000 ** 5 CHAC BIT(1), /* ID SPECIFIED ON S COMMAND * 10240000 ** 5 CHRESB BIT(1), /* RESERVED * 10250000 ** 5 * BIT(2), /* RESERVED (ICB337) 40890* 10260000 ** 4 CHTCB PTR(24), /* TCB PTR (MFTII ONLY) * 10270000 ** 4 CHSPB PTR(31), /* TCB PTR FOR ABTERM--MFTII * 10280000 ** 4 CHSPC PTR(31), /* PTR TO SMALL PARTITION 10290000 ** LIST--MFTII TRANSIENT RDR 10300000 ** TTR--MFTII COMPLETION CODE 10310000 ** FOR ABTERM--MFTII * 10320000 ** 4 CHJCL PTR(31), /* JCLS PTR -- IN-CORE JCT PTR 10330000 ** -- DA JCT TTR * 10340000 ** 10350000 ** 4 CHQPA (9) FIXED(31), /* INPUT Q MANAGER PARAMETER 10360000 ** AREA * 10370000 ** 4 CHSQA (9) FIXED(31), /* SYSOUT Q MANAGER PARAMETER 10380000 ** AREA NOTE--THESE 2 QMPAS 10390000 ** EXIST IN MVT CSCBS ONLY 10400000 ** BEFORE INITIATOR JOB SELECT 10410000 ** TIME. * 10420000 ** 10430000 ** 4 CHUSC FIXED(31), /* TIOT LENGTH--MFTII * 10440000 ** 4 CHJSCB PTR(31), /* JSCB PTR--MFTII ONLY * 10450000 ** 4 * (4) FIXED(31); /* RESERVED * 10460000 ** 10470000 ** /* END OF CONTROL FORMAT MAPPING AFTER * 10480000 ** /* INTERPRETATION OF COMMAND OPERANDS * 10490000 ** 10500000 ** DECLARE 1 CHAINS01 10510000 ** BASED(ADDR(CHASM)), /* OVERLAY * 10520000 ** 10530000 ** /* BEGINNING OF INPUT FORMAT MAPPING BEFORE * 10540000 ** /* INTERPRETATION OF COMMAND OPERANDS * 10550000 ** 10560000 ** 2 CHBUF CHAR(124), /* COMMAND IMAGE (OPERAND 10570000 ** FIELD) * 10580000 ** 2 CHTYPE CHAR(1), /* FLAGS * 10590000 ** 3 CHDSTAT BIT(1), /* STATUS DISPLAY (SVC 104) CMD * 10600000 ** 3 * BIT(5), /* RESERVED * 10610000 ** 3 CHHIAR BIT(1), /* ON MEANS H1 SPECIFIED ON 10620000 ** COMMAND (ICB337) 40890 * 10630000 ** 3 CHDEF BIT(1), /* ON MEANS DEFAULT TO 10640000 ** H0 (ICB337) 40890 * 10650000 ** 2 CHLSQA PTR(8), /* NUMBER OF SEGMENTS OF LSQA 10660000 ** NEEDED BY THE START 10670000 ** COMMAND ICB397* 10680000 ** 2 CHCNID CHAR(1), /* DISPLAY-RECEIVING CONSOLE ID * 10690000 ** 2 CHARID CHAR(1), /* DISPLAY SCREEN-AREA ID * 10700000 ** 2 CHPEND PTR(31), /* CHAIN PTR FOR PENDING S 10710000 ** CMS--MFTII ONLY * 10720000 ** 2 CHINC FIXED(15), /* UNIQUE CTR FOR INTERPRETER * 10730000 ** 2 CHCSYSO CHAR(1), /* EXPRESS CANCEL SYSOUT * 10740000 ** 3 CHALL BIT(1), /* ALL SPECIFIED * 10750000 ** 3 CHINN BIT(1), /* IN SPECIFIED * 10760000 ** 3 CHOUT BIT(1), /* OUT SPECIFIED * 10770000 ** 3 CHHOLD BIT(1), /* HOLD Q SPECIFIED * 10780000 ** 3 CHQUE BIT(1), /* SPECIFIC QUEUE * 10790000 ** 3 CHDUMP BIT(1), /* DUMP SPECIFIED * 10800000 ** 3 CHJB BIT(1), /* END SCAN SWITCH * 10810000 ** 3 CHRESD BIT(1), /* RESERVED * 10820000 ** 2 CHSPA CHAR(1), /* MFTII STC SWITCHES * 10830000 ** 2 * CHAR(8), /* RESERVED * 10840000 ** 10850000 ** /* END OF INPUT FORMAT MAPPING BEFORE * 10860000 ** /* INTERPRETATION OF COMMAND OPERANDS * 10870000 ** 10880000 ** 2 CHLAST CHAR(0); 10890000 ** /* END OF CSCB * 10900000 ** 10910000 ** /* --------------------------------------------------------------- * 10920000 ** 10930000 * GEN(EJECT); 10940000 EJECT 10950000 DS 0H 10960000 * 10970000 * /* CONSTANTS * 10980000 * 10990000 * DCL BLANK CHAR (1) INIT (' '); 11000000 * DCL ZEROS CHAR (4) BDY (WORD) INIT ('00000000'X); /* Y01043 * 11010000 * DCL PARMAR FIXED(32) BDY(WORD) INIT('00000010'X); /* Y01043 * 11020000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11030000 * /* * 11040000 * /* LENGTH AND NAME OF COMMAND * 11050000 * /* * 11060000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11070000 * DCL 1 COMMNAME STATIC, /* Y01043 * 11080000 * 2 * PTR(8) INIT ('0C'X), /* Y01043 * 11090000 * 2 * CHAR(12) INIT('DISPLAY USER'); /* Y01043 * 11100000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11110000 * /* * 11120000 * /* WORK AREAS * 11130000 * /* * 11140000 * /* * * * * * * * * * * * * ** * * * ** * * * * * * ** * ** * ** * * * 11150000 * 11160000 * /* WORKAREAS USED IN PROCESSING M3822 * 11170000 * 11180000 * DCL SAVE14 FIXED (31) AUTOMATIC; 11190000 * /* SAVE AREA FOR REG 14 M3822 */ 11200000 * 11210000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11220000 * /* * 11230000 * /* MAPPING USED TO CREATE STAE INTERFACE ROUTINE PARM LIST * 11240000 * /* * 11250000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11260000 * 11270000 * DCL 1 PARMLIST BASED(R1), /* Y01043 * 11280000 * 2 CSCBADR PTR(31), /* Y01043 * 11290000 * 2 COMMAND PTR(31), /* Y01043 * 11300000 * 2 BASEADR PTR(31), /* Y01043 * 11310000 * 2 R14SAV PTR(31); /* Y01043 * 11320000 * 11330000 * /* AREA USED TO FORMAT DISPLAY MESSAGES * 11340000 * 11350000 * DCL 1 WTOMSG BDY (WORD), 11360000 * 2 LNGMSG FIXED (15), 11370000 * 2 MCSBITS FIXED (15), 11380000 * 2 MSGTEXT CHAR (72); 11390000 * 11400000 * /* COUNTERS USED IN PROCESSING * 11410000 * 11420000 * DCL CORECNT FIXED(31) AUTOMATIC; /* CORE LEFT IN WORKAREA * 11430000 * DCL NOUSER FIXED (15) AUTOMATIC; /* TOTAL NUMBER OF USERS * 11440000 * DCL CNTTJB FIXED (15) AUTOMATIC; /* TOTAL NUMBER OF TJB'S * 11450000 * 11460000 * /* FLAGS * 11470000 * 11480000 * DCL 1 FLAGS AUTOMATIC, 11490000 * 2 TPUTFLAG BIT (1); /* USED FOR TPUT RC=14 * 11500000 * 11510000 * /* FORMAT OF EACH ENTRY IN WORKAREA FOR USERID AND REGION NO * 11520000 * 11530000 * DCL 1 IDAREA BASED (R3), 11540000 * 3 USRID CHAR(8), 11550000 * 3 RGNUM CHAR (1); 11560000 * 11570000 * /* AREA USED FOR CONVERT TO DECIMAL ROUTINE * 11580000 * 11590000 * DCL UNPKAREA CHAR (8) AUTOMATIC BDY (DWORD); 11600000 * DCL CVDAREA CHAR (8) AUTOMATIC BDY (DWORD); /* M3822 * 11610000 * 11620000 * /* WTO GENERATED LIST FORMS * 11630000 * 11640000 * DCL WTOLST1 GENERATED CHAR (72); 11650000 * DCL WTOLST2 GENERATED CHAR (72); 11660000 * DCL WTOLST3 GENERATED CHAR (72); 11670000 * DCL ENDLST1 GENERATED; /* M3822 * 11680000 * DCL ENDLST2 GENERATED; /* M3822 * 11690000 * DCL ENDLST3 GENERATED; /* M3822 * 11700000 * 11710000 * /* ADDITIONAL CONSTANTS * 11720000 * 11730000 * DCL LTPAREN CHAR (1) INIT (')'); 11740000 * DCL RTPAREN CHAR (1) INIT ('('); 11750000 * DCL OPERAND CHAR (9) INIT ('USER=NMBR'); 11760000 * DCL DESCODE FIXED (31) INIT ('04000000'X); 11770000 * /* DESCRIPTOR AND ROUTING CODES 11780000 * FOR WTO MACRO M3822 */ 11790000 * DCL DUSERLMT FIXED (15) INIT ('750'X); 11800000 * /* LIMIT OF SIZE OF WORKAREA FOR 11810000 * VDUS1 DUE TO CORE LIMITS - 11820000 * ALLOWS FOR DISPLAY OF MAXIMUM 11830000 * OF 195 USERS M3822 * 11840000 * GEN(EJECT); 11850000 EJECT 11860000 DS 0H 11870000 * GO TO START; 11880000 BC 15,START 0064 11890000 * GEN (DC C'IEEVDUS1 2/14/71'); 11900000 DC C'IEEVDUS1 2/14/71' 11910000 DS 0H 11920000 * START: 11930000 * R6 = R1; /* SAVE PARAMETER REG IN M3822 * 11940000 START LR @6,@1 0066 11950000 * R7 = R14; /* SAVE RETURN ADDRESS Y01043 * 11960000 LR @7,@E 0067 11970000 * GEN(LOAD EP=IEECB860); /* LOAD THE SATE MODULE Y01043 * 11980000 LOAD EP=IEECB860 11990000 DS 0H 12000000 * R3 = R0; /* SAVE ADDR OF (IEECB860) Y01043 * 12010000 LR @3,@0 0069 12020000 * R0 = PARMAR; /* LGTH/SP OF PARM LIST Y01043 * 12030000 L @0,PARMAR 0070 12040000 * GEN(GETMAIN R,LV=(0)); /* GET THE PARM LIST Y01043 * 12050000 GETMAIN R,LV=(0) 12060000 DS 0H 12070000 * COMMAND = ADDR(COMMNAME); /* LENGTH/ADDR OF COMMAND Y01043 * 12080000 LA @F,COMMNAME 0072 12090000 ST @F,4(0,@1) 0072 12100000 * R14SAV = R7; /* PUT ADDR IN PARM AREA Y01043 * 12110000 ST @7,12(0,@1) 0073 12120000 * BASEADR = R11; /* SAVE THE BASE ADDRESS Y01043 * 12130000 ST @B,8(0,@1) 0074 12140000 * CSCBADR = R6; /* PASS THE CSCB ADDRESS Y01043 * 12150000 ST @6,0(0,@1) 0075 12160000 * R15 = R3; /* SET UP FOR BALR Y01043 * 12170000 LR @F,@3 0076 12180000 * GEN(BALR 14,15); /* INVOKE THE STAE MODULE Y01043 * 12190000 BALR 14,15 12200000 DS 0H 12210000 * R7 = R15; /* SAVE RETURN CODE Y01043 * 12220000 LR @7,@F 0078 12230000 * RESTRICT (R2); /* SET REG ASIDE FOR FREE Y01043 * 12240000 * R2 = R14SAV; /* RESTORE RETURN ADDRESS Y01043 * 12250000 L @2,12(0,@1) 0080 12260000 * R11 = BASEADR; /* RESTORE BASE ADDRESS Y01043 * 12270000 L @B,8(0,@1) 0081 12280000 * R6 = CSCBADR; /* RESTORE CSCB ADDRESS Y01043 * 12290000 L @6,0(0,@1) 0082 12300000 * R0 = PARMAR; /* LENGTH/SP OF THE LIST Y01043 * 12310000 L @0,PARMAR 0083 12320000 * GEN(FREEMAIN R,LV=(0),A=(1)); /* FREE THE PARM AREA Y01043 * 12330000 FREEMAIN R,LV=(0),A=(1) 12340000 DS 0H 12350000 * IF R7 ^= 0 /* WAS STAE CREATED Y01043 * 12360000 * THEN /* YES CONTINUE PROCESS Y01043 * 12370000 LTR @7,@7 0085 12380000 BC 08,@9FF 0085 12390000 * DO; /* NO CLEAN-UP AND GET Y01043 * 12400000 * GEN(DELETE EP=IEECB860); /* Y01043 * 12410000 DELETE EP=IEECB860 12420000 DS 0H 12430000 * CALL FREECSCB; /* FREE CORE FOR CSCB Y01043 * 12440000 BAL @E,FREECSCB 0088 12450000 * R14 = R2; /* SET UP TO RETURN Y01043 * 12460000 LR @E,@2 0089 12470000 * GEN(BR 14); /* RETURN Y01043 * 12480000 BR 14 12490000 DS 0H 12500000 * END; /* Y01043 * 12510000 * R0 = DUSERLMT; /* CALCULATE AMT CORE NEEDED BY 12520000 * VDUS1 FOR WORK SPACE - M3822 * 12530000 @9FF LH @0,DUSERLMT 0092 12540000 * R4 = R0; /* SAVE SIZE M3822 * 12550000 LR @4,@0 0093 12560000 * GEN (GETMAIN R,LV=(0)); 12570000 GETMAIN R,LV=(0) 12580000 DS 0H 12590000 * /* GETMAIN WORKAREA M3822 * 12600000 * RESTRICT (12); /* M3822 * 12610000 * R12 = R1; /* SAVE ADDR OF WORKAREA M3822 * 12620000 LR @C,@1 0096 12630000 * GEN (USING @DATD,R12); 12640000 USING @DATD,R12 12650000 DS 0H 12660000 * /* M2089 * 12670000 * R3 = R12; /* SET UP BASE REG FOR W/A M3822 * 12680000 LR @3,@C 0098 12690000 * 12700000 * /* TEST FOR TIME SHARING ACTIVE, IF TS NOT ACTIVE, ISSUE ERROR MSG * 12710000 * 12720000 * SAVE14 = R2; /* SAVE RETURN REG M3822 * 12730000 ST @2,SAVE14 0099 12740000 * IF CVTTSCVT = ZEROS|CVTTSCVT = ADDR(CVTTSCVT) 12750000 * /* IF PTR TO TSCVT IN CVT = 0 OR 12760000 * IF IT POINTS TO ITSELF M3822 * 12770000 * THEN GO TO NOTSO; /* THEN TSO NOT ACTIVE * 12780000 L @F,ZEROS 0100 12790000 L @8,CVTPTR 0100 12800000 CL @F,228(0,@8) 0100 12810000 BC 08,@9FE 0100 12820000 LA @F,228(0,@8) 0100 12830000 C @F,228(0,@8) 0100 12840000 BC 08,NOTSO 0101 12850000 * 12860000 * /* INITIALIZE WORK AREA AND MESSAGE FORMAT AREA * 12870000 * 12880000 * WORK3 = 255; /* INITIALIZE REG FOR MAXIMUM ON 12890000 * EXECUTE STATEMENT M3822 * 12900000 @9FD LA @7,255 0102 12910000 * ZEROAGAN: 12920000 * GEN (EX WORK3,ZEROWORK); /* ZERO OUT W/A 255 EACH M3822 * 12930000 ZEROAGAN EX WORK3,ZEROWORK 12940000 DS 0H 12950000 * R4 = R4 - WORK3; /* DECREMENT SIZE TO AMT LEFT TO 12960000 * BE ZEROED OUT M3822 * 12970000 SR @4,@7 0104 12980000 * R3 = R3 + WORK3; /* INCREMENT POINTER TO NEXT AREA 12990000 * IN W/A TO BE CLEARED M4619 * 13000000 AR @3,@7 0105 13010000 * IF R4 > WORK3 /* IF MORE THAN 255 LEFT M3822 * 13020000 * THEN GO TO ZEROAGAN; /* CONTINUE IN LOOP M3822 * 13030000 CR @4,@7 0106 13040000 BC 02,ZEROAGAN 0107 13050000 * WORK3 = R4; /* INITIALIZE LENGTH REG M3822 * 13060000 LR @7,@4 0108 13070000 * GEN ( EX WORK3,ZEROWORK); /* USE REMAINDER IN R4 TO FINISH 13080000 * ZEROING OUT WORKAREA M3822 * 13090000 EX WORK3,ZEROWORK 13100000 DS 0H 13110000 * WTOMSG(1) = BLANK(1); /* BLANK OUT MSG AREA * 13120000 MVC WTOMSG(1),BLANK 0110 13130000 * WTOMSG(2:76) = WTOMSG(1:75); 13140000 MVC WTOMSG+1(75),WTOMSG 0111 13150000 * SAVE14 = R2; /* SAVE RETURN REGISTER M3822 * 13160000 ST @2,SAVE14 0112 13170000 * R3 = R12; /* SET UP BASE REG FOR W/A M3822 * 13180000 LR @3,@C 0113 13190000 * GEN (A R3,@SIZ001); 13200000 A R3,@SIZ001 13210000 DS 0H 13220000 * RELEASE (2); 13230000 * 13240000 * /* IF USER=NMBR REQUESTED (NUMBER ONLY OF ACTIVE USERS) GO TO 13250000 * ISSUE MESSAGE TO REQUESTOR */ 13260000 * 13270000 * IF CHBUF(1:9) = OPERAND /* THE OPERAND OF THE DISPLAY CMD IS 13280000 * SAVED IN THE CSCB, COMPARE FOR 13290000 * KEYWORDS. */ 13300000 * THEN GO TO FORMMSG; /* GO TO GET NO. OF USERS AND ISSUE 13310000 CLC 32(9,@6),OPERAND 0116 13320000 * MESSAGE */ 13330000 BC 08,FORMMSG 0117 13340000 * 13350000 * /* DETERMINE IF THERE ARE ANY ACTIVE TSO USERS * 13360000 * 13370000 * IF TSCVTCUS = 0 /* IF THERE ARE NO ACTIVE USERS * 13380000 * THEN GO TO FORMMSG; /* THEN GO TO FORMAT USER=NMBR 13390000 SR @F,@F 0118 13400000 L @2,CVTPTR 0118 13410000 L @2,228(0,@2) CVTMAP 0118 13420000 CH @F,20(0,@2) 0118 13430000 * MESSAGE ONLY * 13440000 BC 08,FORMMSG 0119 13450000 * 13460000 * /* DISABLE SYSTEM TO GATHER INFORMATION */ 13470000 * 13480000 * GEN; 13490000 MODESET ENABLE=NO Y01043 13500000 DS 0H 13510000 * WORK3 = 23; /* INITIALIZE REG TO MINIMUM LNG 13520000 * OF MSG-IN CASE SEARCH FINDS NO 13530000 * ACTIVE TJB'S THE WTO RTN EXPECTS 13540000 * LNG IN REGISTER M3822 * 13550000 LA @7,23 0121 13560000 * WORK2 = TSCVTTJB; /* WORK3 = PTR TO TJB ARRAY */ 13570000 L @5,0(0,@2) 0122 13580000 * WORK2 = WORK2+48; /* INCREMENT TJB BASE PTR PASSED 13590000 * FIRST DUMMY TJB */ 13600000 AH @5,@D1 0123 13610000 * NOUSER = TSCVTCUS; /* SAVE COUNT OF TOTAL NUMBER OF 13620000 * ACTIVE USERS IN WORK FIELD */ 13630000 MVC NOUSER(2),20(@2) 0124 13640000 * 13650000 * /* SEARCH TJB ARRAY FOR ACTIVE USERS */ 13660000 * 13670000 * TJBLOOP: 13680000 * IF CNTTJB = TSCVTNTJ /* COMPARE COUNTER OF TJB'S SEARCHED 13690000 * AGAINST MAXIMUM NUMBER TJB'S 13700000 * IN TJB ARRAY */ 13710000 * THEN GO TO FORMAT; /* IF MAXIMUM REACHED, TJB SEARCH 13720000 TJBLOOP L @2,CVTPTR 0125 13730000 L @2,228(0,@2) CVTMAP 0125 13740000 LH @F,24(0,@2) 0125 13750000 CH @F,CNTTJB 0125 13760000 * ENDED, GO FORMAT MESSAGES */ 13770000 BC 08,FORMAT 0126 13780000 * CNTTJB = CNTTJB + 1; /* INCREMENT COUNTER OF NO. OF TJB'S 13790000 * SEARCHED */ 13800000 LA @F,1 0127 13810000 AH @F,CNTTJB 0127 13820000 STH @F,CNTTJB 0127 13830000 * 13840000 * /* IF WORKAREA IS FULL, STOP SEARCH AND GO TO FORMAT MESSAGES */ 13850000 * 13860000 * IF CORECNT => DUSERLMT /* COMPARE AMT OF WORKAREA USED 13870000 * AGAINST MAXIMUM SIZE OF WORKAREA * 13880000 * THEN GO TO FORMAT; /* IF MAXIMUM REACHED, STOP SEARCH 13890000 LH @F,DUSERLMT 0128 13900000 C @F,CORECNT 0128 13910000 * AND GO TO FORMAT MESSAGES * 13920000 BC 12,FORMAT 0129 13930000 * 13940000 * /* IF TJB IS ACTIVE THEN SAVE INFORMATION IN WORKAREA, ELSE 13950000 * CONTINUING LOOPING THROUGH TJB ARRAY */ 13960000 * 13970000 * IF TJBNJB = '1'B | TJBUSER(1) = ZEROS /* M0383 * 13980000 * /* IF TJB IS NOT IN USE(NEGATIVE 13990000 * LOGIC) OR USERID FIELD IS ZERO * 14000000 * THEN DO; /* THEN INCREMENT POINTER TO NEXT 14010000 TM 6(@5),B'10000000' 0130 14020000 BC 01,@9FC 0130 14030000 CLC 28(1,@5),ZEROS 0130 14040000 BC 07,@9FB 0130 14050000 * NEXT TJB AND CONTINUE LOOPING * 14060000 * WORK2 = WORK2 + 48; 14070000 @9FC AH @5,@D1 0132 14080000 * GO TO TJBLOOP; 14090000 BC 15,TJBLOOP 0133 14100000 * END; 14110000 * 14120000 * /* SAVE USERID AND REGION NUMBER OF USER IN WORKAREA */ 14130000 * 14140000 * CONTLOOP: 14150000 * USRID = TJBUSER; /* SAVE USERID IN WORKAREA * 14160000 @9FB EQU * 0135 14170000 CONTLOOP MVC 0(8,@3),28(@5) 0135 14180000 * RGNUM = RCBNMBR; /* SAVE REGION NUMBER OF USER IN WA * 14190000 L @2,12(0,@5) 0136 14200000 MVC 8(1,@3),18(@2) 0136 14210000 * CORECNT = CORECNT + 9; /* INCREMENT AMT OF WORKAREA USED BY 14220000 * ENTRY * 14230000 LA @F,9 0137 14240000 A @F,CORECNT 0137 14250000 ST @F,CORECNT 0137 14260000 * R3 = R3 + 9; /* INCREMENT POINTER TO NEXT ENTRY IN 14270000 * WORKAREA * 14280000 AH @3,@D2 0138 14290000 * WORK2 = WORK2 + 48; /* INCREMENT POINTER TO NEXT TJB * 14300000 AH @5,@D1 0139 14310000 * GO TO TJBLOOP; /* LOOP BACK TO TEST NEXT TJB * 14320000 BC 15,TJBLOOP 0140 14330000 * 14340000 * /* END OF SEARCH, ENABLE SYSTEM */ 14350000 * 14360000 * FORMAT: 14370000 * GEN; 14380000 FORMAT EQU * 0141 14390000 MODESET ENABLE=YES Y01043 14400000 DS 0H 14410000 * R3 = R12; /* POINT TO BEGINNING OF WORKAREA * 14420000 LR @3,@C 0142 14430000 * GEN (A R3,@SIZ001); 14440000 A R3,@SIZ001 14450000 DS 0H 14460000 * 14470000 * /* FORMAT MESSAGES */ 14480000 * 14490000 * FORMMSG1: 14500000 * R4 = ADDR(ENDLST1) - ADDR(WTOLST1) + 1; 14510000 FORMMSG1 LA @F,1 0144 14520000 LA @0,WTOLST1 0144 14530000 SR @F,@0 0144 14540000 LA @0,ENDLST1 0144 14550000 AR @F,@0 0144 14560000 LR @4,@F 0144 14570000 * /* CALCULATE LNG OF WTO EXP. M3822 * 14580000 * WTOMSG(1:R4) = WTOLST1(1:R4); 14590000 LA @E,WTOLST1 0145 14600000 LR @2,@4 0145 14610000 BCTR @2,0 0145 14620000 LA @A,WTOMSG 0145 14630000 EX @2,@MVC 0145 14640000 * /* MOVE WTO LIST FORM TO WORKAREA */ 14650000 * WORK2 = 23; /* INCREMENT OFFSET INTO MESSAGE TO 14660000 * TOTAL NUMBER OF USERS * 14670000 LA @5,23 0146 14680000 * R1 = NOUSER; /* GET TOTAL NUMBER OF ACTIVE USERS * 14690000 LH @1,NOUSER 0147 14700000 * 14710000 * /* CONVERT NUMBER OF ACTIVE USERS TO DECIMAL */ 14720000 * 14730000 * GEN; 14740000 CVD 1,CVDAREA 14750000 UNPK UNPKAREA(5),CVDAREA+6(3) M3822 14760000 DS 0H 14770000 * WTOMSG(19:21) = UNPKAREA(1:3); 14780000 MVC WTOMSG+18(3),UNPKAREA 0149 14790000 * /* MOVE CONVERTED NUMBER TO MSGAREA * 14800000 * 14810000 * /* MOVE USERIDS TO MESSAGE AREA IN WORKAREA */ 14820000 * 14830000 * MSG1LOOP: 14840000 * IF USRID(1) = ZEROS /* IF THERE ARE NO MORE USERIDS TO 14850000 * BE FORMATTED INTO MESSAGES * 14860000 * THEN GO TO WRITEMSG; /* THEN GO TO PUT MSG TO TERM/CONS * 14870000 MSG1LOOP CLC 0(1,@3),ZEROS 0150 14880000 BC 08,WRITEMSG 0151 14890000 * WORK3 = WORK2 + 8; /* INCREMENT TO END OF USERID * 14900000 LA @7,8 0152 14910000 AR @7,@5 0152 14920000 * WTOMSG(WORK2:WORK3) = USRID(1:8); 14930000 LR @E,@3 0153 14940000 LR @2,@7 0153 14950000 LR @8,@5 0153 14960000 SR @2,@8 0153 14970000 LA @A,WTOMSG-1(@8) 0153 14980000 EX @2,@MVC 0153 14990000 * /* MOVE USERID TO MESSAGE AREA * 15000000 * WTOMSG(WORK3) = RTPAREN; 15010000 LR @2,@7 0154 15020000 LA @A,WTOMSG-1(@2) 0154 15030000 MVC 0(1,@A),RTPAREN 0154 15040000 * /* MOVE INTO MESSAGE TEXT ENCLOSING 15050000 * PARENS FOR REGION NUMBER * 15060000 * WORK2=WORK3+1; /* POINT TO NEXT SPACE IN MSGAREA * 15070000 LA @5,1 0155 15080000 AR @5,@7 0155 15090000 * R1 = RGNUM; /* GET REGION NUMBER OF USER * 15100000 SR @1,@1 0156 15110000 IC @1,8(0,@3) 0156 15120000 * 15130000 * /* CONVERT REGION NUMBER TO DECIMAL */ 15140000 * 15150000 * GEN; 15160000 CVD 1,CVDAREA 15170000 UNPK CVDAREA+1(3),CVDAREA+6(2) TM1877 15180000 OI CVDAREA+3,X'F0' 15190000 DS 0H 15200000 * WORK3 = WORK2 + 1; /* POINT TO END OF REGION NUMBER * 15210000 LA @7,1 0158 15220000 AR @7,@5 0158 15230000 * WTOMSG(WORK2:WORK3) =CVDAREA(3:4); 15240000 LA @E,CVDAREA+2 0159 15250000 LR @2,@7 0159 15260000 LR @8,@5 0159 15270000 SR @2,@8 0159 15280000 LA @A,WTOMSG-1(@8) 0159 15290000 EX @2,@MVC 0159 15300000 * /* MOVE REGION NUMBER TO MSGAREA * 15310000 * WORK2 = WORK3+1; /* POINT TO NEXT SPACE IN MSG TEXT * 15320000 LA @5,1 0160 15330000 AR @5,@7 0160 15340000 * WTOMSG(WORK2) = LTPAREN; 15350000 LR @2,@5 0161 15360000 LA @A,WTOMSG-1(@2) 0161 15370000 MVC 0(1,@A),LTPAREN 0161 15380000 * /* MOVE ENCLOSING PARENS AROUND 15390000 * REGION NUMBER * 15400000 * WORK2 = WORK2+1; /* POINT TO NEXT SPACE IN MSG TEXT * 15410000 AH @5,@D3 0162 15420000 * WORK3 = WORK2; /* NEEDED FOR LNG OF MSG IN WTO RTN * 15430000 LR @7,@5 0163 15440000 * WTOMSG(WORK2) =BLANK; /* INSERT A SPACE BETWEEN ENTRIES * 15450000 LR @2,@5 0164 15460000 LA @A,WTOMSG-1(@2) 0164 15470000 MVC 0(1,@A),BLANK 0164 15480000 * WORK2 = WORK2 + 1; /* POINT TO NEXT SPACE IN MSG TEXT * 15490000 AH @5,@D3 0165 15500000 * R3 = R3 + 9; /* INCREMENT TO NEXT ENTRY IN WA * 15510000 AH @3,@D2 0166 15520000 * 15530000 * /* IF MESSAGE BUFFER FULL, WRITE MESSAGE TO REQUESTOR */ 15540000 * 15550000 * IF WORK2=>58 /* IF OFFSET INTO MESSAGE TEXT IS AT 15560000 * MAXIMUM LENGTH * 15570000 * THEN GO TO WRITEMSG; /* THEN GO TO ISSUE MSG M3822 * 15580000 CH @5,@D4 0167 15590000 BC 10,WRITEMSG 0168 15600000 * GO TO MSG1LOOP; 15610000 BC 15,MSG1LOOP 0169 15620000 * 15630000 * /* FORMAT MESSAGE FOR USER=NMBR REQUEST B */ 15640000 * 15650000 * FORMMSG: 15660000 * R4 = ADDR(ENDLST3) - ADDR(WTOLST3) + 1; 15670000 FORMMSG LA @F,1 0170 15680000 LA @0,WTOLST3 0170 15690000 SR @F,@0 0170 15700000 LA @0,ENDLST3 0170 15710000 AR @F,@0 0170 15720000 LR @4,@F 0170 15730000 * /* CALCULATE LNG OF MESSAGE M3822 * 15740000 * WTOMSG(1:R4) = WTOLST3(1:R4); 15750000 LA @E,WTOLST3 0171 15760000 LR @2,@4 0171 15770000 BCTR @2,0 0171 15780000 LA @A,WTOMSG 0171 15790000 EX @2,@MVC 0171 15800000 * /* MOVE WTO LIST FORM TO MSGAREA * 15810000 * R1 = TSCVTCUS; /* GET TOTAL NUMBER OF ACTIVE USERS * 15820000 L @2,CVTPTR 0172 15830000 L @2,228(0,@2) CVTMAP 0172 15840000 LH @1,20(0,@2) 0172 15850000 * GEN; 15860000 CVD 1,CVDAREA 15870000 UNPK UNPKAREA(5),CVDAREA+6(3) M3822 15880000 DS 0H 15890000 * WTOMSG(19:21) = UNPKAREA(1:3); 15900000 MVC WTOMSG+18(3),UNPKAREA 0174 15910000 * /* MOVE CONVERTED NUMBER TO MSGAREA * 15920000 * WORK3 = LNGMSG; /* GET LENGTH OF MESSAGE LIST FORM * 15930000 LH @7,WTOMSG 0175 15940000 * 15950000 * /* TEST IF ISSUER IS CONSOLE OR TERMINAL */ 15960000 * 15970000 * WRITEMSG: 15980000 * IF CHTJID = ZEROS /* IF TERMINAL ID FIELD IN CSCB IS 0* 15990000 * THEN GO TO CONSOLE; /* THEN CONSOLE ISSUED COMMAND, GO 16000000 WRITEMSG L @F,ZEROS 0176 16010000 LH @0,30(0,@6) 0176 16020000 CLR @F,@0 0176 16030000 * WTO MESSAGE TO CONSOLE * 16040000 BC 08,CONSOLE 0177 16050000 * 16060000 * /* TERMINAL REQUEST, TPUT MESSAGE TO TERMINAL */ 16070000 * 16080000 * WRTEMSG2: 16090000 * /* M2089 * 16100000 * R1 = ADDR(WTOMSG)+4; /* POINT TO MESSAGE TEXT * 16110000 WRTEMSG2 LA @1,WTOMSG+4 0178 16120000 * /* (INCREMENT PAST MCS FLAGS) * 16130000 * R0 = WORK3-4; /* DECREMENT WTO LENGTH BY 4 * 16140000 LR @F,@7 0179 16150000 SH @F,@D5 0179 16160000 LR @0,@F 0179 16170000 * /* TO ACCOUNT FOR MCS FLAGS IN 16180000 * WTO LIST EXPANSION */ 16190000 * R15 = CHTJID; /* GET TERMINAL ID FOR TPUT MACRO 16200000 * Y01012 * 16210000 LH @F,30(0,@6) 0180 16220000 * GEN; 16230000 TPUT (1),(0),TJID=(15) PUT MESSAGE TO TERMINAL M2089 16240000 DS 0H 16250000 * GO TO TESTMORE; /* GO TO DETERMINE IF THERE ARE 16260000 * MORE MSGS TO PUT TO TERM M3822 * 16270000 BC 15,TESTMORE 0182 16280000 * 16290000 * /* WTO MESSAGE TO ISSUING CONSOLE */ 16300000 * 16310000 * CONSOLE: 16320000 * LNGMSG = WORK3; /* SET LENGTH OF DYNAMIC MESSAGE IN 16330000 * WTO PARAMETER LIST * 16340000 CONSOLE STH @7,WTOMSG 0183 16350000 * R4 = WORK3 + 6; /* INCLUDE ROUTING AND DESCRIPTOR 16360000 * CODES M3822 * 16370000 LA @4,6 0184 16380000 AR @4,@7 0184 16390000 * WTOMSG(WORK3:R4) = DESCODE; /* MOVE INTO WTO PARMS M3822 * 16400000 LA @E,DESCODE 0185 16410000 LR @2,@4 0185 16420000 LR @8,@7 0185 16430000 SR @2,@8 0185 16440000 LA @A,WTOMSG-1(@8) 0185 16450000 EX @2,@MVC 0185 16460000 * R0 = CHUCMP; /* GET CONSOLE ID FROM CSCB * 16470000 SR @0,@0 0186 16480000 IC @0,29(0,@6) 0186 16490000 * R1 = ADDR(WTOMSG); /* POINT TO PARAMETER LIST * 16500000 LA @1,WTOMSG 0187 16510000 * GEN; 16520000 WTO MF=(E,(1)) PUT MESSAGE TO CONSOLE 16530000 DS 0H 16540000 * 16550000 * /* IF THERE ARE ANY MORE USERS TO BE LISTED, RETURN TO REFORMAT 16560000 * ANOTHER MESSAGE */ 16570000 * 16580000 * TESTMORE: 16590000 * IF USRID(1)^=ZEROS /* IF THERE ARE MORE USERID'S IN WA * 16600000 * THEN GO TO FORMMSG1; /* THEN GO TO FORMAT MESSAGE * 16610000 TESTMORE CLC 0(1,@3),ZEROS 0189 16620000 BC 07,FORMMSG1 0190 16630000 * ELSE GO TO RET1; /* ELSE RETURN TO INVOKER * 16640000 BC 15,RET1 0191 16650000 * 16660000 * /* FORMAT MESSAGE IEE325I TS NOT ACTIVE AND SEND TO CONSOLE */ 16670000 * 16680000 * NOTSO: 16690000 * R4 = ADDR(ENDLST2) - ADDR(WTOLST2) + 1; 16700000 NOTSO LA @F,1 0192 16710000 LA @0,WTOLST2 0192 16720000 SR @F,@0 0192 16730000 LA @0,ENDLST2 0192 16740000 AR @F,@0 0192 16750000 LR @4,@F 0192 16760000 * /* CALCULATE LNG OF MESSAGE M3822 * 16770000 * WTOMSG(1:R4) = WTOLST2(1:R4); 16780000 LA @E,WTOLST2 0193 16790000 LR @2,@4 0193 16800000 BCTR @2,0 0193 16810000 LA @A,WTOMSG 0193 16820000 EX @2,@MVC 0193 16830000 * /* MOVE WTO LIST FORM TO MSGAREA * 16840000 * R0 = CHUCMP; /* GET CONSOLE ID FROM CSCB * 16850000 SR @0,@0 0194 16860000 IC @0,29(0,@6) 0194 16870000 * R1 = ADDR(WTOMSG); /* POINT TO WTO PARAMETER LIST * 16880000 LA @1,WTOMSG 0195 16890000 * GEN; 16900000 WTO MF=(E,(1)) PUT ERROR MESSAGE TO CONSOLE 16910000 DS 0H 16920000 * RET1: 16930000 * RET: 16940000 * /* M2089 * 16950000 * R1 = R12; /* GET WORK AREA ADDR M3822 * 16960000 RET1 EQU * 0197 16970000 RET LR @1,@C 0197 16980000 * R0 = DUSERLMT; /* GET SIZE OF W/A M3822 * 16990000 LH @0,DUSERLMT 0198 17000000 * R3 = SAVE14; /* GET RETURN REG Y01012 * 17010000 L @3,SAVE14 0199 17020000 * GEN (FREEMAIN R,LV=(0),A=(1)); 17030000 FREEMAIN R,LV=(0),A=(1) 17040000 DS 0H 17050000 * /* FREEMAIN WORKAREA M3822 * 17060000 * CALL FREECSCB; /* FREE CORE FOR CSCB Y01012 * 17070000 BAL @E,FREECSCB 0201 17080000 * R15 = 0; /* SET RETURN CODE = NORMAL M4801 * 17090000 SR @F,@F 0202 17100000 * R14 = R3; /* RESTORE RETURN ADDRESS Y01012 * 17110000 LR @E,@3 0203 17120000 * RETURN; /* RETURN TO INVOKER * 17130000 BC 15,@EL01 0204 17140000 * GEN; 17150000 WTOLST1 WTO 'IEE327I USERS= *17160000 ',MF=L,DESC=(6),MCSFLAG=(REG0,RESP) 17170000 ENDLST1 EQU * M3822 17180000 WTOLST2 WTO 'IEE325I DISPLAY REJECTED-TSO NOT ACTIVE',MF=L, *17190000 DESC=(6),MCSFLAG=(REG0,RESP) 17200000 ENDLST2 EQU * M3822 17210000 WTOLST3 WTO 'IEE327I USERS= ',MF=L,DESC=(6),MCSFLAG=(REG0,RESP) 17220000 ENDLST3 EQU * M3822 17230000 ZEROWORK XC 0(WORK3,R3),0(R3) ZERO OUT WORK AREA M3822 17240000 DS 0H 17250000 * FREECSCB: PROC OPTIONS(NOSAVEAREA,DONTSAVE); 17260000 @EL01 BCR 15,@E 0206 17270000 * RESTRICT (R2,R3,R6); /* SAVE MOTHER RTN ADDRESS Y01012 * 17280000 * RESTRICT (R4); /* SET REG ASIDE FOR RETURN Y01012 * 17290000 * R4 = R14; /* SAVE RETURN ADDRESS Y01012 * 17300000 FREECSCB LR @4,@E 0209 17310000 * CHAD = '0'B; /* TURN OFF ADD BIT Y01012 * 17320000 NI 6(@6),B'11110010' 0210 17330000 * CHABTERM = '0'B; /* TURN OFF ABTERM FLAG Y01012 * 17340000 * CHDL = '0'B; /* TURN OFF DELETE FLAG Y01012 * 17350000 * CHFC = '1'B; /* INDICATE FREE Y01012 * 17360000 OI 6(@6),B'00000010' 0213 17370000 * R1 = R6; /* SET PTR TO CSCB Y01012 * 17380000 LR @1,@6 0214 17390000 * GEN(MGCR (1),CHAIN); /* FREE CORE FOR CSCB Y01012 * 17400000 MGCR (1),CHAIN 17410000 DS 0H 17420000 * R14 = R4; /* RESTORE RETURN ADDRESS Y01012 * 17430000 LR @E,@4 0216 17440000 * RELEASE (R2,R3,R4,R6);/* RETURN REGISTERS Y01012 * 17450000 * END FREECSCB; 17460000 @EL02 BCR 15,@E 0218 17470000 * END IEEVDUS1 17480000 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 17490000 * /*%INCLUDE SYSLIB (CVT ) 17500000 * /*%INCLUDE SYSLIB (IKJTSCVT) 17510000 * /*%INCLUDE SYSLIB (IKJTJB ) 17520000 * /*%INCLUDE SYSLIB (IKJRCB ) 17530000 * /*%INCLUDE SYSLIB (IEECHAIN) 17540000 * ; 17550000 @DATA1 EQU * 17560000 @0 EQU 00 EQUATES FOR REGISTERS 0-15 17570000 @1 EQU 01 17580000 @2 EQU 02 17590000 @3 EQU 03 17600000 @4 EQU 04 17610000 @5 EQU 05 17620000 @6 EQU 06 17630000 @7 EQU 07 17640000 @8 EQU 08 17650000 @9 EQU 09 17660000 @A EQU 10 17670000 @B EQU 11 17680000 @C EQU 12 17690000 @D EQU 13 17700000 @E EQU 14 17710000 @F EQU 15 17720000 @D1 DC H'48' 17730000 @D2 DC H'9' 17740000 @D3 DC H'1' 17750000 @D4 DC H'58' 17760000 @D5 DC H'4' 17770000 @MVC MVC 0(1,@A),0(@E) 17780000 DS 0F 17790000 @SIZ001 DC AL1(&SPN) 17800000 DC AL3(@DATEND-@DATD) 17810000 DS 0F 17820000 DS 0D 17830000 @DATA EQU * 17840000 CALLPARM EQU 00000000 FULLWORD POINTER 17850000 R0 EQU 00000000 FULLWORD INTEGER REGISTER 17860000 R1 EQU 00000001 FULLWORD POINTER REGISTER 17870000 R2 EQU 00000002 FULLWORD INTEGER REGISTER 17880000 R3 EQU 00000003 FULLWORD POINTER REGISTER 17890000 R4 EQU 00000004 FULLWORD INTEGER REGISTER 17900000 R6 EQU 00000006 FULLWORD POINTER REGISTER 17910000 R7 EQU 00000007 FULLWORD POINTER REGISTER 17920000 R11 EQU 00000011 FULLWORD POINTER REGISTER 17930000 R12 EQU 00000012 FULLWORD POINTER REGISTER 17940000 R15 EQU 00000015 FULLWORD INTEGER REGISTER 17950000 R14 EQU 00000014 FULLWORD INTEGER REGISTER 17960000 WORK1 EQU 00000004 FULLWORD POINTER REGISTER 17970000 WORK2 EQU 00000005 FULLWORD POINTER REGISTER 17980000 WORK3 EQU 00000007 FULLWORD POINTER REGISTER 17990000 CVTPTR EQU 00000016 FULLWORD POINTER 18000000 CVTMAP EQU 00000000 368 BYTE(S) ON WORD 18010000 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 18020000 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 18030000 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 18040000 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 18050000 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 18060000 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 18070000 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 18080000 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 18090000 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 18100000 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 18110000 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 18120000 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 18130000 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 18140000 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 18150000 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 18160000 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 18170000 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 18180000 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 18190000 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 18200000 CVTFLGS1 EQU CVTMAP+00000072 8 BIT(S) 18210000 CVTDMPLK EQU CVTMAP+00000072 1 BIT(S) 18220000 A00000 EQU CVTMAP+00000072 7 BIT(S) 18230000 CVTDARA EQU CVTMAP+00000073 3 BYTE POINTER ON WORD+1 18240000 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 18250000 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 18260000 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 18270000 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 18280000 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 18290000 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 18300000 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 18310000 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 18320000 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 18330000 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 18340000 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 18350000 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 18360000 A00001 EQU CVTMAP+00000116 1 BIT(S) 18370000 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 18380000 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 18390000 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 18400000 A00002 EQU CVTMAP+00000116 1 BIT(S) 18410000 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 18420000 CVT6DAT EQU CVTMAP+00000116 1 BIT(S) 18430000 A00003 EQU CVTMAP+00000116 1 BIT(S) 18440000 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 18450000 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 18460000 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 18470000 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 18480000 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 18490000 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 18500000 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 18510000 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 18520000 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 18530000 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 18540000 A00004 EQU CVTMAP+00000156 FULLWORD POINTER 18550000 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 18560000 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 18570000 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 18580000 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 18590000 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 18600000 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 18610000 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 18620000 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 18630000 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 18640000 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 18650000 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 18660000 A00005 EQU CVTMAP+00000182 2 BIT(S) 18670000 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 18680000 CVTXPFP EQU CVTMAP+00000182 1 BIT(S) 18690000 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 18700000 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 18710000 A00006 EQU CVTMAP+00000183 1 BIT(S) 18720000 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 18730000 CVTNLOG EQU CVTMAP+00000183 1 BIT(S) 18740000 A00007 EQU CVTMAP+00000183 1 BIT(S) 18750000 CVTFP EQU CVTMAP+00000183 1 BIT(S) 18760000 A00008 EQU CVTMAP+00000183 2 BIT(S) 18770000 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 18780000 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 18790000 A00009 EQU CVTMAP+00000192 FULLWORD POINTER 18800000 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 18810000 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 18820000 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 18830000 CVTMDLDS EQU CVTMAP+00000208 FULLWORD POINTER 18840000 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 18850000 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 18860000 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 18870000 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 18880000 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 18890000 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 18900000 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 18910000 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 18920000 A00010 EQU CVTMAP+00000228 7 BIT(S) 18930000 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 18940000 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 18950000 CVTGTF EQU CVTMAP+00000236 FULLWORD POINTER 18960000 CVTGTFST EQU CVTMAP+00000236 8 BIT(S) 18970000 CVTGTFS EQU CVTMAP+00000236 2 BIT(S) 18980000 CVTSTATE EQU CVTMAP+00000236 1 BIT(S) 18990000 CVTTMODE EQU CVTMAP+00000236 1 BIT(S) 19000000 CVTFORM EQU CVTMAP+00000236 1 BIT(S) 19010000 CVTUSR EQU CVTMAP+00000236 1 BIT(S) 19020000 A00011 EQU CVTMAP+00000236 2 BIT(S) 19030000 CVTGTFA EQU CVTMAP+00000237 3 BYTE POINTER ON WORD+1 19040000 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 19050000 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 19060000 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 19070000 A00012 EQU CVTMAP+00000240 7 BIT(S) 19080000 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 19090000 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 19100000 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 19110000 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 19120000 CVTATER EQU CVTMAP+00000248 FULLWORD POINTER 19130000 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 19140000 CVTATERA EQU CVTMAP+00000249 3 BYTE POINTER ON WORD+1 19150000 CVTEXT1 EQU CVTMAP+00000252 FULLWORD POINTER 19160000 CVTCBSP EQU CVTMAP+00000256 FULLWORD POINTER 19170000 CVTPURG EQU CVTMAP+00000260 FULLWORD POINTER 19180000 A00013 EQU CVTMAP+00000260 1 BYTE(S) 19190000 CVTPURGA EQU CVTMAP+00000261 3 BYTE POINTER ON WORD+1 19200000 CVTAMFF EQU CVTMAP+00000264 4 BYTE(S) 19210000 CVTQMSG EQU CVTMAP+00000268 FULLWORD POINTER 19220000 A00014 EQU CVTMAP+00000268 1 BYTE(S) 19230000 CVTQMSGA EQU CVTMAP+00000269 3 BYTE POINTER ON WORD+1 19240000 CVTDMSR EQU CVTMAP+00000272 FULLWORD POINTER 19250000 A00015 EQU CVTMAP+00000272 1 BYTE(S) 19260000 CVTDMSRA EQU CVTMAP+00000273 3 BYTE POINTER ON WORD+1 19270000 A00016 EQU CVTMAP+00000276 8 BYTE(S) 19280000 CVTREAL EQU CVTMAP+00000284 FULLWORD POINTER 19290000 CVTPTRV EQU CVTMAP+00000288 FULLWORD POINTER 19300000 CVTMODE EQU CVTMAP+00000292 FULLWORD POINTER 19310000 CVTJESCT EQU CVTMAP+00000296 FULLWORD POINTER 19320000 CVTJEPS EQU CVTMAP+00000300 FULLWORD POINTER 19330000 CVTTZ EQU CVTMAP+00000304 FULLWORD INTEGER 19340000 CVTMCHPR EQU CVTMAP+00000308 FULLWORD POINTER 19350000 CVTEORM EQU CVTMAP+00000312 FULLWORD POINTER 19360000 CVTERPV EQU CVTMAP+00000316 FULLWORD POINTER 19370000 CVTINTLA EQU CVTMAP+00000320 FULLWORD POINTER 19380000 CVTAPF EQU CVTMAP+00000324 FULLWORD POINTER 19390000 A00017 EQU CVTMAP+00000324 1 BYTE(S) 19400000 CVTAPFA EQU CVTMAP+00000325 3 BYTE POINTER ON WORD+1 19410000 CVTEXT2 EQU CVTMAP+00000328 FULLWORD POINTER 19420000 A00018 EQU CVTMAP+00000328 1 BYTE(S) 19430000 CVTEXT2A EQU CVTMAP+00000329 3 BYTE POINTER ON WORD+1 19440000 CVTHJES EQU CVTMAP+00000332 FULLWORD POINTER 19450000 A00019 EQU CVTMAP+00000332 1 BYTE(S) 19460000 CVTHJESA EQU CVTMAP+00000333 3 BYTE POINTER ON WORD+1 19470000 A00020 EQU CVTMAP+00000336 12 BYTE(S) 19480000 CVTPGSIA EQU CVTMAP+00000348 FULLWORD POINTER 19490000 CVTPCVT EQU CVTMAP+00000352 FULLWORD POINTER 19500000 CVTA1F1 EQU CVTMAP+00000356 1 BYTE(S) 19510000 CVTPFSW EQU CVTMAP+00000356 1 BIT(S) 19520000 CVTSRSW EQU CVTMAP+00000356 1 BIT(S) 19530000 A00021 EQU CVTMAP+00000356 6 BIT(S) 19540000 CVTSYSK EQU CVTMAP+00000357 1 BYTE(S) 19550000 A00022 EQU CVTMAP+00000357 4 BIT(S) 19560000 CVTSLKR EQU CVTMAP+00000357 1 BIT(S) 19570000 CVTSLKQ EQU CVTMAP+00000357 1 BIT(S) 19580000 CVTSLKP EQU CVTMAP+00000357 1 BIT(S) 19590000 CVTSLKO EQU CVTMAP+00000357 1 BIT(S) 19600000 CVTSULK EQU CVTMAP+00000358 HALFWORD INTEGER 19610000 CVTSMF EQU CVTMAP+00000360 FULLWORD POINTER 19620000 CVTPNWFR EQU CVTMAP+00000364 FULLWORD POINTER 19630000 CVTS01 EQU 00000348 92 BYTE(S) ON WORD 19640000 A00023 EQU CVTS01+00000000 FULLWORD POINTER 19650000 CVTLPDSR EQU CVTS01+00000004 FULLWORD POINTER 19660000 CVTPVTP EQU CVTS01+00000008 FULLWORD POINTER 19670000 CVTLPDIA EQU CVTS01+00000012 FULLWORD POINTER 19680000 CVTDIRST EQU CVTS01+00000012 1 BYTE(S) 19690000 CVTDICOM EQU CVTS01+00000012 1 BIT(S) 19700000 A00024 EQU CVTS01+00000012 7 BIT(S) 19710000 CVTLPDIR EQU CVTS01+00000013 3 BYTE POINTER ON WORD+1 19720000 CVTPAGE1 EQU CVTS01+00000016 FULLWORD POINTER 19730000 CVTPGSUP EQU CVTS01+00000020 FULLWORD POINTER 19740000 CVTSLIDA EQU CVTS01+00000024 4 BYTE(S) ON WORD 19750000 CVTSYLK EQU CVTS01+00000024 1 BYTE(S) 19760000 CVTSLID EQU CVTS01+00000025 3 BYTE(S) 19770000 CVTSER EQU CVTS01+00000028 FULLWORD POINTER 19780000 CVTSEFLG EQU CVTS01+00000028 1 BYTE(S) 19790000 CVTSEIC EQU CVTS01+00000028 1 BIT(S) 19800000 A00025 EQU CVTS01+00000028 7 BIT(S) 19810000 CVTSERA EQU CVTS01+00000029 3 BYTE POINTER ON WORD+1 19820000 CVTSEG EQU CVTS01+00000032 16 BYTE(S) ON WORD 19830000 CVTSEGA EQU CVTS01+00000032 FULLWORD POINTER 19840000 CVTSEGB EQU CVTS01+00000036 FULLWORD POINTER 19850000 CVTSEGC EQU CVTS01+00000040 FULLWORD POINTER 19860000 CVTSEGLC EQU CVTS01+00000040 1 BYTE POINTER 19870000 CVTSEGCA EQU CVTS01+00000041 3 BYTE POINTER ON WORD+1 19880000 CVTSEGD EQU CVTS01+00000044 FULLWORD POINTER 19890000 CVTSEGLD EQU CVTS01+00000044 1 BYTE POINTER 19900000 CVTSEGDA EQU CVTS01+00000045 3 BYTE POINTER ON WORD+1 19910000 A00026 EQU CVTS01+00000048 1 BYTE(S) 19920000 CVTSPVLK EQU CVTS01+00000049 1 BYTE POINTER 19930000 CVTCTLFG EQU CVTS01+00000050 1 BYTE(S) 19940000 CVTPSIC EQU CVTS01+00000050 1 BIT(S) 19950000 CVTAPGB EQU CVTS01+00000050 1 BIT(S) 19960000 A00027 EQU CVTS01+00000050 1 BIT(S) 19970000 CVTDSTAT EQU CVTS01+00000050 1 BIT(S) 19980000 A00028 EQU CVTS01+00000050 2 BIT(S) 19990000 CVTGTRCE EQU CVTS01+00000050 1 BIT(S) 20000000 CVTSDTRC EQU CVTS01+00000050 1 BIT(S) 20010000 CVTAPG EQU CVTS01+00000051 1 BYTE(S) 20020000 CVTTRACE EQU CVTS01+00000052 2 BYTE(S) 20030000 CVTTRAC2 EQU CVTS01+00000054 2 BYTE(S) 20040000 CVTRSCN EQU CVTS01+00000056 FULLWORD POINTER 20050000 CVTTAS EQU CVTS01+00000060 FULLWORD POINTER 20060000 CVTPVALD EQU CVTS01+00000064 FULLWORD POINTER 20070000 CVTSHRVM EQU CVTS01+00000068 FULLWORD POINTER 20080000 CVT0VL01 EQU CVTS01+00000072 FULLWORD POINTER 20090000 CVTPFIXQ EQU CVTS01+00000076 FULLWORD POINTER 20100000 CVTPFIXR EQU CVTS01+00000080 FULLWORD POINTER 20110000 CVTPFIXP EQU CVTS01+00000084 FULLWORD POINTER 20120000 CVTPTCD EQU CVTS01+00000088 FULLWORD POINTER 20130000 CVTXTNT1 EQU 00000000 4 BYTE(S) ON WORD 20140000 CVTFACHN EQU CVTXTNT1+00000000 FULLWORD POINTER 20150000 CVTXTNT2 EQU 00000000 32 BYTE(S) ON WORD 20160000 CVTDSSV EQU CVTXTNT2+00000000 FULLWORD POINTER 20170000 A00029 EQU CVTXTNT2+00000000 1 BYTE(S) 20180000 CVTDSSVA EQU CVTXTNT2+00000001 3 BYTE POINTER ON WORD+1 20190000 CVTNUCLS EQU CVTXTNT2+00000004 1 BYTE(S) 20200000 A00030 EQU CVTXTNT2+00000005 3 BYTE(S) 20210000 CVTDEBVR EQU CVTXTNT2+00000008 FULLWORD POINTER 20220000 A00031 EQU CVTXTNT2+00000012 3*FULLWORD INTEGER 20230000 CVTQID EQU CVTXTNT2+00000024 FULLWORD POINTER 20240000 A00032 EQU CVTXTNT2+00000024 1 BYTE(S) 20250000 CVTQIDA EQU CVTXTNT2+00000025 3 BYTE POINTER ON WORD+1 20260000 CVTOLTEP EQU CVTXTNT2+00000028 FULLWORD POINTER 20270000 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 20280000 A00033 EQU CVTFIX+00000000 248 BYTE(S) 20290000 A00034 EQU CVTFIX+00000248 2 BYTE(S) 20300000 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 20310000 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 20320000 CVTNUMB EQU CVTFIX+00000252 2 BYTE(S) 20330000 CVTLEVL EQU CVTFIX+00000254 2 BYTE(S) 20340000 TSCVT EQU 00000000 152 BYTE(S) ON WORD 20350000 TSCVTTJB EQU TSCVT+00000000 FULLWORD POINTER 20360000 TSCVTRCB EQU TSCVT+00000004 FULLWORD POINTER 20370000 TSCVTRPT EQU TSCVT+00000008 FULLWORD POINTER 20380000 TSCVTFLG EQU TSCVT+00000012 2 BYTE(S) 20390000 A00035 EQU TSCVT+00000012 1 BIT(S) 20400000 TSCSWPBG EQU TSCVT+00000012 1 BIT(S) 20410000 TSCLOGON EQU TSCVT+00000012 1 BIT(S) 20420000 TSCDISC EQU TSCVT+00000012 1 BIT(S) 20430000 TSCVTTHR EQU TSCVT+00000012 1 BIT(S) 20440000 TSCVTFL1 EQU TSCVT+00000014 2 BYTE(S) 20450000 TSCSSTOP EQU TSCVT+00000014 1 BIT(S) 20460000 TSCRSTOP EQU TSCVT+00000014 1 BIT(S) 20470000 TSCASTOP EQU TSCVT+00000014 1 BIT(S) 20480000 TSCTSTOP EQU TSCVT+00000014 1 BIT(S) 20490000 A00036 EQU TSCVT+00000014 1 BIT(S) 20500000 A00037 EQU TSCVT+00000014 1 BIT(S) 20510000 A00038 EQU TSCVT+00000014 1 BIT(S) 20520000 A00039 EQU TSCVT+00000014 1 BIT(S) 20530000 TSCVTI04 EQU TSCVT+00000016 FULLWORD POINTER 20540000 TSCVTCUS EQU TSCVT+00000020 HALFWORD INTEGER 20550000 TSCVTLUS EQU TSCVT+00000022 HALFWORD INTEGER 20560000 TSCVTNTJ EQU TSCVT+00000024 HALFWORD INTEGER 20570000 TSCVTSZU EQU TSCVT+00000026 HALFWORD INTEGER 20580000 TSCVTCTR EQU TSCVT+00000028 HALFWORD INTEGER 20590000 TSCVTMUS EQU TSCVT+00000030 HALFWORD INTEGER 20600000 TSCVTSAV EQU TSCVT+00000032 FULLWORD POINTER 20610000 TSCVTECB EQU TSCVT+00000036 FULLWORD POINTER 20620000 TSCVTSIA EQU TSCVT+00000040 FULLWORD POINTER 20630000 TSCVTICB EQU TSCVT+00000044 FULLWORD POINTER 20640000 TSCVTI01 EQU TSCVT+00000048 FULLWORD POINTER 20650000 TSCVTTQE EQU TSCVT+00000052 FULLWORD POINTER 20660000 TSCVTI02 EQU TSCVT+00000056 FULLWORD POINTER 20670000 TSCVTI03 EQU TSCVT+00000060 FULLWORD POINTER 20680000 TSCVTD02 EQU TSCVT+00000064 FULLWORD POINTER 20690000 TSCVTLCQ EQU TSCVT+00000068 FULLWORD POINTER 20700000 TSCVTTRB EQU TSCVT+00000072 FULLWORD POINTER 20710000 TSCVTLPA EQU TSCVT+00000076 FULLWORD POINTER 20720000 TSCVTSLF EQU TSCVT+00000080 FULLWORD INTEGER 20730000 TSCVTTSC EQU TSCVT+00000084 FULLWORD POINTER 20740000 TSCVTSPL EQU TSCVT+00000088 FULLWORD POINTER 20750000 TSCVTRSZ EQU TSCVT+00000092 HALFWORD INTEGER 20760000 A00040 EQU TSCVT+00000094 2 BYTE(S) 20770000 TSCVTSVT EQU TSCVT+00000096 4 BYTE(S) 20780000 TSCVTSVQ EQU TSCVT+00000100 4 BYTE(S) 20790000 TSCVTABN EQU TSCVT+00000104 FULLWORD POINTER 20800000 TSCVTD03 EQU TSCVT+00000108 FULLWORD POINTER 20810000 TSCVTFLM EQU TSCVT+00000112 FULLWORD POINTER 20820000 TSCVTQTP EQU TSCVT+00000116 FULLWORD POINTER 20830000 TSCVTT08 EQU TSCVT+00000120 FULLWORD POINTER 20840000 TSCVTDMP EQU TSCVT+00000124 FULLWORD POINTER 20850000 TSCVTT06 EQU TSCVT+00000128 FULLWORD POINTER 20860000 TSCVTLS3 EQU TSCVT+00000132 FULLWORD POINTER 20870000 TSCVTSMI EQU TSCVT+00000136 FULLWORD POINTER 20880000 TSCVTMSG EQU TSCVT+00000140 FULLWORD POINTER 20890000 TSCVTSCN EQU TSCVT+00000144 FULLWORD POINTER 20900000 TSCVTR01 EQU TSCVT+00000148 FULLWORD POINTER 20910000 TJB EQU 00000000 48 BYTE(S) ON WORD 20920000 TJBTSB EQU TJB+00000000 FULLWORD POINTER 20930000 TJBATTN EQU TJB+00000004 1 BYTE(S) 20940000 TJBSTAX EQU TJB+00000005 1 BYTE(S) 20950000 TJBSTAT EQU TJB+00000006 1 BYTE(S) 20960000 TJBNJB EQU TJB+00000006 1 BIT(S) 20970000 TJBINCOR EQU TJB+00000006 1 BIT(S) 20980000 TJBLOGON EQU TJB+00000006 1 BIT(S) 20990000 TJBIWAIT EQU TJB+00000006 1 BIT(S) 21000000 TJBOWAIT EQU TJB+00000006 1 BIT(S) 21010000 TJBSILF EQU TJB+00000006 1 BIT(S) 21020000 TJBDISC EQU TJB+00000006 1 BIT(S) 21030000 TJBSILF2 EQU TJB+00000006 1 BIT(S) 21040000 TJBSTAT2 EQU TJB+00000007 1 BYTE(S) 21050000 TJBHUNG EQU TJB+00000007 1 BIT(S) 21060000 TJBHOLD EQU TJB+00000007 1 BIT(S) 21070000 TJBOCAB EQU TJB+00000007 1 BIT(S) 21080000 TJBRNAV EQU TJB+00000007 1 BIT(S) 21090000 TJBSURSV EQU TJB+00000007 1 BIT(S) 21100000 TJBQUIS EQU TJB+00000007 1 BIT(S) 21110000 TJBUSERR EQU TJB+00000007 1 BIT(S) 21120000 TJBDEAD EQU TJB+00000007 1 BIT(S) 21130000 TJBEXTNT EQU TJB+00000008 FULLWORD POINTER 21140000 TJBRCB EQU TJB+00000012 FULLWORD POINTER 21150000 A00041 EQU TJB+00000016 FULLWORD POINTER 21160000 TJBSPCT EQU TJB+00000020 FULLWORD POINTER 21170000 A00042 EQU TJB+00000024 HALFWORD INTEGER 21180000 TJBRSTOR EQU TJB+00000026 1 BYTE(S) 21190000 TJBOWP EQU TJB+00000026 1 BIT(S) 21200000 TJBIWP EQU TJB+00000026 1 BIT(S) 21210000 A00043 EQU TJB+00000026 1 BIT(S) 21220000 TJBLOGP EQU TJB+00000026 1 BIT(S) 21230000 TJBLWAIT EQU TJB+00000026 1 BIT(S) 21240000 TJBDDRD EQU TJB+00000026 1 BIT(S) 21250000 TJBFAT EQU TJB+00000026 1 BIT(S) 21260000 TJBDDRND EQU TJB+00000026 1 BIT(S) 21270000 A00044 EQU TJB+00000027 1 BYTE(S) 21280000 TJBUSER EQU TJB+00000028 8 BYTE(S) 21290000 TJBIPPB EQU TJB+00000036 FULLWORD INTEGER 21300000 TJBNEWID EQU TJB+00000040 1 BYTE POINTER 21310000 TJBFLUSL EQU TJB+00000041 1 BYTE(S) 21320000 TJBTJID EQU TJB+00000042 HALFWORD INTEGER 21330000 TJBMONI EQU TJB+00000044 1 BYTE(S) 21340000 TJBMDSN EQU TJB+00000044 1 BIT(S) 21350000 TJBMJBN EQU TJB+00000044 1 BIT(S) 21360000 TJBMSES EQU TJB+00000044 1 BIT(S) 21370000 TJBMSPA EQU TJB+00000044 1 BIT(S) 21380000 TJBMSTA EQU TJB+00000044 1 BIT(S) 21390000 TJBGETBF EQU TJB+00000044 1 BIT(S) 21400000 A00045 EQU TJB+00000044 1 BIT(S) 21410000 A00046 EQU TJB+00000044 1 BIT(S) 21420000 TJBSTAT3 EQU TJB+00000045 1 BYTE(S) 21430000 TJBDISC2 EQU TJB+00000045 1 BIT(S) 21440000 TJBSOEM EQU TJB+00000045 1 BIT(S) 21450000 TJBLOGTM EQU TJB+00000045 1 BIT(S) 21460000 TJBLINE EQU TJB+00000046 2 BYTE(S) 21470000 RCB EQU 00000000 76 BYTE(S) ON WORD 21480000 RCBRCT EQU RCB+00000000 FULLWORD POINTER 21490000 RCBECB EQU RCB+00000004 FULLWORD INTEGER 21500000 RCBDIECB EQU RCB+00000008 FULLWORD INTEGER 21510000 RCBTJID EQU RCB+00000012 HALFWORD INTEGER 21520000 RCBRSIZE EQU RCB+00000014 HALFWORD INTEGER 21530000 RCBCOMM EQU RCB+00000016 HALFWORD INTEGER 21540000 RCBNMBR EQU RCB+00000018 1 BYTE(S) 21550000 RCBFLG EQU RCB+00000019 1 BYTE(S) 21560000 RCBFQU EQU RCB+00000019 1 BIT(S) 21570000 RCBFSO EQU RCB+00000019 1 BIT(S) 21580000 RCBFSI EQU RCB+00000019 1 BIT(S) 21590000 RCBFRS EQU RCB+00000019 1 BIT(S) 21600000 RCBOCAB EQU RCB+00000019 1 BIT(S) 21610000 RCBABRT EQU RCB+00000019 1 BIT(S) 21620000 RCBFAT EQU RCB+00000019 1 BIT(S) 21630000 RCBFND EQU RCB+00000019 1 BIT(S) 21640000 RCBFLG2 EQU RCB+00000020 1 BYTE(S) 21650000 RCBRDY EQU RCB+00000020 1 BIT(S) 21660000 RCBSTOP EQU RCB+00000020 1 BIT(S) 21670000 RCBACTV EQU RCB+00000020 1 BIT(S) 21680000 RCBSTR1 EQU RCB+00000020 1 BIT(S) 21690000 RCBSTR2 EQU RCB+00000020 1 BIT(S) 21700000 RCBDEAD EQU RCB+00000020 1 BIT(S) 21710000 RCBLOGPR EQU RCB+00000020 1 BIT(S) 21720000 RCBMODFY EQU RCB+00000020 1 BIT(S) 21730000 A00047 EQU RCB+00000021 1 BYTE(S) 21740000 RCBCUSE EQU RCB+00000022 HALFWORD INTEGER 21750000 RCBEXTNT EQU RCB+00000024 FULLWORD POINTER 21760000 RCBSPCT EQU RCB+00000028 FULLWORD POINTER 21770000 RCBTMECB EQU RCB+00000032 FULLWORD POINTER 21780000 RCBPRG EQU RCB+00000036 12 BYTE(S) 21790000 RCBQPL EQU RCB+00000048 FULLWORD POINTER 21800000 RCBSTECB EQU RCB+00000052 FULLWORD INTEGER 21810000 RCBRCOVR EQU RCB+00000056 1 BYTE(S) 21820000 RCBRSFLG EQU RCB+00000057 1 BYTE(S) 21830000 RCBRSTRT EQU RCB+00000057 1 BIT(S) 21840000 RCBTCBDN EQU RCB+00000057 1 BIT(S) 21850000 RCBQELCM EQU RCB+00000057 1 BIT(S) 21860000 RCBTQECM EQU RCB+00000057 1 BIT(S) 21870000 RCBRQIQC EQU RCB+00000057 1 BIT(S) 21880000 RCBIORSC EQU RCB+00000057 1 BIT(S) 21890000 RCBWTORC EQU RCB+00000057 1 BIT(S) 21900000 RCBSQECM EQU RCB+00000057 1 BIT(S) 21910000 RCBQUFLG EQU RCB+00000058 1 BYTE(S) 21920000 RCBQUSTR EQU RCB+00000058 1 BIT(S) 21930000 RCBIOSTR EQU RCB+00000058 1 BIT(S) 21940000 RCBSQEDN EQU RCB+00000058 1 BIT(S) 21950000 RCBWTORD EQU RCB+00000058 1 BIT(S) 21960000 RCBQELDN EQU RCB+00000058 1 BIT(S) 21970000 RCBIODON EQU RCB+00000058 1 BIT(S) 21980000 RCBTQEDN EQU RCB+00000058 1 BIT(S) 21990000 RCBRQIQD EQU RCB+00000058 1 BIT(S) 22000000 RCBSWTCH EQU RCB+00000059 1 BYTE(S) 22010000 RCBSTSP EQU RCB+00000059 1 BIT(S) 22020000 RCBSWTON EQU RCB+00000059 1 BIT(S) 22030000 RCBEXTRN EQU RCB+00000059 1 BIT(S) 22040000 RCBRMSAL EQU RCB+00000059 1 BIT(S) 22050000 RCBRMS1U EQU RCB+00000059 1 BIT(S) 22060000 RCBZQRF EQU RCB+00000059 1 BIT(S) 22070000 A00048 EQU RCB+00000059 1 BIT(S) 22080000 A00049 EQU RCB+00000059 1 BIT(S) 22090000 RCBCONID EQU RCB+00000060 1 BYTE(S) 22100000 RCBSTAEN EQU RCB+00000061 1 BYTE(S) 22110000 A00050 EQU RCB+00000062 2 BYTE(S) 22120000 RCBFXECB EQU RCB+00000064 FULLWORD POINTER 22130000 RCBUSPCT EQU RCB+00000068 FULLWORD POINTER 22140000 RCBPQE EQU RCB+00000072 FULLWORD POINTER 22150000 CHAIN EQU 00000000 176 BYTE(S) ON WORD 22160000 CHPTR EQU CHAIN+00000000 FULLWORD POINTER 22170000 CHFLG EQU CHAIN+00000004 4 BYTE(S) 22180000 CHVCD EQU CHAIN+00000004 1 BYTE(S) 22190000 CHSZE EQU CHAIN+00000005 1 BYTE POINTER 22200000 CHSTS EQU CHAIN+00000006 1 BYTE(S) 22210000 CHAP EQU CHAIN+00000006 1 BIT(S) 22220000 CHSYS EQU CHAIN+00000006 1 BIT(S) 22230000 CHSOUT EQU CHAIN+00000006 1 BIT(S) 22240000 CHQSPC EQU CHAIN+00000006 1 BIT(S) 22250000 CHAD EQU CHAIN+00000006 1 BIT(S) 22260000 CHDL EQU CHAIN+00000006 1 BIT(S) 22270000 CHFC EQU CHAIN+00000006 1 BIT(S) 22280000 CHABTERM EQU CHAIN+00000006 1 BIT(S) 22290000 CHACT EQU CHAIN+00000007 1 BYTE(S) 22300000 CHSWAP EQU CHAIN+00000007 1 BIT(S) 22310000 CHTERM EQU CHAIN+00000007 1 BIT(S) 22320000 CHDISC EQU CHAIN+00000007 1 BIT(S) 22330000 CHDSI EQU CHAIN+00000007 1 BIT(S) 22340000 CHCL EQU CHAIN+00000007 1 BIT(S) 22350000 CHCLD EQU CHAIN+00000007 1 BIT(S) 22360000 CHAIFX EQU CHAIN+00000007 1 BIT(S) 22370000 CHIFY EQU CHAIN+00000007 1 BIT(S) 22380000 CHKEY EQU CHAIN+00000008 8 BYTE(S) 22390000 CHCLS EQU CHAIN+00000016 8 BYTE(S) 22400000 CHUNIT EQU CHAIN+00000024 3 BYTE(S) 22410000 CHCIBCTR EQU CHAIN+00000027 1 BYTE POINTER 22420000 CHPKE EQU CHAIN+00000028 1 BYTE(S) 22430000 CHJBNR EQU CHAIN+00000028 1 BYTE(S) 22440000 CHJBNRF EQU CHAIN+00000028 6 BIT(S) 22450000 A00051 EQU CHAIN+00000028 2 BIT(S) 22460000 CHUCMP EQU CHAIN+00000029 1 BYTE(S) 22470000 CHTJID EQU CHAIN+00000030 HALFWORD INTEGER 22480000 CHASM EQU CHAIN+00000032 144 BYTE(S) ON WORD 22490000 CHECBP EQU CHAIN+00000032 FULLWORD POINTER 22500000 CHCIBP EQU CHAIN+00000036 FULLWORD POINTER 22510000 CHEND EQU CHAIN+00000036 1 BIT(S) 22520000 A00052 EQU CHAIN+00000036 7 BIT(S) 22530000 CHRPRTY EQU CHAIN+00000040 1 BYTE(S) 22540000 A00053 EQU CHAIN+00000041 3 BYTE POINTER ON WORD+1 22550000 A00054 EQU CHAIN+00000044 FULLWORD INTEGER 22560000 CHECB EQU CHAIN+00000048 FULLWORD INTEGER 22570000 CHCECB EQU CHAIN+00000052 FULLWORD INTEGER 22580000 A00055 EQU CHAIN+00000056 2*FULLWORD INTEGER 22590000 CHSHORT EQU CHAIN+00000064 112 BYTE(S) ON WORD 22600000 CHSWT EQU CHAIN+00000064 1 BYTE(S) 22610000 CHRESC EQU CHAIN+00000064 1 BIT(S) 22620000 CHJCT EQU CHAIN+00000064 1 BIT(S) 22630000 CHPSD EQU CHAIN+00000064 1 BIT(S) 22640000 CHPSF EQU CHAIN+00000064 1 BIT(S) 22650000 CHAC EQU CHAIN+00000064 1 BIT(S) 22660000 CHRESB EQU CHAIN+00000064 1 BIT(S) 22670000 A00056 EQU CHAIN+00000064 2 BIT(S) 22680000 CHTCB EQU CHAIN+00000065 3 BYTE POINTER ON WORD+1 22690000 CHSPB EQU CHAIN+00000068 FULLWORD POINTER 22700000 CHSPC EQU CHAIN+00000072 FULLWORD POINTER 22710000 CHJCL EQU CHAIN+00000076 FULLWORD POINTER 22720000 CHQPA EQU CHAIN+00000080 9*FULLWORD INTEGER 22730000 CHSQA EQU CHAIN+00000116 9*FULLWORD INTEGER 22740000 CHUSC EQU CHAIN+00000152 FULLWORD INTEGER 22750000 CHJSCB EQU CHAIN+00000156 FULLWORD POINTER 22760000 A00057 EQU CHAIN+00000160 4*FULLWORD INTEGER 22770000 CHAINS01 EQU 00000032 144 BYTE(S) ON WORD 22780000 CHBUF EQU CHAINS01+00000000 124 BYTE(S) 22790000 CHTYPE EQU CHAINS01+00000124 1 BYTE(S) 22800000 CHDSTAT EQU CHAINS01+00000124 1 BIT(S) 22810000 A00058 EQU CHAINS01+00000124 5 BIT(S) 22820000 CHHIAR EQU CHAINS01+00000124 1 BIT(S) 22830000 CHDEF EQU CHAINS01+00000124 1 BIT(S) 22840000 CHLSQA EQU CHAINS01+00000125 1 BYTE POINTER 22850000 CHCNID EQU CHAINS01+00000126 1 BYTE(S) 22860000 CHARID EQU CHAINS01+00000127 1 BYTE(S) 22870000 CHPEND EQU CHAINS01+00000128 FULLWORD POINTER 22880000 CHINC EQU CHAINS01+00000132 HALFWORD INTEGER 22890000 CHCSYSO EQU CHAINS01+00000134 1 BYTE(S) 22900000 CHALL EQU CHAINS01+00000134 1 BIT(S) 22910000 CHINN EQU CHAINS01+00000134 1 BIT(S) 22920000 CHOUT EQU CHAINS01+00000134 1 BIT(S) 22930000 CHHOLD EQU CHAINS01+00000134 1 BIT(S) 22940000 CHQUE EQU CHAINS01+00000134 1 BIT(S) 22950000 CHDUMP EQU CHAINS01+00000134 1 BIT(S) 22960000 CHJB EQU CHAINS01+00000134 1 BIT(S) 22970000 CHRESD EQU CHAINS01+00000134 1 BIT(S) 22980000 CHSPA EQU CHAINS01+00000135 1 BYTE(S) 22990000 A00059 EQU CHAINS01+00000136 8 BYTE(S) 23000000 CHLAST EQU CHAINS01+00000144 BYTE(S) 23010000 BLANK EQU * 1 BYTE(S) 23020000 DC C' ' 23030000 ORG @DATA+00000004 23040000 ZEROS EQU * 4 BYTE(S) ON WORD 23050000 DC X'00000000' 23060000 PARMAR EQU * FULLWORD INTEGER 23070000 DC XL4'00000010' 23080000 COMMNAME EQU @DATA+00000012 13 BYTE(S) ON WORD 23090000 A00060 EQU * 1 BYTE POINTER 23100000 DC XL1'0C' 23110000 A00061 EQU * 12 BYTE(S) 23120000 DC C'DISPLAY USER' 23130000 PARMLIST EQU 00000000 16 BYTE(S) ON WORD 23140000 CSCBADR EQU PARMLIST+00000000 FULLWORD POINTER 23150000 COMMAND EQU PARMLIST+00000004 FULLWORD POINTER 23160000 BASEADR EQU PARMLIST+00000008 FULLWORD POINTER 23170000 R14SAV EQU PARMLIST+00000012 FULLWORD POINTER 23180000 IDAREA EQU 00000000 9 BYTE(S) ON WORD 23190000 USRID EQU IDAREA+00000000 8 BYTE(S) 23200000 RGNUM EQU IDAREA+00000008 1 BYTE(S) 23210000 LTPAREN EQU * 1 BYTE(S) 23220000 DC C')' 23230000 RTPAREN EQU * 1 BYTE(S) 23240000 DC C'(' 23250000 OPERAND EQU * 9 BYTE(S) 23260000 DC C'USER=NMBR' 23270000 DESCODE EQU * FULLWORD INTEGER 23280000 DC XL4'04000000' 23290000 DUSERLMT EQU * HALFWORD INTEGER 23300000 DC XL2'750' 23310000 ORG @DATA 23320000 DS 00000042C 23330000 @L EQU 1 23340000 @DATD DSECT 23350000 SAVE14 EQU @DATD+00000000 FULLWORD INTEGER 23360000 WTOMSG EQU @DATD+00000004 76 BYTE(S) ON WORD 23370000 LNGMSG EQU WTOMSG+00000000 HALFWORD INTEGER 23380000 MCSBITS EQU WTOMSG+00000002 HALFWORD INTEGER 23390000 MSGTEXT EQU WTOMSG+00000004 72 BYTE(S) 23400000 CORECNT EQU @DATD+00000080 FULLWORD INTEGER 23410000 NOUSER EQU @DATD+00000084 HALFWORD INTEGER 23420000 CNTTJB EQU @DATD+00000086 HALFWORD INTEGER 23430000 FLAGS EQU @DATD+00000088 1 BYTE(S) ON WORD 23440000 TPUTFLAG EQU FLAGS+00000000 1 BIT(S) 23450000 UNPKAREA EQU @DATD+00000096 8 BYTE(S) ON DWORD 23460000 CVDAREA EQU @DATD+00000104 8 BYTE(S) ON DWORD 23470000 DS 00000112C 23480000 @TEMPS DS 0F 23490000 DS C 23500000 @DATEND EQU * 23510000 IEEVDUS1 CSECT , 23520000 @9FE EQU NOTSO 23530000 END IEEVDUS1 23540000