TITLE 'ALLOCATE MESSAGE MODULE'                                00010000
         TITLE 'ALLOCATE MESSAGE MODULE'                                00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDMSG22 CSECT ,                                                  0002  00050000
         DC    AL4(IFD120)                                              00060000
         DC    AL4(IFD145)                                              00070000
         DC    AL4(IFD156)                                              00080000
         DC    AL4(IFD162)                                              00090000
         DS    0F                                                       00100000
IFD120   DC    XL1'00'                                                  00110000
         DC    XL3'00'                                                  00120000
         DC    XL4'00'                                                  00130000
         WTO   'IFD120D CAN VOL DATA ON          BE DESTROYED. REPLY, YX00140000
               ES OR NO',MF=L,ROUTCDE=10,DESC=7                         00150000
         DS    0F                                                       00160000
IFD145   DC    XL1'00'                                                  00170000
         DC    XL3'00'                                                  00180000
         DC    XL4'00'                                                  00190000
         WTO   'IFD145D IS          OFFLINE TO ALL SHARING SYSTEMS. REPX00200000
               LY, YES OR NO',MF=L,ROUTCDE=10,DESC=7                    00210000
IFD156   WTO   'IFD156I DEVICE          STATUS CHANGED. BYPASS TESTS',MX00220000
               F=L,ROUTCDE=10,DESC=7                                    00230000
IFD162   WTO   'IFD162I UNIT         , DSNAME=OSOLTEP  COULD NOT BE SCRX00240000
               ATCHED',MF=L,ROUTCDE=10,DESC=7                           00250000
         DS    0H                                                       00260000
*         END;                                                          00270000
@EL01    BCR   15,@E                                              0004  00280000
@DATA1   EQU   *                                                        00290000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00300000
@1       EQU   01                                                       00310000
@2       EQU   02                                                       00320000
@3       EQU   03                                                       00330000
@4       EQU   04                                                       00340000
@5       EQU   05                                                       00350000
@6       EQU   06                                                       00360000
@7       EQU   07                                                       00370000
@8       EQU   08                                                       00380000
@9       EQU   09                                                       00390000
@A       EQU   10                                                       00400000
@B       EQU   11                                                       00410000
@C       EQU   12                                                       00420000
@D       EQU   13                                                       00430000
@E       EQU   14                                                       00440000
@F       EQU   15                                                       00450000
         DS    0D                                                       00460000
@DATA    EQU   *                                                        00470000
         DS    00000000C                                                00480000
@TEMPS   DS    0F                                                       00490000
@DATEND  EQU   *                                                        00500000
         END                                                            00510000