&PL      PROC  &P,3                                                     REN00010
RENAME   NAME  0                                                        REN00020
SYSRNAME NAME  1                                                        REN00030
         LCL   &SYMBOL1,&SYMBOL2,&SYMBOL3,&X,&Y,&Z,&XX,&YY,&ZZ          REN00040
         DO    0                                                        REN00050
.*       RENAME PRM-LIST,ERROR-ADDR,VOL-SEQ-NUMBER                      REN00060
.*       SYSRNAME PRM-LIST,ERROR-ADDR                                   REN00070
         ENDO                                                           REN00080
&X       SET   '&P(1)'(1,1)                                             REN00090
&Y       SET   '&P(2)'(1,1)                                             REN00100
&Z       SET   '&P(3)'(1,1)                                             REN00110
&SYMBOL1 SET   0                                                        REN00120
&SYMBOL2 SET   0                                                        REN00130
&SYMBOL3 SET   0                                                        REN00140
         DO    (('A'<'&X')**('&X'<'Z'))++('&X'='A')++('&X'='Z')++('&X'=CREN00150
               '$')++('&X'='#')++('&X'='@')++('&X'='?')                 REN00160
&SYMBOL1 SET   1                                                        REN00170
         ENDO                                                           REN00180
         DO    (('A'<'&Y')**('&Y'<'Z'))++('&Y'='A')++('&Y'='Z')++('&Y'=CREN00190
               '$')++('&Y'='#')++('&Y'='@')++('&Y'='?')                 REN00200
&SYMBOL2 SET   1                                                        REN00210
         ENDO                                                           REN00220
         DO    (('A'<'&Z')**('&Z'<'Z'))++('&Z'='A')++('&Z'='Z')++('&Z'=CREN00230
               '$')++('&Z'='#')++('&Z'='@')++('&Z'='?')                 REN00240
&SYMBOL3 SET   1                                                        REN00250
         ENDO                                                           REN00260
         DS    0H                                                       REN00270
         DO    '&PL'=''=0                                               REN00280
&PL      EQU   *                                                        REN00290
         ENDO                                                           REN00300
         DO    ('&P(3)'='(0)')++('&P(3)'='0')                           REN00310
         GOTO  .RENAME1                                                 REN00320
         ENDO                                                           REN00330
         DO    '&P(3)'=''                                               REN00340
&XX      SET   1                                                        REN00350
         ENDO                                                           REN00360
         DO    &SYMBOL3                                                 REN00370
&XX      SET   1                                                        REN00380
         PNOTE 'P','3RD PARAM ERROR  VOL SEQ NUMBER IS ASSUMED FOR 1 '  REN00390
         ENDO                                                           REN00400
         DO    '&P(3)'=''=0                                             REN00410
&XX      SET   '&P(3)'                                                  REN00420
         ENDO                                                           REN00430
         LA    0,&XX                                                    REN00440
.RENAME1 LABEL                                                          REN00450
         DO    '&P(1)'=''                                               REN00460
         PNOTE 'P','PRM-LIST IS NOT SPECIFIED'                          REN00470
         NOP   *                                                        REN00480
         GOTO  .RENAME2                                                 REN00490
         ENDO                                                           REN00500
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           REN00510
         GOTO  .RENAME2                                                 REN00520
         ENDO                                                           REN00530
         DO    &SYMBOL1=0                                               REN00540
         PNOTE 'P','1ST PARAM ERROR '                                   REN00550
         NOP   *                       PATCH AREA                       REN00560
         GOTO  .RENAME2                                                 REN00570
         ENDO                                                           REN00580
         CNOP  0,4                                                      REN00590
         L     1,*+8                                                    REN00600
         B     *+8                                                      REN00610
         DC    A(&P(1))                                                 REN00620
.RENAME2 LABEL                                                          REN00630
         SVC   36                       SV$RENAM                        REN00640
         LTR   0,0                                                      REN00650
         DO    '&P(2)'=''                                               REN00660
         BNM   *+6                                                      REN00670
         SVC   28                                                       REN00680
         GOTO  .EXIT                                                    REN00690
         ENDO                                                           REN00700
         DO    ('&P(2)'='(0)')++('&P(2)'='0')                           REN00710
         PNOTE 'P','2ND PARAM ERROR '                                   REN00720
         NOP   *                       PATCH AREA                       REN00730
         GOTO  .EXIT                                                    REN00740
         ENDO                                                           REN00750
         DO    ('&P(2)'='(1)')++('&P(2)'='1')                           REN00760
         PNOTE 'P','2ND PARAM ERROR '                                   REN00770
         NOP   *                       PATCH AREA                       REN00780
         GOTO  .EXIT                                                    REN00790
         ENDO                                                           REN00800
         DO    &SYMBOL2=0                                               REN00810
         BMR   &P(2)                                                    REN00820
         GOTO  .EXIT                                                    REN00830
         ENDO                                                           REN00840
         BM    &P(2)                                                    REN00850
.EXIT    LABEL                                                          REN00860
         END                                                            REN00870
