&PL      PROC  &P,4                                                     CHK00010
CHKPT    NAME  0                                                        CHK00020
.*                                                                      CHK00030
.*       CHKPT FILENAME,RESTART-ADDR,FILE-LIST,ERROR-ADDR               CHK00040
.*                                                                      CHK00050
.*       THIS MACRO RECORDS ALL INFORMATION PERTAINING TO A JOB TO      CHK00060
.*       ENABLE A SUBSEQUENT RESTART OF THE JOB.                        CHK00070
.*                                                                      CHK00080
.*       POSITIONAL PARAMETER 1 IS REQUIRED. POSITIONAL PARAMETER 2,3,4 CHK00090
.*       ARE OPTIONAL.                                                  CHK00100
.*       THE MACRO GENERATES THE FOLLOWING CODE:                        CHK00110
.*       CNOP  0,4                                                      CHK00120
.*       BAL   1,*+16                                                   CHK00130
.*       DC    A(&P(1))                                                 CHK00140
.*       DC    A(&P(2))                                                 CHK00150
.*       DC    A(&P(3))                                                 CHK00160
.*       SVC   31                                                       CHK00170
.*       LTR   0,0                                                      CHK00180
.*       BM    &P(4)                                                    CHK00190
.*       OR                                                             CHK00200
.*       BMR   &P(4)                                                    CHK00210
.*       OR                                                             CHK00220
.*       BNM   *+6                                                      CHK00230
.*       SVC   28                                                       CHK00240
         LCL   &X                                                       CHK00250
         DO    '&P(1)'=''                                               CHK00260
         PNOTE 'P','PARAMETER 1 MISSING'                                CHK00270
         GOTO  .EXIT                                                    CHK00280
         ENDO                                                           CHK00290
&X       SET   '&PL.        '(1,8)                                      CHK00300
                   CNOP  0,4                                            CHK00310
&X                 DS    0H                                             CHK00320
                   BAL   1,*+16                                         CHK00330
                   DC    A(&P(1))                                       CHK00340
         DO    '&P(2)'=''                                               CHK00350
                   DC    A(0)                                           CHK00360
         GOTO  .TAG1                                                    CHK00370
         ENDO                                                           CHK00380
                   DC    A(&P(2))                                       CHK00390
.TAG1    LABEL                                                          CHK00400
         DO    '&P(3)'=''                                               CHK00410
                   DC    A(0)                                           CHK00420
         GOTO  .TAG2                                                    CHK00430
         ENDO                                                           CHK00440
                   DC    A(&P(3))                                       CHK00450
.TAG2    LABEL                                                          CHK00460
                   SVC   31                                             CHK00470
                   LTR  0,0                                             CHK00480
         DO    '&P(4)'=''                                               CHK00490
                   BNM   *+6                                            CHK00500
                   SVC   28                                             CHK00510
         GOTO  .EXIT                                                    CHK00520
         ENDO                                                           CHK00530
         DO    '&P(4)'(1,1)='('                                         CHK00540
                   BMR   &P(4)                                          CHK00550
         GOTO  .EXIT                                                    CHK00560
         ENDO                                                           CHK00570
                   BM    &P(4)                                          CHK00580
.EXIT    LABEL                                                          CHK00590
         END                                                            CHK00600
