MSG TITLE 'IEECB911 MSG CSECT FOR IEECB910' 00050043 IEECB911 CSECT 00100043 MODID BRANCH=NO 00120043 */***************************************************************/ 00150043 * /* START OF SPECIFICATIONS **** 00200043 * 00250043 * MODULE NAME = IEECB911 00300043 * 00350043 * DESCRIPTIVE NAME = DISPLAY DUMP MESSAGE CSECT 00400043 * 00450043 ***************************************************************** 00500043 * COPYRIGHT = NONE 00550043 * 00600043 * STATUS = NEW FOR OS/VS2 R3.7 SU33 @G33CPHE 00650043 * 00700043 * FUNCTION = MESSAGE CSECT FOR IEECB910 00750043 * 00800043 * OPERATION = NONE 00850043 * 00900043 * NOTES = 00950043 * 01000043 * DEPENDENCIES = SYSTEM 370 COMPATABLE HARDWARE. 01050043 * MUST BE ASSEMBLED WITH THE CHARACTER CODE THAT THE 01070043 * WTO MESSAGES ARE TO APPEAR IN. 01090043 * 01150043 * RESTRICTIONS = NONE 01200043 * 01250043 * REGISTER CONVENTIONS = NONE 01300043 * 01350043 * ADDITIONAL NOTES = WHERE BIT STRINGS ARE THE BASIS OF THE MSG 01400043 * TO BE GENERATED THE TEXT IN THIS CSECT IS IN A 01403043 * CONTINUOUS STRING CORRESPONDING TO THE BIT STRING. 01406043 * THERE IS ONE ELEMENT OF THE STRING FOR EACH BIT 01409043 * IN THE STRING. EACH ELEMENT CONSISTS OF A ONE BYTE 01412043 * LENGTH OF THE TEXT THAT FOLLOWS AND THEN THE TEXT 01415043 * THAT CORRESPONDS TO THE BIT. AT THE END OF THE LIST 01418043 * A LENGTH OF ZERO INDICATES THE END. 01421043 * THEN THE MSG IS BUILT BY TESTING EACH BIT AND 01424043 * MOVING IN THE TEXT IF IT IS ON. THEN SKIPPING TO 01427043 * THE NEXT TEXT AND REPEATTING THE PROCESS IF THE 01430043 * LENGTH IS NOT ZERO. 01433043 * 01450043 * PACKAGING = LOAD MODULE IEECB910 01500043 * SYSGEN MACRO=SGIEA410 (LPA) 01520043 * 01550043 * PATCH LABEL = PATCH AREA IN IEECB910 01700043 * 01750043 * MODULE TYPE = 01800043 * PROCESSOR = ASSEM 01850043 * MODULE SIZE = 1K 01900043 * ATTRIBUTES = REENTRANT, NOT EXECUTABLE 01950043 * 02000043 * ENTRY POINT = NONE 02050043 * 02300043 * EXIT-NORMAL = NONE 02350043 * 02550043 * EXIT-ERROR = NONE 02600043 * 02800043 * EXTERNAL REFERENCES = NONE 02850043 * 03050043 * MACROS = WTO 03200043 * 03250043 * SERIALIZATION = NONE 03300043 * 03350043 * MESSAGES = IEE856I, IEE857I 03400043 * 03450043 * ABEND CODES = NONE 03500043 * 03550043 * CHANGE ACTIVITY = NONE 6/28/76 @G33CPHE 03600043 * 03650043 **** END OF SPECIFICATIONS ***/ 03700043 */*A0-999999 @G33CPHE*/ 03750043 EJECT 03770043 * 03790043 * THE CONTROL LINES FOR THE TWO DISPLAY DUMP MESSAGES 03810043 * 03830043 ENTRY CNTL856 03850043 DS 0F 03860043 DS 3B 03870043 CNTL856 DC AL1(E1-W1) 03900043 W1 WTO ('IEE856I 00.00.00 SYS1.DUMP STATUS',C),DESC=(5,8,9),MF=L,*03940043 MCSFLAG=(REG0,RESP),AREAID=Z 03950043 E1 EQU * 03980043 SPACE 2 04020043 ENTRY CNTL857 04150043 DS 0F 04160043 DS 3B 04170043 CNTL857 DC AL1(E2-W2) 04200043 W2 WTO ('IEE857I 00.00.00 DUMP OPTIONS',C),DESC=(5,8,9),MF=L, *04220043 MCSFLAG=(REG0,RESP),AREAID=Z 04226043 E2 EQU * 04240043 EJECT 04240543 * 04241043 * LABEL & DATA LINE TEXT FOR MSG IEE856I (DISPLAY DUMP,STATUS) 04241543 * 04242043 ENTRY LABEL856 04242543 LABEL856 DC AL1(E350-T350) 04243043 T350 DC C'SYS1.DUMP DATASETS AVAILABLE ' 04243543 E350 DC AL1(E351-T351) 04244043 T351 DC C', AND FULL ' 04244543 E351 EQU * 04245043 SPACE 2 04245543 ENTRY DATA856 04246043 DATA856 DC AL1(E352-T352) 04247243 T352 DC C'AVAILABLE ' 04247343 E352 DC AL1(E353-T353) 04247443 T353 DC C'FULL ' 04247543 E353 DC AL1(E354-T354) 04247643 T354 DC C'TAPE DATASET UNIT=' 04247743 E354 DC AL1(E355-T355) 04247843 T355 DC C'DASD DATASET SYS1.DUMP' 04247943 E355 DC AL1(E357-T357) 04249543 T357 DC C' *-*-*-*-- ERROR ATTEMPTING TO ALLOCATE THIS SYS1.DUMP*04249743 DATASET TO READ THE HEADER RECORD.--*-*-*-*' 04249943 E357 DC AL1(E358-T358) 04250143 T358 DC C' *-*-*-*-- ERROR. FIRST RECORD IN DATASET IS NOT A VALI04250243 LD DUMP HEADER RECORD.--*-*-*-*' 04250343 E358 DC AL1(E359-T359) 04250543 T359 DC C' *-*-*-*-- ERROR. AN ATTEMPT TO OPEN THIS DATASET RESUL04250643 LTED IN AN ERROR.--*-*-*-*' 04250743 E359 DC AL1(E399-T399) 04250843 T399 DC C' *-*-*-*-- ERROR. AN ATTEMPT TO READ THIS DATASET RESUL04250943 LTED IN AN ERROR.--*-*-*-*' 04251043 E399 DC AL1(E356-T356) 04251143 T356 DC C' DUMP TITLE= ' 04251243 E356 EQU * 04251643 EJECT 04251843 * 04251943 * DATA LINE TEXT FOR MSG IEE857I (DISPLAY DUMP,OPTIONS) 04252043 * 04252143 ENTRY DUMPTYPE 04252243 DUMPTYPE DC A(SYSATYPE) 04252343 DC A(SYSUTYPE) 04252443 DC A(SYSMTYPE) 04252543 DC A(SDMPTYPE) 04252643 SPACE 2 04252743 SYSATYPE DC AL1(L205-T205) 04252843 T205 DC C'SYSABEND- ' 04252943 L205 EQU * 04253043 SYSUTYPE DC AL1(L206-T206) 04253143 T206 DC C'SYSUDUMP- ' 04253243 L206 EQU * 04253343 SYSMTYPE DC AL1(L207-T207) 04253443 T207 DC C'SYSMDUMP- ' 04254343 L207 EQU * 04254443 SDMPTYPE DC AL1(L208-T208) 04254543 T208 DC C'SDUMP- ' 04254643 L208 EQU * 04254743 * 04254843 * OPTION MODES FOR IEE857I 04254943 * 04255043 ENTRY OVERMODE 04255143 OVERMODE DC AL1(L200-T200) 04256043 T200 DC C'OVERRIDE WITH ' 04256143 L200 EQU * 04256243 ENTRY ADDOPTS 04256343 ADDOPTS DC AL1(L201-T201) 04256443 T201 DC C'ADD OPTIONS ' 04256543 L201 EQU * 04256643 ENTRY ADDNOOPT 04256943 ADDNOOPT DC AL1(L202-T202) 04257043 T202 DC C'ADD NO OPTIONS' 04257143 L202 EQU * 04258043 ENTRY ADDPLIB 04258943 ADDPLIB DC AL1(L203-T203) 04260043 T203 DC C'ADD PARMLIB OPTIONS ' 04261043 L203 EQU * 04262043 ENTRY NODUMPS 04263043 NODUMPS DC AL1(L204-T204) 04264043 T204 DC C'IGNORE DUMP REQUESTS' 04265043 L204 EQU * 04266043 EJECT 04283943 * 04284143 * OPTIONS FOR SDATA BITS 04284343 * 04284543 ENTRY NOSDATA 04284943 NOSDATA DC AL1(L60-T60) 04285043 T60 DC C'NO SDATA OPTIONS' 04286043 L60 DC AL1(0) END OF LIST INDICATOR 04287043 SPACE 2 04288043 ENTRY SDATA 04301043 SDATA DC AL1(L1-T1) 04302043 T1 DC C'SDATA=(' 04304043 L1 DC AL1(L2-T2) 04306043 T2 DC C'NUC,' 04308043 L2 DC AL1(L3-T3) 04310043 T3 DC C'SQA,' 04312043 L3 DC AL1(L4-T4) 04314043 T4 DC C'LSQA,' 04316043 L4 DC AL1(L5-T5) 04318043 T5 DC C'SWA,' 04320043 L5 DC AL1(L6-T6) 04322043 T6 DC C'TRT,' 04324043 L6 DC AL1(L7-T7) 04326043 T7 DC C'CB,' 04328043 L7 DC AL1(L8-T8) 04330043 T8 DC C'ENQ,' 04332043 L8 DC AL1(L9-T9) 04334043 T9 DC C'DM,' 04336043 L9 DC AL1(L10-T10) 04338043 T10 DC C'IO,' 04340043 L10 DC AL1(L11-T11) 04342043 T11 DC C'ERR,' 04344043 L11 DC AL1(0) END OF LIST INDICATOR 04350043 EJECT 04400043 * 04401043 * OPTIONS FOR PDATA BITS 04402043 * 04403043 ENTRY NOPDATA 04407043 NOPDATA DC AL1(L61-T61) 04414043 T61 DC C', NO PDATA OPTIONS' 04419043 L61 DC AL1(0) END OF LIST INDICATOR 04424043 SPACE 2 04435043 ENTRY PDATA 04450043 PDATA DC AL1(L51-T51) 04500043 T51 DC C', PDATA=(' 04550043 L51 DC AL1(L52-T52) 04600043 T52 DC C'SA,' 04650043 L52 DC AL1(L53-T53) 04700043 T53 DC C'SAH,' 04750043 L53 DC AL1(L54-T54) 04800043 T54 DC C'REGS,' 04850043 L54 DC AL1(L55-T55) 04900043 T55 DC C'LPA,' 04950043 L55 DC AL1(L56-T56) 05000043 T56 DC C'JPA,' 05050043 L56 DC AL1(L57-T57) 05100043 T57 DC C'PSW,' 05150043 L57 DC AL1(L58-T58) 05200043 T58 DC C'SPLS,' 05250043 L58 DC AL1(0) END OF LIST INDICATOR 05300043 EJECT 05320043 * 05327043 * OPTIONS FOR SYSMDUMP BITS 05334043 * 05341043 ENTRY SMDATA 05350043 SMDATA DC AL1(L101-T101) 05400043 T101 DC C'(' 05450043 L101 DC AL1(L102-T102) 05500043 T102 DC C'NUC,' 05550043 L102 DC AL1(L103-T103) 05600043 T103 DC C'SQA,' 05650043 L103 DC AL1(L104-T104) 05700043 T104 DC C'LSQA,' 05750043 L104 DC AL1(L105-T105) 05800043 T105 DC C'SWA,' 05850043 L105 DC AL1(L106-T106) 05900043 T106 DC C'TRT,' 05950043 L106 DC AL1(L107-T107) 06000043 T107 DC C'RGN,' 06050043 L107 DC AL1(L108-T108) 06100043 T108 DC C'LPA,' 06150043 L108 DC AL1(L109-T109) 06200043 T109 DC C'CSA,' 06250043 L109 DC AL1(0) END OF LIST INDICATOR 06300043 EJECT 06304043 * 06308043 * OPTIONS FOR SDUMP BITS 06312043 * 06316043 ENTRY SVCDATA 06350043 SVCDATA DC AL1(L151-T151) 06400043 T151 DC C'(' 06450043 L151 DC AL1(L152-T152) 06500043 T152 DC C'ALLPSA,' 06550043 L152 DC AL1(L153-T153) 06600043 T153 DC C'PSA,' 06650043 L153 DC AL1(L154-T154) 06700043 T154 DC C'NUC,' 06750043 L154 DC AL1(L155-T155) 06800043 T155 DC C'SQA,' 06850043 L155 DC AL1(L156-T156) 06900043 T156 DC C'LSQA,' 06950043 L156 DC AL1(L157-T157) 07000043 T157 DC C'RGN,' 07050043 L157 DC AL1(L158-T158) 07100043 T158 DC C'LPA,' 07150043 L158 DC AL1(L159-T159) 07200043 T159 DC C'TRT,' 07250043 L159 DC AL1(L160-T160) 07300043 T160 DC C'CSA,' 07350043 L160 DC AL1(L161-T161) 07400043 T161 DC C'SWA,' 07450043 L161 DC AL1(L162-T162) 07500043 T162 DC C'SUMDUMP,' 07550043 L162 DC AL1(L163-T163) 07600043 T163 DC C'NOSUMDUMP,' 07650043 L163 DC AL1(L164-T164) 07700043 T164 DC C'NOALLPSA,' 07750043 L164 DC AL1(L165-T165) 07800043 T165 DC C'NOSQA,' 07850043 L165 DC AL1(L166-T166) 07900043 T166 DC C'RESERVED,' 07950043 L166 DC AL1(L167-T167) 08000043 T167 DC C'RESERVED,' 08050043 L167 DC AL1(L168-T168) 08100043 T168 DC C'Q=YES,' 08150043 L168 DC AL1(L169-T169) 08200043 T169 DC C'Q=NO,' 08250043 L169 DC AL1(0) END OF LIST INDICATOR 08300043 END 09050043