&PL      PROC  &P,3                                                     SCR00010
SCRTCH   NAME  0                                                        SCR00020
         LCL   &SYMBOL1,&SYMBOL2,&SYMBOL3,&X,&Y,&Z,&XX,&YY,&ZZ          SCR00030
         DO    0                                                        SCR00040
.*       SCRTCH PRM-LIST,FUNCTION,ERROR-ADDR                            SCR00050
         ENDO                                                           SCR00060
&X       SET   '&P(1)'(1,1)                                             SCR00070
&Y       SET   '&P(2)'(1,1)                                             SCR00080
&Z       SET   '&P(3)'(1,1)                                             SCR00090
&SYMBOL1 SET   0                                                        SCR00100
&SYMBOL2 SET   0                                                        SCR00110
&SYMBOL3 SET   0                                                        SCR00120
         DO    (('A'<'&X')**('&X'<'Z'))++('&X'='A')++('&X'='Z')++('&X'=CSCR00130
               '$')++('&X'='#')++('&X'='@')++('&X'='?')                 SCR00140
&SYMBOL1 SET   1                                                        SCR00150
         ENDO                                                           SCR00160
         DO    (('A'<'&Y')**('&Y'<'Z'))++('&Y'='A')++('&Y'='Z')++('&Y'=CSCR00170
               '$')++('&Y'='#')++('&Y'='@')++('&Y'='?')                 SCR00180
&SYMBOL2 SET   1                                                        SCR00190
         ENDO                                                           SCR00200
         DO    (('A'<'&Z')**('&Z'<'Z'))++('&Z'='A')++('&Z'='Z')++('&Z'=CSCR00210
               '$')++('&Z'='#')++('&Z'='@')++('&Z'='?')                 SCR00220
&SYMBOL3 SET   1                                                        SCR00230
         ENDO                                                           SCR00240
         DS    0H                                                       SCR00250
         DO    '&PL'=''=0                                               SCR00260
&PL      EQU   *                                                        SCR00270
         ENDO                                                           SCR00280
         DO    ('&P(2)'='(0)')++('&P(2)'='0')                           SCR00290
         GOTO  .SCRTCH1                                                 SCR00300
         ENDO                                                           SCR00310
         DO    '&P(2)'=''                                               SCR00320
         SR    0,0                                                      SCR00330
         GOTO  .SCRTCH1                                                 SCR00340
         ENDO                                                           SCR00350
         DO    '&P(2)'='ALL'                                            SCR00360
         LA    0,&X'82'                                                 SCR00370
         GOTO  .SCRTCH1                                                 SCR00380
         ENDO                                                           SCR00390
         DO    '&P(2)'='PREFIX'                                         SCR00400
         LA    0,&X'83'                                                 SCR00410
         GOTO  .SCRTCH1                                                 SCR00420
         ENDO                                                           SCR00430
         DO    '&P(2)'='UNUSED'                                         SCR00440
         LA    0,&X'84'                                                 SCR00450
         GOTO  .SCRTCH1                                                 SCR00460
         ENDO                                                           SCR00470
         DO    &SYMBOL2                                                 SCR00480
         PNOTE 'P','2ND PARAM ERROR '                                   SCR00490
         NOP   *                        PATCH AREA                      SCR00500
         GOTO  .SCRTCH1                                                 SCR00510
         ENDO                                                           SCR00520
         LA    0,&P(2)                                                  SCR00530
.SCRTCH1 LABEL                                                          SCR00540
         DO '&P(1)'=''                                                  SCR00550
         PNOTE 'P','PRM-LIST IS NOT SPECIFIED'                          SCR00560
         NOP   *                        PATCH AREA                      SCR00570
         GOTO  .SCRTCH2                                                 SCR00580
         ENDO                                                           SCR00590
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           SCR00600
         GOTO  .SCRTCH2                                                 SCR00610
         ENDO                                                           SCR00620
         DO    &SYMBOL1=0                                               SCR00630
         PNOTE 'P','1ST PARAM ERROR '                                   SCR00640
         NOP   *                       PATCH AREA                       SCR00650
         GOTO  .SCRTCH2                                                 SCR00660
         ENDO                                                           SCR00670
         CNOP  0,4                                                      SCR00680
         L     1,*+8                                                    SCR00690
         B     *+8                                                      SCR00700
         DC    A(&P(1))                                                 SCR00710
.SCRTCH2 LABEL                                                          SCR00720
         SVC   35                       SV$SCRTH                        SCR00730
         LTR   0,0                                                      SCR00740
         DO    '&P(3)'=''                                               SCR00750
         BNM   *+6                                                      SCR00760
         SVC   28                                                       SCR00770
         GOTO  .EXIT                                                    SCR00780
         ENDO                                                           SCR00790
         DO    ('&P(3)'='(0)')++('&P(3)'='0')                           SCR00800
         PNOTE 'P','3RD PARAM ERROR '                                   SCR00810
         NOP   *                       PATCH AREA                       SCR00820
         GOTO  .EXIT                                                    SCR00830
         ENDO                                                           SCR00840
         DO    ('&P(3)'='(1)')++('&P(3)'='1')                           SCR00850
         PNOTE 'P','3RD PARAM ERROR '                                   SCR00860
         NOP   *                       PATCH AREA                       SCR00870
         GOTO  .EXIT                                                    SCR00880
         ENDO                                                           SCR00890
         DO    &SYMBOL3=0                                               SCR00900
         BMR   &P(3)                                                    SCR00910
         GOTO  .EXIT                                                    SCR00920
         ENDO                                                           SCR00930
         BM    &P(3)                                                    SCR00940
.EXIT    LABEL                                                          SCR00950
         END                                                            SCR00960
