TITLE ' RETAIN/370 INITIALIZATION MESSAGE MODULE IFDMSG54'     00010000
         TITLE 'RETAIN/370 INITIALIZATION MESSAGE MODULE IFDMSG54'      00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDMSG54 CSECT ,                                                  0002  00050000
         DC    AL4(MSG1)                                                00060000
         DC    AL4(MSG2)                                                00070000
         DC    AL4(MSG3)                                                00080000
         DC    AL4(MSG4)                                                00090000
         DC    AL4(IFD140)                                      Y02008  00100000
*                                                              S21051   00110000
MSG1     WTO   'IFD163I RETAIN/370 READY',MF=L,ROUTCDE=10,DESC=7        00120000
*                                                              S21051   00130000
MSG2     WTO   'IFD164I CANNOT LINK TO RETAIN/370 -                    X00140000
                            ',MF=L,ROUTCDE=10,DESC=7            X03008  00150000
MSG3     DS    2F                                                       00160000
         WTO   'IFD168E TO COMMUNICATE WITH REMOTE SPECIALIST ENTER MESC00170000
               SAGE',MF=L,ROUTCDE=10,DESC=7                             00180000
*                                                              S21051   00190000
MSG4     WTO   'IFD137I CSW YYXXXXXXXXXXXXXX SNS XXXXXXXXXXXX',MF=L,ROUX00200000
               TCDE=10,DESC=7                                           00210000
*                                                               M4503   00220000
IFD140   WTO   'IFD140I          VARIED OFFLINE BY OLTEP',MF=L,ROUTCDE=X00230000
               10,DESC=7                                                00240000
         DS    0H                                                       00250000
*         END;                                                          00260000
@EL01    BCR   15,@E                                              0004  00270000
@DATA1   EQU   *                                                        00280000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00290000
@1       EQU   01                                                       00300000
@2       EQU   02                                                       00310000
@3       EQU   03                                                       00320000
@4       EQU   04                                                       00330000
@5       EQU   05                                                       00340000
@6       EQU   06                                                       00350000
@7       EQU   07                                                       00360000
@8       EQU   08                                                       00370000
@9       EQU   09                                                       00380000
@A       EQU   10                                                       00390000
@B       EQU   11                                                       00400000
@C       EQU   12                                                       00410000
@D       EQU   13                                                       00420000
@E       EQU   14                                                       00430000
@F       EQU   15                                                       00440000
         DS    0D                                                       00450000
@DATA    EQU   *                                                        00460000
         DS    00000000C                                                00470000
@TEMPS   DS    0F                                                       00480000
@DATEND  EQU   *                                                        00490000
         END                                                            00500000