TITLE 'TASK MONITOR MESSAGE CSECT *00001000 ' 00002000 AHLTMMSG CSECT , 0001 00003000 @PROLOG STM @14,@12,12(@13) 0001 00004000 BALR @12,0 0001 00005000 @PSTART DS 0H 0001 00006000 USING @PSTART,@12 0001 00007000 * END AHLTMMSG; 0010 00008000 @EL00001 DS 0H 0010 00009000 @EF00001 DS 0H 0010 00010000 @ER00001 LM @14,@12,12(@13) 0010 00011000 BR @14 0010 00012000 @DATA DS 0H 00013000 DS 0F 00014000 DS 0F 00015000 DS 0D 00016000 AHL006 DS CL45 00017000 ORG AHL006 00018000 AHL00601 DC H'41' 00019000 AHL00602 DC B'1000000000000000' 00020000 AHL00603 DC CL37'AHL006I GTF ACKNOWLEDGES STOP COMMAND' 00021000 AHL00604 DC B'0001000000000000' 00022000 AHL00605 DC B'0100000000100000' 00023000 ORG AHL006+45 00024000 DS CL3 00025000 AHL007 DS CL50 00026000 ORG AHL007 00027000 AHL00701 DC H'46' 00028000 AHL00702 DC B'1000000000000000' 00029000 AHL00703 DC CL42'AHL007I GTF TERMINATING ON ERROR CONDITION' 00030000 AHL00704 DC B'0001000000000000' 00031000 AHL00705 DC B'0100000000100000' 00032000 ORG AHL007+50 00033000 DS CL2 00034000 AHL015 DS CL42 00035000 ORG AHL015 00036000 AHL01501 DC H'38' 00037000 AHL01502 DC B'1000000000000000' 00038000 AHL01503 DC CL34'AHL015I ESTAE REQUEST UNSUCCESSFUL' 00039000 AHL01504 DC B'0001000000000000' 00040000 AHL01505 DC B'0100000000100000' 00041000 ORG AHL015+42 00042000 DS CL2 00043000 AHL016 DS CL47 00044000 ORG AHL016 00045000 AHL01601 DC H'43' 00046000 AHL01602 DC B'1000000000000000' 00047000 AHL01603 DC CL39'AHL016I GTF INITIALIZATION UNSUCCESSFUL' 00048000 AHL01604 DC B'0001000000000000' 00049000 AHL01605 DC B'0100000000100000' 00050000 ORG AHL016+47 00051000 DS CL1 00052000 AHL018 DS CL76 00053000 ORG AHL018 00054000 AHL01801 DC AL1(0) 00055000 AHL01802 DC AL3(0) 00056000 AHL01803 DC A(0) 00057000 AHL01804 DC H'64' 00058000 AHL01805 DC B'1000000000000000' 00059000 AHL01806 DC CL60'AHL018A GTF UNABLE TO INITIALIZE ON ALL CPUS, REPLYC00060000 U OR END' 00061000 AHL01807 DC B'0100000000000000' 00062000 AHL01808 DC B'0100000000100000' 00063000 ORG AHL018+76 00064000 AHL019 DS CL57 00065000 ORG AHL019 00066000 AHL01901 DC H'53' 00067000 AHL01902 DC B'1000000000000000' 00068000 AHL01903 DC CL49'AHL019I SETEVENT SERVICE FAILED. RETURN CODE = ' 00069000 AHL01904 DC B'0001000000000000' 00070000 AHL01905 DC B'0100000000100000' 00071000 ORG AHL019+57 00072000 DS CL3 00073000 AHL031 DS CL43 00074000 ORG AHL031 00075000 AHL03101 DC H'39' 00076000 AHL03102 DC B'1000000000000000' 00077000 AHL03103 DC CL35'AHL031I GTF INITIALIZATION COMPLETE' 00078000 AHL03104 DC B'0001000000000000' 00079000 AHL03105 DC B'0100000000100000' 00080000 ORG AHL031+43 00081000 DS CL1 00082000 AHL130 DS CL61 00083000 ORG AHL130 00084000 AHL13001 DC H'57' 00085000 AHL13002 DC B'1000000000000000' 00086000 AHL13003 DC CL53'AHL130I INSUFFICIENT STORAGE FOR TRACE INITIALIZATIC00087000 ON' 00088000 AHL13004 DC B'0001000000000000' 00089000 AHL13005 DC B'0100000000100000' 00090000 ORG AHL130+61 00091000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00092000 @01 EQU 01 00093000 @02 EQU 02 00094000 @03 EQU 03 00095000 @04 EQU 04 00096000 @05 EQU 05 00097000 @06 EQU 06 00098000 @07 EQU 07 00099000 @08 EQU 08 00100000 @09 EQU 09 00101000 @10 EQU 10 00102000 @11 EQU 11 00103000 @12 EQU 12 00104000 @13 EQU 13 00105000 @14 EQU 14 00106000 @15 EQU 15 00107000 ENTRY AHL130 00108000 ENTRY AHL031 00109000 ENTRY AHL019 00110000 ENTRY AHL018 00111000 ENTRY AHL016 00112000 ENTRY AHL015 00113000 ENTRY AHL007 00114000 ENTRY AHL006 00115000 @ENDDATA EQU * 00116000 END AHLTMMSG,(C'PL/S-II',0502,73240) 00117000