TITLE 'IFDMSG74---LINE-CONNECTION DISABLE ROUTINE MSG MODULE'  00010000
         TITLE ' IFDMSG74-LINE-CONNECTION DISABLE ROUTINE MSG MODULE '  00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDMSG74 CSECT ,                                                  0002  00050000
         DC    AL4(IFD408)                                       Y02906 00060000
IFD408   WTO   'IFD408I 00000000 RETURNED A CC=3, NOT OPERATIONAL',DESCX00070000
               =7,ROUTCDE=10,MF=L                                Y02906 00080000
         DS    0H                                                       00090000
*         END;                                                          00100000
@EL01    BCR   15,@E                                              0004  00110000
@DATA1   EQU   *                                                        00120000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00130000
@1       EQU   01                                                       00140000
@2       EQU   02                                                       00150000
@3       EQU   03                                                       00160000
@4       EQU   04                                                       00170000
@5       EQU   05                                                       00180000
@6       EQU   06                                                       00190000
@7       EQU   07                                                       00200000
@8       EQU   08                                                       00210000
@9       EQU   09                                                       00220000
@A       EQU   10                                                       00230000
@B       EQU   11                                                       00240000
@C       EQU   12                                                       00250000
@D       EQU   13                                                       00260000
@E       EQU   14                                                       00270000
@F       EQU   15                                                       00280000
         DS    0D                                                       00290000
@DATA    EQU   *                                                        00300000
         DS    00000000C                                                00310000
@TEMPS   DS    0F                                                       00320000
@DATEND  EQU   *                                                        00330000
         END                                                            00340000