&TAG     PROC  &P,0,&DTF=,&EAT=,&BUF1=,&BUF2=,&MODNAM=,&TYPE=S,        XSRC00010
               &INTERNAL=Y                                              SRC00020
SRC$RDOP NAME                                                           SRC00030
         LCL   &PRLABEL                                                 SRC00040
&PRLABEL SET   '&TAG.        '(1,8)                                     SRC00050
&PRLABEL           DS    0H                                             SRC00060
         DO    '&EAT'=''                                                SRC00070
         PNOTE 'P','EAT PARAMETER MISSING'                              SRC00080
         GOTO .DTZ1                                                     SRC00090
         ENDO                                                           SRC00100
         DO    '&INTERNAL'='N'                                          SRC00110
                   EXTRN &EAT                                           SRC00120
         GOTO .DTZ1                                                     SRC00130
         ENDO                                                           SRC00140
                   ENTRY &EAT                                           SRC00150
.DTZ1    LABEL                                                          SRC00160
         DO    '&DTF'=''                                                SRC00170
         GOTO  .DTZ2                                                    SRC00180
         ENDO                                                           SRC00190
                   EXTRN &DTF                                           SRC00200
.DTZ2    LABEL                                                          SRC00210
         DO    '&BUF1'=''                                               SRC00220
         PNOTE 'P','BUF1 PARAMETER MISSING'                             SRC00230
         GOTO .DTZ3                                                     SRC00240
         ENDO                                                           SRC00250
                   EXTRN &BUF1                                          SRC00260
.DTZ3    LABEL                                                          SRC00270
         DO    '&BUF2'=''                                               SRC00280
         GOTO  .DTZ4                                                    SRC00290
         ENDO                                                           SRC00300
                   EXTRN &BUF2                                          SRC00310
.DTZ4    LABEL                                                          SRC00320
         DO    (('&TYPE'='G')++('&TYPE'='LIST'))=0                      SRC00330
         DO    '&MODNAM'=''                                             SRC00340
         PNOTE 'P','MODNAM PARAMETER MISSING'                           SRC00350
         GOTO  .DTZ6                                                    SRC00360
         ENDO                                                           SRC00370
                   EXTRN &MODNAM                                        SRC00380
         ENDO                                                           SRC00390
.DTZ6    LABEL                                                          SRC00400
                   CNOP  0,4                                            SRC00410
         LCL   &HEXTYPE                                                 SRC00420
&HEXTYPE SET   X'A3'*('&TYPE'='PH')+X'A2'*('&TYPE'='PN')                SRC00430
&HEXTYPE SET   &HEXTYPE+X'A4'*('&TYPE'='S')+X'CA'*('&TYPE'='G')         SRC00440
&HEXTYPE SET   &HEXTYPE+C'A'*('&TYPE'='LIST')                           SRC00450
         BAL   1,RDOP&SYSNDX                                            SRC00460
         DC    AL1(&HEXTYPE)                                            SRC00470
         DC    AL3(&EAT)                                                SRC00480
         DC    A(&BUF1)                                                 SRC00490
         DO    '&TYPE'='G'=0                                            SRC00500
         DC    A(&BUF2)                                                 SRC00510
         DC    A(&DTF)                                                  SRC00520
         DO    ('&TYPE'='LIST')=0                                       SRC00530
         DC    A(&MODNAM)                                               SRC00540
         ENDO                                                           SRC00550
         ENDO                                                           SRC00560
         DO    '&INTERNAL'='Y'                                          SRC00570
&EAT     DS    0F                                                       SRC00580
         DC    XL28'00'                                                 SRC00590
         ENDO                                                           SRC00600
         DC    V(SRC$RDOP)                                              SRC00610
RDOP&SYSNDX  L  15,*-4                                                  SRC00620
         BALR  14,15                                                    SRC00630
         END                                                            SRC00640
