&PL      PROC  &P,2                                                     P$D00010
DBS      NAME  0                                                        P$D00020
SDBS     NAME  1                                                        P$D00030
         LCL   &X                                                       P$D00040
.*                                                                      P$D00050
.*       DBS   SAVE-AREA-AD,ERROR-AD                                    P$D00060
.*       SDBS                                                           P$D00070
.*                                                                      P$D00080
&X       SET   '&PL.        '(1,8)                                      P$D00090
&X           DS    0H                                                   P$D00100
         DO    &P(0)=1                                                  P$D00110
                   LA    0,1            SDBS                            P$D00120
                   SVC   88                                             P$D00130
         GOTO  .EXIT                                                    P$D00140
         ENDO                                                           P$D00150
.*                                                                      P$D00160
.*       CALL IS DBS                                                    P$D00170
.*                                                                      P$D00180
         DO    '&P(1)'='(13)'=0                                         P$D00190
                   CNOP  0,4                                            P$D00200
                   L     13,*+8                                         P$D00210
                   B     *+8                                            P$D00220
         DO    '&P(1)'=''                                               P$D00230
         PNOTE 'P','SAVE AREA AD. NOT SPECIFIED'                        P$D00240
                   DC    A(0)           PATCH SAVE AREA AD. HERE        P$D00250
         ENDO                                                           P$D00260
         DO    '&P(1)'=''=0                                             P$D00270
                   DC    A(&P(1))       SAVE AREA AD.                   P$D00280
         ENDO                                                           P$D00290
         ENDO                                                           P$D00300
                   SR    0,0            DBS                             P$D00310
                   SVC   88                                             P$D00320
                   LTR   0,0                                            P$D00330
         DO    '&P(2)'=''                                               P$D00340
                   BNM   *+6                                            P$D00350
                   SVC   28             CANCEL IF ERROR                 P$D00360
         GOTO  .EXIT                                                    P$D00370
         ENDO                                                           P$D00380
         DO    '&P(2)'(1,1)='('                                         P$D00390
                   BMR   &P(2)                                          P$D00400
         GOTO  .EXIT                                                    P$D00410
         ENDO                                                           P$D00420
                   BM    &P(2)                                          P$D00430
.EXIT    LABEL                                                          P$D00440
         END                                                            P$D00450
