TITLE ' RETAIN/370 TERMINATION MESSAGE MODULE IFDMSG56'        00010000
         TITLE 'RETAIN/370 TERMINATION MESSAGE MODULE IFDMSG56'         00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDMSG56 CSECT ,                                                  0002  00050000
         DC    AL4(MSG1)                                                00060000
         DC    AL4(MSG2)                                                00070000
         DC    AL4(MSG3)                                                00080000
         DC    AL4(MSG4)                                                00090000
*                                                              S21051   00100000
         DC    AL4(MSG5)                                                00110000
*                                                              S21051   00120000
MSG1     WTO   'IFD169I RETAIN/370 TERMINATED',MF=L,ROUTCDE=10,DESC=7   00130000
MSG2     WTO   'IFD121I    MESSAGE CANCELLED BY OLTEP.',MF=L,ROUTCDE=10C00140000
               ,DESC=7                                                  00150000
*                                                              S21051   00160000
MSG3     WTO   'IFD167I PERMANENT ERROR ON REI DEVICE',MF=L,ROUTCDE=10,X00170000
               DESC=7                                                   00180000
*                                                               M4503   00190000
MSG4     WTO   'IFD505I TIME INTERVAL EXPIRED,NO LINE ACTIVITY',MF=L,ROX00200000
               UTCDE=10,DESC=7                                          00210000
*                                                              S21051   00220000
MSG5     WTO   'IFD137I CSW YYXXXXXXXXXXXXXX SNS XX',MF=L,ROUTCDE=10,DEX00230000
               SC=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