.PROC,GETPROC*I,
P "- Procedure name (or ALL or *)"     = (ALL=$*$,$*$,*F),
L "- Library file name"                = (*N=#FILE,*F),
UN "- User Name of library file"       = (*N=,*F),
G "- Group file receiving procedure(s)"= (*N=,*F),
.
.HELP
 The GETPROC procedure GETs PROCedures from a library file.

 Parameter   Default   Description
   Name       Value

   p                   procedure name to extract (or ALL or *)
  [l]                  library file containing the procedure(s)
  [un]                 user name in which library resides
  [g]                  local file to which procedure(s) are written

.HELP,P
 The P parameter names the procedure to extract from a library file.
.HELP,L
 The L parameter names the file containing a library of procedure(s).
 The default value is the file containing this procedure.
.HELP,UN
 The UN parameter specifies the User Name location of the file.
 The default value is the User Name in which this procedure executes.
 On NOS/BE, the UN parameter is the permanent file ID of the file.
.HELP,G
 The G parameter names a local file to which procedure(s) are written.
.ENDHELP
.IFE,$G$.EQ.$L$,ERROR.
  REVERT,ABORT. CANNOT GET G --> L
.ENDIF,ERROR.
.IFE,(($P$.EQ.$*$).AND.($G$.EQ.$$)),NAMEGROUP.
  REVERT,EX.GETLIB,P,L,UN,GROUP,T=PROC.
.ELSE,NAMEGROUP.
  .IFE,$G$.EQ.$$,NOGROUP.
    REVERT,EX.GETLIB,P,L,UN,P,T=PROC.
  .ELSE,NOGROUP.
    REVERT,EX.GETLIB,P,L,UN,G,T=PROC.
  .ENDIF,NOGROUP.
.ENDIF,NAMEGROUP.
/EOR
