&PL      PROC  &P,3                                                     EXC00010
EXCP     NAME  0                                                        EXC00020
REXCP    NAME  1                                                        EXC00030
         LCL   &X                                                       EXC00040
         DO    &P(0)=1                                                  EXC00050
         SVC   3                                                        EXC00060
         GOTO  .OUT                                                     EXC00070
         ENDO                                                           EXC00080
&X       SET   '&PL.        '(1,8)                                      EXC00090
&X           DS    0H                                                   EXC00100
         DO    '&P(1)'=''                                               EXC00110
         PNOTE 'P','PARAMETER 1 MISSING'                                EXC00120
                   DC    XL4'0'         PROGRAM PATCH - L  1,CCB ADDR   EXC00130
         GOTO  .IO$EX1                                                  EXC00140
         ENDO                                                           EXC00150
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           EXC00160
         GOTO  .IO$EX1                                                  EXC00170
         ENDO                                                           EXC00180
                   CNOP  0,4                                            EXC00190
                   L     1,*+8                                          EXC00200
                   B     *+8                                            EXC00210
                   DC    A(&P(1))                                       EXC00220
.IO$EX1  LABEL                                                          EXC00230
         DO    '&P(2)'='C'                                              EXC00240
                   BALR  0,0            CONDITIONAL EXCP                EXC00250
         DO    '&P(3)'=''=0                                             EXC00260
         PNOTE *,'PARAMETER 3 INVALID'                                  EXC00270
         ENDO                                                           EXC00280
         ENDO                                                           EXC00290
&X  SET  8*('&P(3)'='CYL')+X'20'*('&P(2)'='U')+X'40'*('&P(2)'='L')      EXC00300
         DO    &X>0                                                     EXC00310
                   OI    0(1),&X        SET C,L,U FLAGS                 EXC00320
         ENDO                                                           EXC00330
         DO    (&X=0)**('&P(2)'=''=0)**('&P(2)'='C'=0)                  EXC00340
         PNOTE *,'PARAMETER 2 INVALID'                                  EXC00350
         ENDO                                                           EXC00360
                   SVC   0              UNCONDITIONAL EXCP              EXC00370
.OUT     LABEL                                                          EXC00380
         END                                                            EXC00390
