&PL      PROC  &P,1                                                     CHA00010
CHAP     NAME  0                                                        CHA00020
.*       CHAP  PRIORITY-DISPLACEMENT                                    CHA00030
.*       OR                                                             CHA00040
.*       CHAP  (1)                                                      CHA00050
.*                                                                      CHA00060
.*       CHANGE PRIORITY (CHAP) IS USED TO LOWER A TASK PRIORITY BY THE CHA00070
.*       DISPLACEMENT SPECIFIED AND BY JOB CONTROL AT JOB STEP          CHA00080
.*       INITIALIZATION. THIS MACRO WILL USE THE SPECIFIED USER         CHA00090
.*       PRIORITY TO SET THE DISPATCHING PRIORITY OF THE JOB-STEP TASK. CHA00100
.*                                                                      CHA00110
.*       SUMMARY OF CODE GENERATED                                      CHA00120
.*       LA    1,&P(1)                  IF &P(1) NOT EQUAL TO (1)       CHA00130
.*       SVC   12                                                       CHA00140
.*                                                                      CHA00150
.*       NUMBER OF BYTES GENERATED IS BETWEEN 8 AND 12                  CHA00160
.*                                                                      CHA00170
         LCL   &X                                                       CHA00180
         DO    '&P(1)'=''                                               CHA00190
         PNOTE 'P','PARAMETER 1 MISSING'                                CHA00200
         ENDO                                                           CHA00210
&X       SET   '&PL.        '(1,8)                                      CHA00220
&X           DS    0H                                                   CHA00230
&X       SET   '&P(1)'='(1)'                                            CHA00240
                   CNOP  0,4                                            CHA00250
         DO    &X=0                                                     CHA00260
                   LA    1,&P(1)                                        CHA00270
         ENDO                                                           CHA00280
                   O     1,*+8                                          CHA00290
                   B     *+8                                            CHA00300
                   DC    XL4'20000000'                                  CHA00310
                   SVC   12                                             CHA00320
         END                                                            CHA00330
