&PIO     PROC  &P,1                                                     PIO00010
PIOCB    NAME  0                   PHYSICAL INPUT/OUTPUT CONTROL BLOCK  PIO00020
         CNOP  0,4                                                      PIO00030
&PIO     DC    CL8'&PIO'                                                PIO00040
         DO    '&P(1)'=''                                               PIO00050
.PIOM    LABEL                                                          PIO00060
         DC    AL2(16)             MINIMUM PIOCB                        PIO00070
         DC    XL6'0'                                                   PIO00080
         GOTO  .PIOUT                                                   PIO00090
         ENDO                                                           PIO00100
         DO    '&P(1)'='MAX'                                            PIO00110
.PIOX    LABEL                                                          PIO00120
         DC    AL2(256)            MAXIMUM PIOCB                        PIO00130
         DC    XL246'0'                                                 PIO00140
         GOTO  .PIOUT                                                   PIO00150
         ENDO                                                           PIO00160
         DO    '&P(1)'<'16'                                             PIO00170
         PNOTE 'P',' MINIMUM FCB = 16 BYTES '                           PIO00180
         GOTO  .PIOM                                                    PIO00190
         ENDO                                                           PIO00200
         DO    '&P(1)'>'256'                                            PIO00210
         PNOTE 'P',' MAXIMUM FCB = 256 BYTES '                          PIO00220
         GOTO  .PIOX                                                    PIO00230
         ENDO                                                           PIO00240
         DC    AL2(&P(1))          USER SPECIFIED LENGTH                PIO00250
         DC    XL(&P(1))'0'                                             PIO00260
.PIOUT   LABEL                                                          PIO00270
         END                                                            PIO00280
