&FNM     PROC  &P,3                                                     PRT00010
PRTOV3   NAME  0                                                        PRT00020
PRTOV    NAME  0                        90/30 PRTOV MACRO J. BILL       PRT00030
         LCL   &A1                                                      PRT00040
         LCL   &CC1                                                     PRT00050
&A1      SET   1                                                        PRT00060
&FNM     DS    0H                                                       PRT00070
.*       PRTOV3  12/19/74                                               PRT00080
.*       EXEC93  IS2.00                                                 PRT00090
         DO    &P(0)=0                                                  PRT00100
         DO    '&P(1)'='(1)'=0                                          PRT00110
&CC1     SET   '&P(1)'(1,1)                                             PRT00120
         DO    ('&P(1)'='')++('&P(1)'>'Z999999')++((('&CC1'<'A')++('&CCXPRT00130
               1'>'Z'))**(('&CC1'='?'=0)**('&CC1'='$'=0)**('&CC1'='#'=0XPRT00140
               )**('&CC1'='@'=0)))                                      PRT00150
         PNOTE 'P','FILENAME SPECIFICATION ERROR.'                      PRT00160
&A1      SET   0                                                        PRT00170
         GOTO  .L1                                                      PRT00180
         ENDO                                                           PRT00190
         L     1,=A(&P(1))                                              PRT00200
.L1      LABEL                                                          PRT00210
         ENDO                                                           PRT00220
         DO    '&P(2)'='9'                                              PRT00230
         MVI   49(1),X'8B'                                              PRT00240
         GOTO  .B1                                                      PRT00250
         ENDO                                                           PRT00260
         DO    ('&P(2)'='')++('&P(2)'='12')                             PRT00270
         MVI   49(1),X'8C'                                              PRT00280
         GOTO  .B1                                                      PRT00290
         ENDO                                                           PRT00300
         MVI   49(1),X'8B'                                              PRT00310
         PNOTE 'P','POSITIONAL PARAMETER 2 ERROR. SET TO 9.'            PRT00320
.B1      LABEL                                                          PRT00330
         DO    '&P(3)'=''                                               PRT00340
         SR    0,0                                                      PRT00350
         GOTO  .L2                                                      PRT00360
         ENDO                                                           PRT00370
         DO    '&P(3)'='(0)'=0                                          PRT00380
&CC1     SET   '&P(3)'(1,1)                                             PRT00390
         DO    (('&CC1'<'A')++('&CC1'>'Z'))**(('&CC1'='?'=0)**('&CC1'='XPRT00400
               $'=0)**('&CC1'='#'=0)**('&CC1'='@'=0))                   PRT00410
         PNOTE 'P','FIRST CHARACTER OF OVERFLOW ROUTINE NAME IS NOT ALPXPRT00420
               HABETIC.'                                                PRT00430
&A1      SET   0                                                        PRT00440
         GOTO  .L2                                                      PRT00450
         ENDO                                                           PRT00460
         L     0,=A(&P(3))                                              PRT00470
.L2      LABEL                                                          PRT00480
         ENDO                                                           PRT00490
         L     15,52(,1)                                                PRT00500
         DO    &A1                                                      PRT00510
         BALR  14,15                                                    PRT00520
         ENDO                                                           PRT00530
         DO    &A1=0                                                    PRT00540
         BCR   0,0                                                      PRT00550
         ENDO                                                           PRT00560
         ENDO                                                           PRT00570
         END                                                            PRT00580
