TITLE 'IKJEFLGH - MESSAGE CSECT FOR IKJEFLG                 '  00001000
IKJEFLGH CSECT ,                                                   0001 00002000
@PROLOG  DS    0H                                                  0002 00003000
*         END   IKJEFLGH;                                          0005 00004000
@EL00001 DS    0H                                                  0005 00005000
@EF00001 DS    0H                                                  0005 00006000
@ER00001 BR    @14                                                 0005 00007000
@DATA    DS    0H                                                       00008000
         DS    0F                                                       00009000
         DS    0F                                                       00010000
         DS    0D                                                       00011000
LOGON    DS    CL10                                                     00012000
         ORG   LOGON                                                    00013000
LOGLEN   DC    AL2(10)                                                  00014000
LOGOFF   DC    AL2(0)                                                   00015000
LOGTXT   DC    CL6' LOGON'                                              00016000
         ORG   LOGON+10                                                 00017000
         DS    CL2                                                      00018000
INVALID  DS    CL36                                                     00019000
         ORG   INVALID                                                  00020000
INVLEN   DC    AL2(36)                                                  00021000
INVOFF   DC    AL2(0)                                                   00022000
INVTXT   DC    CL32'IKJ56401I INVALID COMMAND SYNTAX'                   00023000
         ORG   INVALID+36                                               00024000
IGNORMSG DS    CL61                                                     00025000
         ORG   IGNORMSG                                                 00026000
IGNLEN   DC    AL2(61)                                                  00027000
IGNOFF   DC    AL2(0)                                                   00028000
IGNTXT   DC    CL57'IKJ56403I ATTENTION IGNORED, SYSTEM ERROR, LOGON REC00029000
               SUMED.'                                                  00030000
         ORG   IGNORMSG+61                                              00031000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00032000
@01      EQU   01                                                       00033000
@02      EQU   02                                                       00034000
@03      EQU   03                                                       00035000
@04      EQU   04                                                       00036000
@05      EQU   05                                                       00037000
@06      EQU   06                                                       00038000
@07      EQU   07                                                       00039000
@08      EQU   08                                                       00040000
@09      EQU   09                                                       00041000
@10      EQU   10                                                       00042000
@11      EQU   11                                                       00043000
@12      EQU   12                                                       00044000
@13      EQU   13                                                       00045000
@14      EQU   14                                                       00046000
@15      EQU   15                                                       00047000
         ENTRY IGNORMSG                                                 00048000
         ENTRY INVALID                                                  00049000
         ENTRY LOGON                                                    00050000
@ENDDATA EQU   *                                                        00051000
         END   IKJEFLGH                                                 00052000