.PROC,GETTEXT*I,
T "- Text record 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 TEXT records"= (*N=,*F),
.
.HELP
 The GETTEXT procedure GETs TEXT records from a library file.

 Parameter   Default   Description
   Name       Value

   t                   TEXT record name to extract (or ALL or *)
  [l]                  library file containing the TEXT record
  [un]                 user name in which library resides
  [g]                  local file to which TEXT records are written

.HELP,T
 The T parameter names the TEXT record to extract from a library file.
.HELP,L
 The L parameter names the file containing a library of TEXT records.
 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.
.HELP,G
 The G parameter names a local file to which TEXT records are written.
.ENDHELP
.IFE,$G$.EQ.$L$,ERROR.
  $REVERT,ABORT. CANNOT GET G --> L
.ENDIF,ERROR.
.IFE,(($T$.EQ.$*$).AND.($G$.EQ.$$)),NAMEGROUP.
  $REVERT,EX.GETLIB,T,L,UN,GROUP,#T=TEXT.
.ELSE,NAMEGROUP.
  .IFE,$G$.EQ.$$,NOGROUP.
    $REVERT,EX.GETLIB,T,L,UN,T,#T=TEXT.
  .ELSE,NOGROUP.
    $REVERT,EX.GETLIB,T,L,UN,G,#T=TEXT.
  .ENDIF,NOGROUP.
.ENDIF,NAMEGROUP.
/EOR
