&PL      PROC  &P,3                                                     RDF00010
RDFCB    NAME  0                                                        RDF00020
         LCL   &SYMBOL1,&SYMBOL2,&SYMBOL3,&X,&Y,&Z,&XX,&YY,&ZZ          RDF00030
         DO    0                                                        RDF00040
.*       RDFCB PIOCB-NAME,ERROR-ADDR                                    RDF00050
         ENDO                                                           RDF00060
&X       SET   '&P(1)'(1,1)                                             RDF00070
&Y       SET   '&P(2)'(1,1)                                             RDF00080
&SYMBOL1 SET   0                                                        RDF00090
&SYMBOL2 SET   0                                                        RDF00100
&SYMBOL3 SET   0                                                        RDF00110
         DO    (('A'<'&X')**('&X'<'Z'))++('&X'='A')++('&X'='Z')++('&X'=CRDF00120
               '$')++('&X'='#')++('&X'='@')++('&X'='?')                 RDF00130
&SYMBOL1 SET   1                                                        RDF00140
         ENDO                                                           RDF00150
         DO    (('A'<'&Y')**('&Y'<'Z'))++('&Y'='A')++('&Y'='Z')++('&Y'=CRDF00160
               '$')++('&Y'='#')++('&Y'='@')++('&Y'='?')                 RDF00170
&SYMBOL2 SET   1                                                        RDF00180
         ENDO                                                           RDF00190
         DS    0H                                                       RDF00200
         DO    '&PL'=''=0                                               RDF00210
&PL      EQU   *                                                        RDF00220
         ENDO                                                           RDF00230
.RDFCB1  LABEL                                                          RDF00240
         DO    '&P(1)'=''                                               RDF00250
         PNOTE 'P','PIOCB NAME IS NOT SPECIFIED '                       RDF00260
         NOP   *                        PATCH AREA                      RDF00270
         GOTO  .RDFCB2                                                  RDF00280
         ENDO                                                           RDF00290
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           RDF00300
         GOTO  .RDFCB2                                                  RDF00310
         ENDO                                                           RDF00320
         DO    &SYMBOL1=0                                               RDF00330
         PNOTE 'P','1ST PARAM ERROR '                                   RDF00340
         NOP   *                       PATCH AREA                       RDF00350
         GOTO  .RDFCB2                                                  RDF00360
         ENDO                                                           RDF00370
         CNOP  0,4                                                      RDF00380
         L     1,*+8                                                    RDF00390
         B     *+8                                                      RDF00400
         DC    A(&P(1))                                                 RDF00410
.RDFCB2  LABEL                                                          RDF00420
         SVC   32                       SV$RDFCB                        RDF00430
         LTR   0,0                                                      RDF00440
         DO    '&P(2)'=''                                               RDF00450
         BNM   *+6                                                      RDF00460
         SVC   28                                                       RDF00470
         GOTO  .EXIT                                                    RDF00480
         ENDO                                                           RDF00490
         DO    ('&P(2)'='(0)')++('&P(2)'='0')                           RDF00500
         PNOTE 'P','2ND PARAM ERROR'                                    RDF00510
         NOP   *                       PATCH AREA                       RDF00520
         GOTO  .EXIT                                                    RDF00530
         ENDO                                                           RDF00540
         DO    ('&P(2)'='(1)')++('&P(2)'='1')                           RDF00550
         PNOTE 'P','2ND PARAM ERROR'                                    RDF00560
         NOP   *                       PATCH AREA                       RDF00570
         GOTO  .EXIT                                                    RDF00580
         ENDO                                                           RDF00590
         DO    &SYMBOL2=0                                               RDF00600
         BMR   &P(2)                                                    RDF00610
         GOTO  .EXIT                                                    RDF00620
         ENDO                                                           RDF00630
         BM    &P(2)                                                    RDF00640
.EXIT    LABEL                                                          RDF00650
         END                                                            RDF00660
