TITLE 'IEE40110 IGC40110 DISPLAY PFK' 00050000 IEE40110 CSECT 00100000 * /* START OF SPECIFICATIONS **** 00150000 *02* PROCESSOR = ASSEMBLER; 00200000 **** END OF SPECIFICATIONS ***/ 00300000 EJECT 00400000 * STATUS 00600000 * CHANGE LEVEL 0 00630000 * CREATED FOR RELEASE 21, LINE ITEM S21003. 00660000 * 00690000 * APARS FIXED ZA14044 00720000 * 00750000 * FUNCTION 00800000 * THIS ROUTINE PROVIDES A DISPLAY SHOWING THE CURRENT DEFINITIONS 00850000 * OF ALL PFKS WHICH WERE ALLOCATED AT SYSGEN IN RESPONSE TO AN 00900000 * OPERATOR COMMAND OF 'D PFK' 00950000 * 01000000 * ENTRY POINTS 01050000 * IEE40110 FOR ALL FUNCTIONS 01100000 * ENTERED FROM IGC00110 (IEE00110). 01150000 * 01200000 * OPERATION 01250000 * IF THE PFK AREA DOES NOT EXIST AN INFORMATION MESSAGE IS SENT 01300000 * TO THE OPERATOR. IF THE AREA DOES EXIST THE KEYS ARE 01350000 * EXAMINED ONE AT A TIME, FORMATTED AND WRITTEN TO THE SCREEN 01400000 * USING THE MULTIPLE LINE FACILITY OF WTO. 01450000 * 01500000 * INPUT 01550000 * A CSCB CONTAINING THE OPERATOR COMMAND (WHICH IS NOT SCANNED, 01600000 * BUT IS OVERLAYED AND USED AS A WORKAREA) AND THE PFK AREA 01650000 * POINTED TO BY THE RESIDENT DCM. 01700000 * 01750000 * OUTPUT 01800000 * MESSAGE IEE724I WHICH CONSISTS OF UP TO 26 LINES OF PFK 01850000 * DEFINITIONS. 01900000 * MESSAGE IEE720I IF THE DEVICE HAS NO PFKS ALLOCATED. 01950000 * MESSAGE IEE921I IF MCS IS NOT IN THE SYSTEM. 02000000 * 02050000 * EXTERNAL REFERENCES 02100000 * MACROS USED: TIME, WTO, XCTL. 02150000 * 02200000 * EXITS, NORMAL 02250000 * IGC00110 VIA XCTL WHEN WORK IS COMPLETE. 02300000 * 02350000 * EXITS, ERROR 02400000 * NONE. 02450000 * 02500000 * TABLES/WORK AREAS 02550000 * THE CSCB POINTED TO BY REGISTER 2. (SEE DSECT AT END OF 02600000 * LISTING). THE PFK AREA POINTED TO BY THE RESIDENT DCM 02650000 * FOR THE REQUESTING CONSOLE. 02700000 * 02750000 * ATTRIBUTES 02800000 * REFRESHABLE, PRIVILEGED, TYPE 4 SVC. 02850000 * 02900000 * CHARACTER CODE DEPENDENCY 02950000 * THE EQUATE 'ZONE' MUST REFLECT THE ZONE OF DECIMAL DIGITS. 03000000 * 03050000 * NOTES 03100000 * THE FOLLOWING FLAG BITS ARE USED: 03150000 * THE ACTION COLUMN INDICATES WHETHER THE BIT IS TURNED ON, OFF 03200000 * OR JUST TESTED BY THIS MODULE. 03250000 * 03300000 * NAME ACTION FUNCTION 03350000 * UCMMODE 03400000 * UCMMCS TEST MCS IS IN SYSTEM 03450000 * PFK AREA 03500000 * DCMPFKCN TEST KEY IS CONVERSATIONAL MODE 03550000 * DCMPFKDF TEST KEY IS DEFINED 03600000 * DCMPFKKY TEST KEY IS A LIST OF KEYS 03650000 * 03700000 *********************************************************************** 03750000 EJECT 03800000 * REGISTER EQUATES 03840000 CLOCK EQU 0 VALUE RETURNED BY TIME MACRO 03880000 WTOPT EQU 0 POINTER TO WTO TEXT 03920000 PARM1 EQU 1 XSA POINTER ON ENTRY 03960000 WTOIDOUT EQU 1 MLWTO ID FROM SVC 34 04000000 CSCB EQU 2 POINTER TO CSCB 04060000 UCMBASE EQU 3 UCM BASE REGISTER (TEMPORARY) 04120000 DCMBASE EQU 3 DCM BASE REGISTER 04200000 RET EQU 3 SUBROUTINE RETURN REGISTER 04250000 POINT EQU 4 CHAINING POINTER (VARIABLE) 04300000 BACKSCAN EQU 4 USED TO FIND LAST TEXT CHAR 04350000 WORK5 EQU 5 WORK REGISTER 04400000 APFK EQU 6 POINTER TO PFK AREA 04450000 INSCAN EQU 7 SCANS LIST OF KEYS IN AREA 04500000 ID EQU 8 CONSOLE ID 04550000 COUNT EQU 9 LOOP CONTROL 04600000 OUTSCAN EQU 10 OUTPUT PTR FOR LIST OF KEYS 04650000 XSAREG EQU 11 XSA BASE REGISTER 04700000 PROGBASE EQU 12 PROGRAM BASE REGISTER 04750000 SAVEAREA EQU 13 PTR TO MAINLINE SAVE AREA 04800000 RETURN EQU 14 RETURN REGISTER 04850000 ENTRY EQU 15 ENTRY POINT REGISTER 04900000 COMPARE EQU 15 COMPARE REG FOR LINE LENGTH 04950000 EJECT 05000000 BALR PROGBASE,N0 SET BASE ADDRESS 05050000 USING *,PROGBASE AND TELL ASSEMBLER 05100000 USING CSCBSECT,CSCB 05150000 * NOTE CSCB ADDRESS WAS PASSED IN REG 2 05200000 B ICATCH BRANCH AROUND EYECATCHER 05250000 DC C' MODULE IGC40110, FICHE IEE40110 ' EYECATCHER AND 05300000 ZAPAREA DC 12C'ZAP' RESERVED FOR FIELD MODIFICATIONS 05350000 ICATCH LR XSAREG,PARM1 SAVE XSA POINTER 05400000 USING PSXA,XSAREG 05450000 * NOTE XSA ADDRESS WAS PASSED IN REG 1 05500000 STM SAVEAREA,WTOIDOUT,CSCBSAVE SAVE REGS 05550000 NI FLAGS,N0 ZERO FLAG BYTE 05600000 SR WORK5,WORK5 CLEAR WORK 05650000 SR ID,ID REGISTERS 05700000 SPACE 5 05750000 ***************************************************************** 05800000 L POINT,CVTADDR GET CVT POINTER 05860000 USING CVTDSECT,POINT 05920000 L POINT,CVTCUCB GET UCM POINTER 06000000 DROP POINT 06050000 IC ID,CHUCMP GET CONSOLE ID 06100000 LR WORK5,ID 06150000 LR WTOPT,ID POINT WTO TO CONSOLE 06200000 BCTR WORK5,N0 SUBTRACT ONE FOR LATER MULTIPLY 06250000 USING UCM,POINT 06300000 MVC PREFIX,HEADER MOVE PREFIX INTO WORKAREA 06350000 MVI LINTYPE,NONE SET UP FOR STANDARD WTO 06400000 EJECT 06600000 ***************************************************************** 06800000 LM UCMBASE,POINT,UCMVEA YES, GET ENTRY AND LENGTH POINTERS 06850000 DROP POINT 06900000 MR POINT,POINT INDEX TO CORRECT CONSOLE 06950000 * NOTE THIS MULTIPLIES POINT (LENGTH) BY WORK5 (ID) TO 07000000 * OBTAIN INDEX IN WORK5. 07050000 AR UCMBASE,WORK5 PLUS ENTRY EQUAL UCM ENTRY 07100000 USING UCMLIST,UCMBASE 07150000 SPACE 5 07200000 ***************************************************************** 07260000 NC UCMXB,UCMXB IS THIS A GRAPHICS CONSOLE 07320000 BZ MSG1 NO, ISSUE MESSAGE 07400000 SPACE 5 07460000 ***************************************************************** 07520000 L DCMBASE,UCMXB YES, LOAD RESIDENT DCM POINTER 07600000 DROP UCMBASE 07650000 USING RESDCM,DCMBASE 07700000 L APFK,DCMADPFK POINT TO PFK AREA 07750000 LTR APFK,APFK ARE ANY KEYS ALLOCATED 07800000 BZ MSG1 NO, ISSUE MESSAGE 07850000 DROP DCMBASE 07900000 SH APFK,PFKLGTH BACK UP 1 PSEUDO AREA 07950000 MVC TEXT(L'MSGID),MSGID MOVE IN MESSAGE ID 08000000 EJECT 08060000 ***************************************************************** 08120000 TIME DEC GET TIME 08200000 * NOTE TIME RETURNED IN REG 0 AS PACKED DECIMAL 08260000 SPACE 5 08320000 ***************************************************************** 08400000 ST CLOCK,TEXT+N8 STORE PACKED DECIMAL TIME 08450000 UNPK TEXT+N10(N7),TEXT+N8(N4) UNPACK IT 08500000 MVI TEXT+N16,BLANK BLANK FRACTIONAL SECONDS 08550000 MVC TEXT+N9(N4),TEXT+N10 SHIFT HOURS LEFT 08600000 MVC TEXT+N8(N2),TEXT+N9 SHIFT MINUTES LEFT 08650000 MVI TEXT+N10,PERIOD ADD IN 08700000 MVI TEXT+N13,PERIOD PUNCTUATION 08750000 MVC TEXT+N19(L'CONTROL),CONTROL MOVE IN CONTROL LINE TEXT 08800000 MVI LINTYPE,CTRLINE SET LINE TYPE FLAG 08850000 LR WTOPT,ID REFRESH ID POINTER 08900000 SPACE 5 08950000 ***************************************************************** 09000000 BAL RET,SUBROUT GO TO WRITE THE CONTROL LINE 09060000 SPACE 5 09120000 ***************************************************************** 09200000 MVC TEXT(L'TITLE),TITLE MOVE IN TITLE LINE 09260000 MVI LINTYPE,TITLINE SET LINE TYPE FLAG 09320000 SPACE 5 09400000 ***************************************************************** 09460000 LOOP CLI PFKLGN(APFK),STOPPER IS NEXT KEY A STOPPER 09520000 * NOTE IT CANNOT BE ON FIRST PASS 09600000 BE ENDFLAG YES, GO TO MARK LAST LINE 09660000 SPACE 5 09720000 ***************************************************************** 09800000 BAL RET,SUBROUT WRITE NEXT LINE 09850000 MVI LINTYPE,DATA SET LINE TYPE TO DATA LINE 09900000 SPACE 5 09950000 ***************************************************************** 10000000 LA APFK,PFKLGN(APFK) POINT TO NEXT KEY 10060000 SPACE 5 10120000 ***************************************************************** 10200000 SR WORK5,WORK5 CLEAR REGISTER 10260000 IC WORK5,N0(APFK) GET KEY NUMBER 10320000 CVD WORK5,PACK CONVERT TO DECIMAL 10400000 UNPK PACK,CVBIN UNPACK IT 10450000 OI PACK+N3,ZONE INSERT EBCDIC ZONE 10500000 MVC TEXT+N2(N2),PACK+N2 MOVE KEY NUMBER TO LINE 10550000 SPACE 5 10600000 ***************************************************************** 10660000 TM N1(APFK),DCMPFKDF IS KEY DEFINED 10720000 BNO NOTDEF NO, MOVE IN MESSAGE 10800000 EJECT 10860000 ***************************************************************** 10920000 TM N1(APFK),DCMPFKCN IS KEY CONVERSATIONAL 11000000 BO CONVERS YES, GO TO INDICATE SO 11060000 SPACE 5 11120000 ***************************************************************** 11200000 MVC TEXT+N7(L'NO),NO NO, INDICATE SO 11250000 B TESTYPE GO SEE IF KEY IS A LIST 11300000 SPACE 5 11350000 ***************************************************************** 11400000 CONVERS MVC TEXT+N7(L'YES),YES INDICATE CONV MODE 11460000 SPACE 5 11520000 ***************************************************************** 11600000 TESTYPE TM N1(APFK),DCMPFKKY IS THIS A LIST OF KEYS 11660000 BO KEYLIST YES, GO TO FORMAT IT 11720000 SPACE 5 11800000 ***************************************************************** 11860000 TEXTCOM EQU * 11920000 CLC TEXT+N13(PFKLIN/2),PFKLIN/2+N2(APFK) 12000000 * IS SECOND HALF LINE BLANK 12050000 MVC TEXT+N13(PFKLIN/2),N2(APFK) MOVE FIRST 1/2 LINE ANYWAY 12100000 EJECT 12150000 ***************************************************************** 12200000 BE LOOP YES, GET NEXT KEY 12260000 SPACE 5 12320000 ***************************************************************** 12400000 BAL RET,SUBROUT GO TO WRITE LINE 12460000 SPACE 5 12520000 ***************************************************************** 12600000 MVC TEXT+N13(PFKLIN/2),PFKLIN/2+N2(APFK) MOVE IN 2ND LINE 12660000 B LOOP GO TO NEXT TEST 12720000 SPACE 5 12800000 ***************************************************************** 12860000 KEYLIST EQU * 12920000 LA INSCAN,N2(APFK) POINT TO FIRST KEY IN LIST 13000000 SR COUNT,COUNT CLEAR LOOP CONTROL REG 13050000 LA COUNT,TEXT+PFKLIN/2+N10 SET COUNT FOR END OF LINE 13100000 SPACE 5 13150000 ***************************************************************** 13200000 SECLINE LA OUTSCAN,TEXT+N13 POINT TO TEXT AREA OF LINE 13260000 EJECT 13320000 ***************************************************************** 13400000 NEXTKEY SR WORK5,WORK5 CLEAR REGISTER 13460000 IC WORK5,N0(INSCAN) GET KEY NUMBER 13520000 CVD WORK5,PACK CONVERT TO DECIMAL 13600000 UNPK PACK,CVBIN UNPACK IT 13650000 OI PACK+N3,ZONE ADD EBCDIC ZONE 13700000 CLI PACK+N2,ZERO IS FIRST DIGIT ZERO 13750000 BE ONEDIG YES, SKIP FIRST DIGIT 13800000 MVC N0(N1,OUTSCAN),PACK+N2 MOVE FIRST DIGIT 13850000 LA OUTSCAN,N1(OUTSCAN) BUMP OUTPUT POINTER 13900000 ONEDIG EQU * 13950000 MVC N0(N1,OUTSCAN),PACK+N3 MOVE SECOND DIGIT 14000000 MVI N1(OUTSCAN),COMMA MOVE IN COMMA 14050000 LA OUTSCAN,N2(OUTSCAN) BUMP OUTPUT POINTER 14100000 LA INSCAN,N2(INSCAN) BUMP INPUT POINTER 14150000 SPACE 5 14200000 ***************************************************************** 14260000 ENDLIST CLI N0(INSCAN),STOPLIST IS THIS END OF LIST 14320000 BE CLEARCOM YES, GO ON TO NEXT KEY 14400000 SPACE 5 14460000 ***************************************************************** 14520000 CR COUNT,OUTSCAN IS THIS END OF DISPLAY LINE 14600000 BNL NEXTKEY NO, GET NEXT KEY 14660000 SPACE 5 14720000 ***************************************************************** 14800000 BAL RET,SUBROUT YES, WRITE THIS LINE OUT 14850000 B SECLINE GO TO FORMAT SECOND LINE 14900000 EJECT 14950000 ***************************************************************** 15000000 CLEARCOM EQU * 15060000 SH OUTSCAN,H1 POINT TO LAST COMMA 15120000 MVI N0(OUTSCAN),BLANK BLANK IT OUT 15200000 B LOOP GO ON TO NEXT KEY 15260000 SPACE 5 15320000 ***************************************************************** 15400000 NOTDEF EQU * 15450000 MVC TEXT+N14(L'UNDEF),UNDEF MOVE IN UNDEFINED MESSAGE 15500000 B LOOP GO ON TO NEXT KEY 15550000 EJECT 15600000 ***********SUBROUTINE TO WRITE EACH LINE ************ 15700000 ***************************************************************** 15800000 SUBROUT LA BACKSCAN,SUFF PT TO END OF TEXT 15850000 BCTR BACKSCAN,N0 POINT TO LAST CHARACTER 15900000 X CLI N0(BACKSCAN),BLANK IS IT BLANK 15950000 BNE NONBLANK NO, MARK LOCATION 16000000 * NOTE THE FOLLOWING INSTRUCTION DOES NOT PROVIDE LOOP CONTROL 16050000 BCT BACKSCAN,X YES, POINT TO NEXT CHAR 16100000 SPACE 5 16150000 ***************************************************************** 16200000 NONBLANK MVC N1(L'SUFFIX,BACKSCAN),SUFFIX MOVE IN SUFFIX FLAGS 16260000 SPACE 5 16320000 ***************************************************************** 16400000 TM FLAGS,FLAGA IS THIS A REGULAR WTO 16460000 BNO MLWTO NO, DON'T CHANGE PREFIX 16520000 SPACE 5 16600000 ***************************************************************** 16660000 MVC PREFIX+N2(N2),ORDWTO YES, ALTER PREFIX 16720000 SPACE 5 16800000 ***************************************************************** 16860000 MLWTO MVC N5(N1,BACKSCAN),LINTYPE MARK LINE TYPE AS REQUIRED 16920000 EJECT 17000000 ***************************************************************** 17060000 LA COMPARE,PREFIX PT TO START OF PARAMETER LIST 17120000 SR BACKSCAN,COMPARE DETERMINE TOTAL LENGTH MINUS ONE 17200000 LA BACKSCAN,N1(BACKSCAN) ADD ONE FOR TRUE LENGTH 17250000 STC BACKSCAN,PREFIX+N1 STORE IN HEADER 17300000 SPACE 5 17350000 ***************************************************************** 17400000 WTO MF=(E,PREFIX) 17440000 LTR ENTRY,ENTRY TEST RETURN CODE MC YM3872 17480000 BNZ EXIT DISPLAY CANCELLED, EXIT MC YM3872 17520000 * NOTE WTO MESG ID IS RETURNED IN REG 1, BUT MUST BE PASSED 17560000 * BACK WITH CONSOLE ID IN REG 0 17600000 SPACE 5 17660000 ***************************************************************** 17720000 LR WTOPT,WTOIDOUT MOVE WTO ID FOR NEXT LINE 17800000 SLL WTOPT,N8 ALIGN WTO ID IN REG 17850000 IC WTOPT,CHUCMP INSERT CONSOLE ID 17900000 SPACE 5 17950000 ***************************************************************** 18000000 MVI TEXT,BLANK BLANK THE 18060000 MVC TEXT+N1(N70),TEXT TEXT AREA 18120000 SPACE 5 18200000 ***************************************************************** 18260000 BR RET RETURN TO CALLER 18320000 *************END OF SUBROUTINE***************** 18400000 EJECT 18460000 ***************************************************************** 18520000 ENDFLAG EQU * 18600000 MVI LINTYPE,DTEND SET LINE TYPE TO DATA-END 18660000 SPACE 5 18720000 ***************************************************************** 18800000 BAL RET,SUBROUT GO TO WRITE LINE 18860000 SPACE 5 18920000 ***************************************************************** 19000000 EXIT LM SAVEAREA,WTOIDOUT,CSCBSAVE RETORE SAVED REGS 19050000 MVI XAX+N3,ZERO POINT TO FIRST LOAD OF SVC 110 19100000 XCTL SF=(E,(XSAREG)) RETURN TO IT TO FREE CSCB AND EXIT 19150000 SPACE 5 19200000 ***************************************************************** 19400000 SETA OI FLAGS,FLAGA INDICATE NORMAL WTO 19600000 BAL RET,SUBROUT GO TO WRITE LINE 19650000 B EXIT RETURN TO CALLER 19700000 EJECT 19750000 ***************************************************************** 19800000 MSG1 EQU * 19860000 MVC TEXT(L'NALLOC),NALLOC MOVE IN MESSAGE 19920000 B SETA SET NORMAL LINE FLAG 20000000 EJECT 20050000 ************* CONSTANTS 20100000 CONTROL DC C'PFK DEFINITION' CONTROL LINE TEXT 20150000 HEADER DC X'0000E140' LINE LENGTH AND MCS FLAGS 20200000 H1 DC H'1' ONE 20250000 MSGID DC C'IEE724I' MESSAGE IDENTIFIER 20300000 NALLOC DC C'IEE720I NO PFK ALLOCATION' 20350000 NO DC C'NO' KEY NOT CONVERSATIONAL MODE 20400000 ORDWTO DC X'6100' FLAGS FOR STANDARD WTO 20460000 PFKLGTH DC H'110' LENGTH OF PFK AREA 20520000 SUFFIX DC X'098000000000E901' MLWTO CONTROL 20600000 TITLE DC C' KEY# CONV DEFINITION...' TITLE TEXT @ZA14044 20650000 UNDEF DC C'NOT DEFINED' KEY IS NOT DEFINED 20700000 YES DC C'YES' KEY IS CONVERSATIONAL MODE 20750000 EJECT 20800000 *********** EQUATES 20850000 BLANK EQU C' ' BLANK CHARACTER 20900000 COMMA EQU C',' COMMA CHARACTER 20950000 CTRLINE EQU X'80' CONTROL LINE TYPE FLAG 21000000 CVTADDR EQU 16 CVT POINTER ADDRESS 21050000 DATA EQU X'20' DATA LINE TYPE FLAG 21100000 DTEND EQU X'30' DATA-END LINE TYPE FLAG 21150000 MVCLN EQU 256 LENGTH OF EACH MOVE TO COPY PFK AREA 21200000 NONE EQU X'00' NULL LINE TYPE 21250000 N0 EQU 0 NUMBER 21300000 N1 EQU 1 NUMBER 21350000 N2 EQU 2 NUMBER 21400000 N3 EQU 3 NUMBER 21450000 N4 EQU 4 NUMBER 21500000 N5 EQU 5 NUMBER 21550000 N6 EQU 6 NUMBER 21600000 N7 EQU 7 NUMBER 21650000 N8 EQU 8 NUMBER 21700000 N9 EQU 9 NUMBER 21750000 N10 EQU 10 NUMBER 21800000 N11 EQU 11 NUMBER 21850000 N12 EQU 12 NUMBER 21900000 N13 EQU 13 NUMBER 21950000 N14 EQU 14 NUMBER 22000000 N15 EQU 15 NUMBER 22050000 N16 EQU 16 NUMBER 22100000 N19 EQU 19 NUMBER 22150000 N70 EQU 70 NUMBER 22200000 ONEBYTE EQU 8 NUMBER OF BITS IN BYTE 22250000 PERIOD EQU C'.' PERIOD CHARACTER 22300000 PFKLGN EQU 110 LENGTH OF PFK AREA 22350000 PFKLIN EQU PFKLGN-2 LENGTH OF PFK TEXT 22400000 STOPLIST EQU X'61' STOPPER FOR LIST OF KEYS 22450000 STOPPER EQU X'64' FLAG TO SHOW END OF LIST OF KEYS 22500000 TITLINE EQU X'40' TITLE LINE TYPE FLAG 22550000 ZERO EQU C'0' CHARACTER ZERO 22600000 ZONE EQU X'F0' EBCDIC ZONE 22620000 DCMPFKDF EQU X'80' KEY HAS BEEN DEFINED 22640000 DCMPFKCN EQU X'20' KEY IS CONVERSATIONAL 22660000 DCMPFKKY EQU X'08' KEY IS A LIST OF KEYS 22680000 TITLE 'IEE40110 IGC40110 DISPLAY PFK CXSA' 22700000 PSXA DSECT 22720000 IEEXSA 22800000 TITLE 'IEE40110 IGC40110 DISPLAY PFK COMMUNICATIONS VECTO*22850000 R TABLE' 22900000 CVTDSECT DSECT 22950000 CVT 23000000 TITLE 'IEE40110 IGC40110 DISPLAY PFK RESIDENT DISPLAY CON*23050000 TROL MODULE' 23100000 RESDCM DSECT 23150000 IEECRDCM 23200000 TITLE 'IEE40110 IGC40110 DISPLAY PFK TRANSIENT DISPLAY CO*23250000 NTROL MODULE' 23300000 DCMSECT DSECT 23350000 IEECDCM 23400000 TITLE 'IEE40110 IGC40110 DISPLAY PFK UNIT CONTROL MODULE' 23460000 IEECUCM FORMAT=NEW 23520000 TITLE 'IEE40110 IGC40110 DISPLAY PFK CSCB (USED AS WORKSP*23600000 ACE)' 23650000 CSCBSECT DSECT 23700000 IEECHAIN 23750000 * NOTE THE FOLLOWING PORTION SHOWS HOW THIS MODULE MAKES USE 23800000 * OF THE CSCB AS A WORK AREA. 23850000 ORG CHBUF START MODULE WORKAREA ON D/W 23900000 FLAGS DC X'00' NOT USED 23950000 FLAGA EQU X'80' USE REGULAR WTO 24000000 LINTYPE DC X'00' LINE TYPE 24050000 OP DS 14C INCOMING COMMAND OPERAND 24100000 PREFIX DC X'00000000' WTO LINE LENGTH AND MCS FLAGS 24150000 TEXT DC 71C' ' TEXT OF OUTPUT LINE 24200000 SUFF DC X'000000000000' MLWTO CONTROL AREA 24250000 DS 3C UNUSED 24300000 CSCBSAVE DS 5F REGISTER SAVE AREA 24350000 ORG CHPEND ALIGN TO D/W PAST CONSOLE ID 24400000 PACK DC F'0' AREA TO PLACE NUMBER FOR PACKING 24450000 CVBIN DC F'0' AREA FOR CONVERSION TO BINARY 24500000 END IEE40110 24550000