* % GOTO MSGPLS; /* GO TO PLS VERSION */ 00002064 MACRO 00004064 IECDLMSG 00006064 MSG DSECT 00008064 */********************************************************************/ 00010064 */* MODULE NAME: IECDLMSG */ 00020064 */* */ 00030064 */* DESCRIPTIVE NAME: MESSAGE BUFFER MAPPING */ 00040064 */* */ 00050064 */* COPYRIGHT: NONE */ 00100064 */* */ 00150064 */* STATUS: */ 00200064 */* */ 00250064 */* */ 00300064 */* FUNCTION: THIS DSECT IS USED BY IGE0025C AND THE MESSAGE */ 00350064 */* EXITS TO MAP THE MESSAGE BUFFER WHEN BUILDING */ 00400064 */* THESE MESSAGES: */ 00450064 */* IEA000A - INTERVENTION REQUIRED */ 00500064 */* IEA000I - PERMANENT I/O ERROR */ 00550064 */* IEA001I - PATH INOPERATIVE */ 00600064 */* */ 04250064 */* */ 04300064 */* CHANGE ACTIVITY: NEW MACRO FOR @G64JPLI */ 04350064 */* */ 04390064 */********************************************************************/ 04430064 DS 0F 04431564 MSGTYPE DS XL1 TYPE OF MSG (FOR EXITS 04432064 MSGTYPIR EQU X'80' INTERVENTION REQUIRED 04432564 MSGTYPPE EQU X'40' PERMANENT I/O ERROR 04433064 MSGTYPPI EQU X'20' PATH INOPERATIVE 04433564 MSGTYPNP EQU X'10' INT. REQ., NO MORE PATHS 04434064 MSGFLAG DS XL1 COMMUNICATION FROM EXITS 04434564 MSGFLGNU EQU X'80' BYPASS SETTING UCBNRY AND UCBIVRS 04435064 MSGFLGND EQU X'40' BYPASS ISSUING DOM 04435564 MSGFLG7F EQU X'20' SET IOSCOD = 7F 04436064 MSGFLGNR EQU X'10' SET UCBNRY AND UCBIVRS @ZA47539 04436246 MSGRSV1 DS XL2 RESERVED 04436564 MSGCNT DS XL2 RESERVED 04437064 MSGFLG2 DS XL2 MCS FLAGS 04437564 MSGHIGH EQU X'8000' MCS BIT 04438064 MSGBDCT EQU X'0400' BROADCAST INDICATOR 04438564 MSGMLWTO EQU X'0040' INDICATES MLWTO 04439064 MSGID DS CL8 MESSAGE IDENTIFIER 04439564 MSGTEXT DS CL80 TEXT @ZM49463 04440064 * 04440564 MSGCODES DS 0CL8 04440664 MSGDESC DS CL2 DESCRIPTION - ACTION, STATUS 04440764 MSGROUT DS CL1 DEVICE DEPENDENT ROUTE 04440864 MSGROUT2 DS CL1 TYPE OF MSG - ERROR, INTO 04440964 MSGML DS CL4 LINE TYPE INDICATOR FOR MLWTO 04441064 * NOTE: THIS FIELD MUST FOLLOW THE TEXT 04441164 * IMMEDIATELY. IF THE TEXT IS LESS THAN 04441264 * 80 CHARACTERS, THE MESSAGE CODES MUST BE 04441364 * MOVED BACK IN THE BUFFER. 04441664 *********************************************************************** 04441764 * MESSAGE ONE BASIC TEXT-INTERVENTION REQUIRED * 04441864 *********************************************************************** 04441964 MSGINTRQ DS 0CL80 04442064 ORG MSGTEXT 04442564 MSG1CUA DS CL3 UNIT ADDRESS 04443064 MSG1C1 DS CL1 COMMA 04443564 MSG1TXT DS CL8 INT REQ TEXT 04444064 MSG1OP DS 0CL2 OP CODE IF AVAILABLE 04444564 MSG1A1 DS CL1 ASTERISK 04445064 MSG1A2 DS CL1 ASTERISK 04445564 MSG1C2 DS CL1 COMMA 04446064 MSG1STAT DS CL4 STATUS 04446564 MSG1C3 DS CL1 COMMA 04447064 MSG1SNS DS CL11 SENSE 04447564 *********************************************************************** 04448064 * SET UP FOR PERMANENT I/O ERROR MESSAGE * 04448564 *********************************************************************** 04449064 MSGPERM DS 0CL80 04449564 ORG MSGTEXT 04450064 MSG2CUA DS CL3 UNIT ADDR 04450564 MSG2C1 DS CL1 COMMA 04451064 MSG2DESC DS CL3 ERROR DESCRIPTION 04451564 MSG2C2 DS CL1 COMMA 04452064 MSG2OP DS 0CL2 CCW OP CODE 04452564 MSG2A1 DS CL1 ASTERISK 04453064 MSG2A2 DS CL1 ASTERISK 04453564 MSG2C3 DS CL1 COMMA 04454064 MSG2STAT DS CL4 STATUS 04454564 MSG2C4 DS CL1 COMMA 04455064 MSG2SNS DS 0CL12 SENSE BYTES 04455564 MSG2IO1 DS CL1 COMMA IF NO SENSE 04456064 MSG2IO2 DS CL1 COMMA IF NO SENSE 04456564 *********************************************************************** 04457064 * BASIC SETUP FOR PATH INOPERATIVE MSG * 04457564 *********************************************************************** 04458064 MSGINOP DS 0CL80 04458564 ORG MSGTEXT 04459064 DS CL5 04459564 MSG3CUA DS CL4 UNIT ADDRESS 04460064 DS CL6 04460564 MSG3PTH DS CL4 PATH THAT FAILED 04461064 DS CL28 @G64APLK 04461564 MSG3CPU DS CL1 ID OF CPU 04462064 MSG3END DS CL1 END OF GENERAL USAGE 04462564 *********************************************************************** 04463064 * BASIC SETUP FOR INTERVENTION REQUIRED, NO * 04463564 * MORE PATHS AVAILABLE * 04464064 *********************************************************************** 04464564 MSGIRNP DS 0CL80 04465064 ORG MSGTEXT 04465564 MSG2CUA DS CL3 UNIT ADDRESS 04466064 MSG4CI DS CL1 COMMA 04466564 MSG4TXT DS CL26 MESSAGE TEXT 04467064 MSG4JOB DS 0CL8 JOBNAME 04467564 MSG4C2 DS CL1 COMMA IF NO JOBNAME 04468064 DS CL7 04468564 MSG4END DS CL1 END OF GENERAL MESSAGE 04469064 *%MSGPLS:; 04469564 /********************************************************************/ 04470064 /* BASIC MESSAGE SETUP */ 04510064 /********************************************************************/ 04550064 04590064 DCL 1 MSG BDY(WORD) BASED(MSGPTR), 04630064 2 MSGTYPE CHAR(1), /* TYPE OF MSG (FOR EXITS) */ 04670064 3 MSGTYPIR BIT(1), /* INTERVENTION REQUIRED */ 04710064 3 MSGTYPPE BIT(1), /* PERMANENT I/O ERROR */ 04750064 3 MSGTYPPI BIT(1), /* PATH INOPERATIVE */ 04790064 3 MSGTYPNP BIT(1), /* INT. REQ., NO MORE PATHS */ 04830064 3 * BIT(4), /* RESERVED */ 04870064 2 MSGFLAG CHAR(1), /* COMMUNICATION FROM EXITS */ 04910064 3 MSGFLGNU BIT(1), /* BYPASS SETTING UCBNRY AND 04950064 UCBIVRS */ 04990064 3 MSGFLGND BIT(1), /* BYPASS ISSUING DOM */ 05030064 3 MSGFLG7F BIT(1), /* SET IOSCOD = 7F */ 05070064 3 MSGFLGNR BIT(1), /* SET UCBNRY & UCBIVRS @ZA47539*/ 05083346 3 * BIT(4), /* RESERVED */ 05096646 2 * CHAR(2), /* RESERVED */ 05110064 2 MSGCNT CHAR(2), 05150064 2 MSGFLG2 CHAR(2), /* MCS FLAGS */ 05190064 3 MSGHIGH BIT(1), /* MCS BIT */ 05230064 3 * BIT(4), 05270064 3 MSGBDCT BIT(1), /* BROADCAST INDICATOR */ 05310064 3 * BIT(3), /* @ZA10122*/ 05350064 3 MSGMLWTO BIT(1), /* INDICATES MLWTO @ZA10122*/ 05390064 3 * BIT(6), /* @ZA10122*/ 05430064 2 MSGID CHAR(8), /* MESSAGE IDENTIFIER */ 05470064 2 MSGTEXT CHAR(80); /* TEXT @ZM49463*/ 05510064 DCL 1 MSGCODES CHAR(8) BASED(BUFPTR), 05550064 2 MSGDESC CHAR(2), /*DESCRIPTION-ACTION,STATUS */ 05590064 2 MSGROUT CHAR(1), /*DEVICE DEPENDENT ROUTE CODE */ 05630064 2 MSGROUT2 CHAR(1), /*TYPE OF MSG-ERR,INFO, */ 05670064 2 MSGML CHAR(4); /* LINE TYPE INDICATOR FOR MLTWO 05710064 @ZA10122*/ 05750064 /********************************************************************/ 05790064 /* */ 05830064 /* MESAGE ONE BASIC TEXT-INTERVENTION REQUIRED */ 05870064 /* */ 05910064 /********************************************************************/ 05950064 DCL 1 MSGINTRQ DEF(MSGTEXT), 05990064 2 MSG1CUA CHAR(3), /* UNIT ADDRESS */ 06030064 2 MSG1C1 CHAR(1), /* COMMA */ 06070064 2 MSG1TXT CHAR(8), /* INT REQ TEXT */ 06110064 2 MSG1OP CHAR(2), /* OP CODE IF AVAILABLE */ 06150064 3 MSG1A1 CHAR(1), /* ASTERISK */ 06160064 3 MSG1A2 CHAR(1), /* ASTERISK */ 06170064 2 MSG1C2 CHAR(1), /* COMMA */ 06190064 2 MSG1STAT CHAR(4), /* STATUS */ 06230064 2 MSG1C3 CHAR(1), /* COMMA */ 06270064 2 MSG1SNS CHAR(11); /* SENSE */ 06310064 @EJECT; 06330064 /********************************************************************/ 06350064 /* */ 06390064 /* SET UP FOR PERMANENT I/O ERROR MESSAGE */ 06430064 /* */ 06470064 /********************************************************************/ 06510064 DCL 1 MSGPERM DEF(MSGTEXT), 06550064 2 MSG2CUA CHAR(3), /* UNIT ADDR */ 06590064 2 MSG2C1 CHAR(1), /* COMMA */ 06630064 2 MSG2DESC CHAR(3), /* ERROR DESCRIPTION */ 06670064 2 MSG2C2 CHAR(1), /* COMMA */ 06710064 2 MSG2OP CHAR(2), /* CCW OP CODE */ 06750064 3 MSG2A1 CHAR(1), /* ASTERISK */ 06760064 3 MSG2A2 CHAR(1), /* ASTERISK */ 06770064 2 MSG2C3 CHAR(1), /* COMMA */ 06790064 2 MSG2STAT CHAR(4), /* STATUS */ 06830064 2 MSG2C4 CHAR(1), /* COMMA */ 06870064 2 MSG2SNS CHAR(12), /* SENSE BYTES */ 06910064 3 MSG2IO1 CHAR(1), /* COMMA IF NO SENSE */ 06920064 3 MSG2IO2 CHAR(1); /* COMMA IF NO SENSE */ 06930064 /********************************************************************/ 06950064 /* */ 06990064 /* BASIC SETUP FOR PATH INOPERATIVE MSG */ 07030064 /* */ 07070064 /********************************************************************/ 07110064 DCL 1 MSGINOP DEF(MSGTEXT), 07150064 2 * CHAR(5), 07190064 2 MSG3CUA CHAR(4), /* UNIT ADDRESS */ 07230064 2 * CHAR(6), 07270064 2 MSG3PTH CHAR(4), /* PATH THAT FAILED */ 07310064 2 * CHAR(28), /* @G64APLK*/ 07350064 2 MSG3CPU CHAR(1), /* ID OF CPU */ 07380064 2 MSG3END CHAR(1); /* END OF GENERAL MESSAGE */ 07410064 /********************************************************************/ 07470064 /* */ 07700064 /* BASIC SETUP FOR INTERVENTION REQUIRED, NO */ 07750064 /* MORE PATHS AVAILABLE */ 07800064 /* */ 07850064 /********************************************************************/ 07900064 DCL 1 MSGIRNP DEF(MSGTEXT), 07950064 2 MSG4CUA CHAR(3), /* UNIT ADDRESS */ 08000064 2 MSG4C1 CHAR(1), /* COMMA */ 08050064 2 MSG4TXT CHAR(26), /* MESSAGE TEXT */ 08100064 2 MSG4JOB CHAR(8), /* JOBNAME */ 08150064 3 MSG4C2 CHAR(1), /* COMMA IF NO JOBNAME */ 08200064 2 MSG4END CHAR(1); /* END OF GENERAL MESSAGE */ 08250064