TITLE 'AHLWTMSG-THE WTO FUNCTION MESSAGE CSECT                *00001000
                       '                                                00002000
AHLWTMSG CSECT ,                                                   0001 00003000
@MAINENT DS    0H                                                  0001 00004000
         USING *,@15                                               0001 00005000
         B     @PROLOG                                             0001 00006000
         DC    AL1(16)                                             0001 00007000
         DC    C'AHLWTMSG  74.116'                                 0001 00008000
         DROP  @15                                                      00009000
@PROLOG  DS    0H                                                  0002 00010000
*   END AHLWTMSG;                                                  0006 00011000
@DATA    DS    0H                                                       00012000
         DS    0F                                                       00013000
         DS    0F                                                       00014000
         DS    0D                                                       00015000
AHL118   DS    CL98                                                     00016000
         ORG   AHL118                                                   00017000
AHL11801 DC    H'94'                                                    00018000
AHL11802 DC    B'1000000000000000'                                      00019000
AHL11803 DC    CL90'AHL118I ERROR IN AHLTXXXX YYYY ZZZZZZING DISABLED TC00020000
               IME= HH.MM.sS DUMP ATTEMPT BBSUCCESSFUL'                 00021000
AHL11804 DC    B'0001000000000000'                                      00022000
AHL11805 DC    B'0100000000100000'                                      00023000
         ORG   AHL118+98                                                00024000
         DS    CL2                                                      00025000
AHL026   DS    CL55                                                     00026000
         ORG   AHL026                                                   00027000
AHL02601 DC    H'51'                                                    00028000
AHL02602 DC    B'1000000000000000'                                      00029000
AHL02603 DC    CL47'AHL026I ESTAE REQUEST FOR AHLWTASK UNSUCCESSFUL'    00030000
AHL02604 DC    B'0001000000000000'                                      00031000
AHL02605 DC    B'0100000000100000'                                      00032000
         ORG   AHL026+55                                                00033000
         DS    CL1                                                      00034000
AHL027   DS    CL64                                                     00035000
         ORG   AHL027                                                   00036000
AHL02701 DC    H'60'                                                    00037000
AHL02702 DC    B'1000000000000000'                                      00038000
AHL02703 DC    CL56'AHL027I INSUFFICIENT STORAGE FOR AHLWTASK INITIALIZC00039000
               ATION'                                                   00040000
AHL02704 DC    B'0001000000000000'                                      00041000
AHL02705 DC    B'0100000000100000'                                      00042000
         ORG   AHL027+64                                                00043000
AHL119   DS    CL44                                                     00044000
         ORG   AHL119                                                   00045000
AHL11901 DC    H'40'                                                    00046000
AHL11902 DC    B'1000000000000000'                                      00047000
AHL11903 DC    CL36'AHL119I ERROR IN GTF MODULE AHLWTASK'               00048000
AHL11904 DC    B'0001000000000000'                                      00049000
AHL11905 DC    B'0100000000100000'                                      00050000
         ORG   AHL119+44                                                00051000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00052000
@01      EQU   01                                                       00053000
@02      EQU   02                                                       00054000
@03      EQU   03                                                       00055000
@04      EQU   04                                                       00056000
@05      EQU   05                                                       00057000
@06      EQU   06                                                       00058000
@07      EQU   07                                                       00059000
@08      EQU   08                                                       00060000
@09      EQU   09                                                       00061000
@10      EQU   10                                                       00062000
@11      EQU   11                                                       00063000
@12      EQU   12                                                       00064000
@13      EQU   13                                                       00065000
@14      EQU   14                                                       00066000
@15      EQU   15                                                       00067000
         ENTRY AHL119                                                   00068000
         ENTRY AHL027                                                   00069000
         ENTRY AHL026                                                   00070000
         ENTRY AHL118                                                   00071000
@ENDDATA EQU   *                                                        00072000
         END   AHLWTMSG,(C'PL/S-II',0502,74116)                         00073000