&TAG     PROC  &P,1,&NEWNAME=,&LIST=                                    DRC00010
DRC$FIND NAME  DRC$FIND                                                 DRC00020
DRC$ENTS NAME  DRC$ENTS                                                 DRC00030
DRC$ENTP NAME  DRC$ENTP                                                 DRC00040
DRC$ENTO NAME  DRC$ENTO                                                 DRC00050
DRC$ENTL NAME  DRC$ENTL                                                 DRC00060
DRC$AVAL NAME  DRC$AVAL                                                 DRC00070
DRC$DELT NAME  DRC$DELT                                                 DRC00080
DRC$RENM NAME  DRC$RENM                                                 DRC00090
DRC$ALL  NAME  DRC$ALL                                                  DRC00100
SRC$READ NAME  SRC$READ                                                 DRC00101
SRC$RDHD NAME  SRC$RDHD                                                 DRC00102
SRC$GNCL NAME  SRC$GNCL                                                 DRC00103
OBJ$GNCL NAME  OBJ$GNCL                                                 DRC00104
.*                                                                      DRC00110
.********************************************************************** DRC00120
.*                                                                    * DRC00130
.*                                                                    * DRC00140
.*       PROC TO CALL THE DIRECTORY MANIPULATION ROUTINES             * DRC00150
.*                                                                    * DRC00160
.********************************************************************** DRC00170
.*                                                                      DRC00180
         LCL   &I                                                       DRC00190
         LCL   &PRLABEL                                                 DRC00200
&PRLABEL SET   '&TAG.        '(1,8)                                     DRC00210
&PRLABEL           DS    0H                                             DRC00220
.*                                                                      DRC00230
&I       SET   8                                                        DRC00231
         DO    '&P(0)'(5,4)='GNCL'=0                                    DRC00232
         DO    '&P(1)'=''                                               DRC00233
         PNOTE '*','EAT PARAMETER MISSING'                              DRC00234
         GOTO  .ENDPROC                                                 DRC00235
         ENDO                                                           DRC00236
&I       SET   12-(('&P(1)'='1')++('&P(1)'='(1)'))*4                    DRC00240
         ENDO                                                           DRC00245
.*                                                                      DRC00250
                   CNOP  0,4                                            DRC00260
                   B     *+&I                                           DRC00270
         DO    &I=12                                                    DRC00280
                   DC    A(&P(1))                                       DRC00290
         DO    '&P(1)'(1,6)='LU$EAT'                                    DRC00300
                   EXTRN &P(1)                                          DRC00310
         ENDO                                                           DRC00320
         ENDO                                                           DRC00330
                   DC    V(&P(0))                                       DRC00340
.*                                                                      DRC00350
                   L     15,*-4                                         DRC00360
         DO    &I=12                                                    DRC00370
                   L     1,*-12                                         DRC00380
         ENDO                                                           DRC00390
.*                                                                      DRC00400
 DO ('&P(0)'='DRC$RENM')**('&NEWNAME'='0'=0)**('&NEWNAME'='(0)'=0)      DRC00410
                   LA    0,&NEWNAME                                     DRC00420
         ENDO                                                           DRC00430
.*                                                                      DRC00440
         DO    ('&P(0)'='DRC$ALL')**('&LIST'='0'=0)**('&LIST'='(0)'=0)  DRC00450
         LA    R0,&LIST                                                 DRC00460
         ENDO                                                           DRC00470
.*                                                                      DRC00480
                   BALR  14,15                                          DRC00490
.*                                                                      DRC00500
.ENDPROC LABEL                                                          DRC00505
         END                                                            DRC00510
