&PL      PROC  &P,2                                                     WAI00010
WAIT     NAME  0                                                        WAI00020
.*       WAIT  CCB-ECB-ADDRESS,BRANCH-ADDRESS                           WAI00030
         LCL   &X                                                       WAI00040
         DO    '&P(1)'=''                                               WAI00050
         PNOTE 'P','FIRST PARAMETER MISSING'                            WAI00060
         GOTO  .EXIT                                                    WAI00070
         ENDO                                                           WAI00080
&X       SET   '&PL.        '(1,8)                                      WAI00090
&X           DS    0H                                                   WAI00100
         DO    '&P(1)'='ALL'                                            WAI00110
                   SVC   2                                              WAI00120
         GOTO  .EXIT                                                    WAI00130
         ENDO                                                           WAI00140
         DO    (('&P(1)'='(1)')++('&P(1)'='1'))=0                       WAI00150
                   CNOP  0,4                                            WAI00160
                   L     1,*+8                    R1=CCB OR ECB AD.     WAI00170
                   B     *+8                                            WAI00180
                   DC    A(&P(1))                                       WAI00190
         ENDO                                                           WAI00200
                   TM    2(1),X'80'     IS CCB PROCESSED?               WAI00210
                   BO    *+6                                            WAI00220
                   SVC   1                                              WAI00230
         DO    '&P(2)'=''=0                                             WAI00240
                   TM    2(1),X'7F'     CHECK I/O EXCEPTIONS            WAI00250
         DO    ('&P(2)'='(15)')++('&P(2)'='15')                         WAI00260
                   BNZR  15                                             WAI00270
         GOTO  .EXIT                                                    WAI00280
         ENDO                                                           WAI00290
                   BNZ   &P(2)                                          WAI00300
         ENDO                                                           WAI00310
.EXIT    LABEL                                                          WAI00320
         END                                                            WAI00330
