TITLE 'AUTO/CHECKPOINT RESTART MESSAGE MODULE               '  00001000
IEFXB603 CSECT ,                                                   0001 00002000
@PROLOG  DS    0H                                                  0002 00003000
*END IEFXB603;                                                     0003 00004000
@EL00001 DS    0H                                                  0003 00005000
@EF00001 DS    0H                                                  0003 00006000
@ER00001 BR    @14                                                 0003 00007000
@DATA    DS    0H                                                       00008000
         DS    0F                                                       00009000
         DS    0F                                                       00010000
         DS    0D                                                       00011000
IEFXB603 CSECT                                                          00012000
         DC    C'IEFXB603'             MODULE IDENTIFIER                00013000
         DC    C'09/15/71'                                              00014000
* /*******************************************************************/ 00015000
* /*                                                                 */ 00016000
* /*                       MESSAGE TEXT                              */ 00017000
* /*                                                                 */ 00018000
* /*******************************************************************/ 00019000
         DC    C'MG01'                 MESSAGE ID                       00020000
         DC    AL1(LENGTH1-MG01)       MESSAGE LENGTH OF MG01           00021000
         DC    AL3(MG01)               MG01 MESSAGE ADDRESS             00022000
         DC    C'MG02'                 MESSAGE ID                       00023000
         DC    AL1(LENGTH2-MG02)       MESSAGE LENGTH OF MG02           00024000
         DC    AL3(MG02)               MG02 MESSAGE ADDRESS             00025000
         DC    C'MG03'                MESSAGE ID                        00026000
         DC    AL1(LENGTH3-MG03)       MESSAGE LENGTH OF MG03           00027000
         DC    AL3(MG03)               MG03 MESSAGE ADDRESS             00028000
         DC    C'MG04'                                                  00029000
         DC    AL1(LENGTH4-MG04)                                        00030000
         DC    AL3(MG04)                                                00031000
         DC    C'MG05'                                                  00032000
         DC    AL1(LENGTH5-MG05)                                        00033000
         DC    AL3(MG05)                                                00034000
         DC    C'MG06'                                                  00035000
         DC    AL1(LENGTH6-MG06)                                        00036000
         DC    AL3(MG06)                                                00037000
         DC    C'MG07'                                                  00038000
         DC    AL1(LENGTH7-MG07)                                        00039000
         DC    AL3(MG07)                                                00040000
         DC    C'MG08'                                                  00041000
         DC    AL1(LENGTH8-MG08)                                        00042000
         DC    AL3(MG08)                                                00043000
         DC    C'MG09'                                                  00044000
         DC    AL1(LENGTH9-MG09)                                        00045000
         DC    AL3(MG09)                                                00046000
         DC    C'MG10'                                                  00047000
         DC    AL1(LENGTH10-MG10)                                       00048000
         DC    AL3(MG10)                                                00049000
MG01     WTO   'IEF089I ERROR ON WRITE TO JOB JOURNAL-JOB NOT ELIGIBLE *00050000
                FOR RESTART.',MF=L,ROUTCDE=11,DESC=6                    00051000
LENGTH1  EQU   *                                                        00052000
MG02     WTO   'IEF086I ERROR IN SWA RECOVERY-RESTART CANCELLED',      *00053000
               MF=L,ROUTCDE=11,DESC=6                                   00054000
LENGTH2  EQU   *                                                        00055000
MG03     WTO   'IEF087I ERROR ON JOB JOURNAL - RESTART CANCELLED',     *00056000
               MF=L,ROUTCDE=11,DESC=6                                   00057000
LENGTH3  EQU   *                                                        00058000
MG04     WTO   'IEF167I NO JOB JOURNAL OPTION SPECIFIED-RESTART CANCELL*00059000
               ED',MF=L,ROUTCDE=11,DESC=6                               00060000
LENGTH4  EQU   *                                                        00061000
MG05     WTO   'IEF168I ERROR ON JOB JOURNAL-RESTART FOR JOB CANCELLED'*00062000
               ,MF=L,ROUTCDE=11,DESC=6                                  00063000
LENGTH5  EQU   *                                                        00064000
MG06     WTO   'IHJ006I          RESTARTING AT                         *00065000
                  ',MF=L,ROUTCDE=(2),DESC=(6)                           00066000
LENGTH6  EQU   *                                                        00067000
MG07     WTO   'IHJ007I RESTART NOT SUCCESSFUL FOR          (   )',    *00068000
               MF=L,ROUTCDE=(2,11),DESC=(6)                             00069000
LENGTH7  EQU   *                                                        00070000
MG08     WTO   'IEF209I  VIRTUAL STORAGE UNAVAILABLE FOR  ',           *00071000
               MF=L,ROUTCDE=(2,11),DESC=(6)                             00072000
LENGTH8  EQU   *                                                        00073000
MG09     WTO   'IEF169I RESTART CANCELLED FOR JOB JJJJJJJJ',           *00074000
               MF=L,ROUTCDE=2,DESC=6                                    00075000
LENGTH9  EQU   *                                                        00076000
MG10     WTO   'IHJ010I CHECKPOINT RESTART OF JOB JJJJJJJJ ABENDED',   *00077000
               MF=L,ROUTCDE=(2,11),DESC=6                               00078000
LENGTH10 EQU   *                                                        00079000
IEFXB603 CSECT                                                          00080000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00081000
@01      EQU   01                                                       00082000
@02      EQU   02                                                       00083000
@03      EQU   03                                                       00084000
@04      EQU   04                                                       00085000
@05      EQU   05                                                       00086000
@06      EQU   06                                                       00087000
@07      EQU   07                                                       00088000
@08      EQU   08                                                       00089000
@09      EQU   09                                                       00090000
@10      EQU   10                                                       00091000
@11      EQU   11                                                       00092000
@12      EQU   12                                                       00093000
@13      EQU   13                                                       00094000
@14      EQU   14                                                       00095000
@15      EQU   15                                                       00096000
@ENDDATA EQU   *                                                        00097000
         END   IEFXB603                                                 00098000