TITLE 'IKJEFE16' 00010000 * GEN( TITLE 'IKJEFE16'); 00020000 TITLE 'IKJEFE16' 00030000 * /******************************************************************** 00040000 * /* WHEN COMMAND MESSAGE TEXT MODULE (IKJEFE16) * 00050000 * /* * 00060000 * /* STATUS: * 00070000 * /* CHANGE LEVEL 000 * 00080000 * /* * 00090000 * /* FUNCTION: * 00100000 * /* CONTAINS MESSAGE TEXT THAT IS USED BY IKJEFE15 * 00110000 * /* * 00120000 * /* ENTRY POINTS: * 00130000 * /* IKJEFE16 * 00140000 * /* * 00150000 * /* INPUT: * 00160000 * /* NONE * 00170000 * /* * 00180000 * /* OUTPUT: * 00190000 * /* NONE * 00200000 * /* * 00210000 * /* EXTERNAL REFERENCES: * 00220000 * /* NONE * 00230000 * /* * 00240000 * /* EXITS - NORMAL: * 00250000 * /* NONE --MODULE CONTAINS MESSAGE POINTERS AND MESSAGE TEXT ONLY * 00260000 * /* * 00270000 * /* EXITS - ERROR: * 00280000 * /* NONE * 00290000 * /* * 00300000 * /* TABLES/WORK AREAS: * 00310000 * /* NONE * 00320000 * /* * 00330000 * /* ATTRIBUTES: * 00340000 * /* REENTRANT * 00350000 * /* REFRESHABLE * 00360000 * /* * 00370000 * /* NOTES: * 00380000 * /* '+' FOLLOWING A MESSAGE INDICATES THAT A SECOND LEVEL MESSAGE * 00390000 * /* WILL ALSO BE ISSUED IN THE EVENT THE USER ENTERS A QUESTION * 00400000 * /* MARK TO A FIRST LEVEL MESSAGE. THE COMMAND NAME IS INSERTED * 00410000 * /* SEPARATELY BECAUSE THE USER HAS THE ABILITY TO ASSIGN HIS OWN * 00420000 * /* ALIAS TO THE WHEN COMMAND PROCESSOR. * 00430000 * /* THE COMMAND NAME WILL BE OBTAINED FROM THE ECT THAT IS * 00440000 * /* CONSTRUCTED BY THE TMP. * 00450000 * /* THE OFFSET TO THE MESSAGE POINTER IS SET IN THE WHEN WORK AREA * 00460000 * /* (IKJWHEN) IN THE FIELDS WHMSG (FIRST LEVEL MESSAGE) AND WHMSG2 * 00470000 * /* (SECOND LEVEL MESSAGE). REGISTER 1 POINTS TO THIS WORKKA AREA * 00480000 * /* WHEN THE MESSAGE PROCESSOR (IKJEFE15) GETS CONTROL. * 00490000 * /* THE FOLLOWING MESSAGES ARE ISSSUED BY WHEN: * 00500000 * /* MSG1 IKJ56535I SYSTEM ERROR + * 00510000 * /* MSG2 PARSE ERROR CODE * 00520000 * /* MSG3 STACK ERROR CODE * 00530000 * /* MSG4 IKJ56536I ENDED * 00540000 * /* MSG5 IKJ56537I COMMAND NOT EXECUTED, NO RETURN CODE+ * 00550000 * /* MSG6 PREVIOUS COMMAND ABENDED WITH USER ABEND CODE * 00560000 * /* MSG7 PREVIOUS COMMAND ABENDED WITH SYSTEM ABEND CODE * 00570000 * /* CHARACTER CODE DEPENDENCY - EBCDIC CHARACTER SET USED IN * 00580000 * /* ASSEMBLING, MODULE MUST BE REASSEMBLED IF A DIFFERENT * 00590000 * /* CHARACTER SET IS TO BE USED DURING EXECUTION. * 00600000 * /* * 00610000 * /******************************************************************** 00620000 * 00630000 * IKJEFE16: PROC OPTIONS(DONTSAVE,CODEREG(0),NOSAVEAREA); 00640000 LCLA &T,&SPN 0002 00650000 .@001 ANOP 0002 00660000 IKJEFE16 CSECT , 0002 00670000 * GENERATE; 00680000 *********************************************************************** 00690000 * BELOW ARE THE ADDRESSES TO THE FIRST AND SECOND LEVEL MESSAGES * 00700000 * THAT WILL BE ISSUED BY THE WHEN COMMAND PROCESSOR. * 00710000 * FIRST LEVEL MESSAGES HAVE '+' SUCCEEDING THEIR TEXT. * 00720000 *********************************************************************** 00730000 ADDR0 DC A(MSG1) 00740000 ADDR4 DC A(MSG2) 00750000 ADDR8 DC A(MSG3) 00760000 ADDR0C DC A(MSG4) 00770000 ADDR10 DC A(MSG5) 00780000 ADDR14 DC A(MSG6) 00790000 ADDR18 DC A(MSG7) 00800000 MSG1 DC AL2(MSG2-MSG1) 00810000 DC X'0000' 00820000 DC C'IKJ56535I SYSTEM ERROR +' 00830000 MSG2 DC AL2(MSG3-MSG2) 00840000 DC X'0000' 00850000 DC C' PARSE ERROR CODE ' 00860000 MSG3 DC AL2(MSG4-MSG3) 00870000 DC X'0000' 00880000 DC C' STACK ERROR CODE ' 00890000 MSG4 DC AL2(MSG5-MSG4) NOT USED 00900000 DC X'0000' NOT USED 00910000 DC C'IKJ56536I ENDED' NOT USED 00920000 MSG5 DC AL2(MSG6-MSG5) 00930000 DC X'0000' 00940000 DC C'IKJ56537I COMMAND NOT EXECUTED, NO RETURN COX00950000 DE+' 00960000 MSG6 DC AL2(MSG7-MSG6) 00970000 DC X'0000' 00980000 DC C' PREVIOUS COMMAND ABENDED WITH USER ABEND CODE ' 00990000 MSG7 DC AL2(MSG8-MSG7) 01000000 DC X'0000' 01010000 DC C' PREVIOUS COMMAND ABENDED WITH SYSTEM ABEND CODE ' 01020000 MSG8 EQU * 01030000 DS 0H 01040000 * END IKJEFE16; 01050000 @EL01 BCR 15,@E 0004 01060000 @DATA1 EQU * 01070000 @0 EQU 00 EQUATES FOR REGISTERS 0-15 01080000 @1 EQU 01 01090000 @2 EQU 02 01100000 @3 EQU 03 01110000 @4 EQU 04 01120000 @5 EQU 05 01130000 @6 EQU 06 01140000 @7 EQU 07 01150000 @8 EQU 08 01160000 @9 EQU 09 01170000 @A EQU 10 01180000 @B EQU 11 01190000 @C EQU 12 01200000 @D EQU 13 01210000 @E EQU 14 01220000 @F EQU 15 01230000 DS 0D 01240000 @DATA EQU * 01250000 DS 00000000C 01260000 @TEMPS DS 0F 01270000 @DATEND EQU * 01280000 END IKJEFE16 01290000