&PL      PROC  &P,1                                                     UNL00010
UNLCK    NAME  0                                                        UNL00020
         LCL   &X                                                       UNL00030
&X       SET   '&PL.        '(1,8)                                      UNL00040
&X           DS    0H                                                   UNL00050
                   CNOP  0,4                                            UNL00060
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           UNL00070
                   O     1,*+8                                          UNL00080
                   B     *+8                                            UNL00090
                   DC    X'01000000'                                    UNL00100
         GOTO  .LAB1                                                    UNL00110
         ENDO                                                           UNL00120
                   L     1,*+8                                          UNL00130
                   B     *+8                                            UNL00140
         DO    ('&P(1)'='')                                             UNL00150
         PNOTE *,'NO CCB SPECIFIED'                                     UNL00160
                   DC    X'01'                                          UNL00170
                   DC    AL3(0)         PATCH CCB AD. HERE              UNL00180
         GOTO  .LAB1                                                    UNL00190
         ENDO                                                           UNL00200
                   DC    XL1'01'                                        UNL00210
                   DC    AL3(&P(1))     CCB ADDRESS                     UNL00220
.LAB1    LABEL                                                          UNL00230
                   SVC   8                                              UNL00240
         END                                                            UNL00250
