.PROC,LISHELP*I,
P "- Procedure name (or ALL or *)"     = (ALL=*,*,*F),
L "- Library file name"                = (*N=#FILE,*F),
UN "- User Name containing library"    = (*N=,*F),
O "- Output file name"                 = (*N=OUTPUT,*F),
LO "- List Option"                     = (*N=L,FULL=L,F=L,BRIEF=S,B=S,
                                               TXTCODE=T,T),
.
.HELP
 The LISHELP procedure LISts HELP documentation from a procedure.
 Requires XEDIT binaries installed on NOS system.

 Parameter   Default   Description
   Name       Value

   p                   procedure name to list (or ALL or *)
  [l]                  library file containing the procedure(s)
  [un]                 user name in which library resides
  [o]        OUTPUT    local file to which output is listed
  [lo]         f       list option for help documentation
.HELP,P
 The P parameter selects the procedure name to list.
.HELP,L
 The L parameter names the file containing a library of procedures.
 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,O
 The O parameter names a local file to which procedure(s) are listed.
 The default value is OUTPUT.
.HELP,LO
 The LO parameter selects the list option used.
 Options are : B | BRIEF  - for brief output (procedure help only)
               F | FULL  - for full output (includes parameter help)
 The default value is FULL.
.ENDHELP
GETPROC,P,L,UN,G=YYYYGRP.
BEGIN,UPDATIM,UPDATIM,DATE+,TIME+.
$UNLOAD,UPDATIM.
$REWIND,YYYYED1,YYYYED2,YYYSCR3.
XEDIT,YYYYGRP,I=YYYYED1,#L=0,AS.
XEDIT,YYYSCR1,I=YYYYED2,#L=0,AS.
$SKIPEI,YYYSCR3.
$COPYEI,YYYSCR1,YYYSCR3.
$PACK,YYYSCR3.
  $COPYEI,YYYSCR3,O.
$UNLOAD,YYYYGRP,YYYYED1,YYYYED2,YYYSCR1,YYYSCR2,YYYSCR3.
$SKIP,NOERROR.
  $EXIT.
  $UNLOAD,YYYYGRP,YYYYED1,YYYYED2,YYYSCR1,YYYSCR2,YYYSCR3.
  $IFE,(EF.EQ.TIE).OR.(EF.EQ.TAE),TERMINATED.
    $EXIT. LISHELP *TERMINATED*
  $ENDIF,TERMINATED.
  $REVERT,ABORT. LIST OF L FAILED
$ENDIF,NOERROR.
$REVERT. LIST HELP --> O
.DATA,YYYYED1
WM,1,6
Y$LW/.PROC,/$LW/.PROC,/0$CW/.PROC,/\ THE /$+A$ CCL PROCEDURE$B$-
C/*I,/ INTERACTIVE/*
C/*I/ INTERACTIVE/*
C/*M,/ MENU/*
C/*M/ MENU /*
Y$LW/\ THE/$LW/\ THE/0$COPYD,YYYSCR1$LW/HELP/$LW/HELP/0$/COPYD,YYYSCR1,/ENDH/$-
END
.DATA,YYYYED2
WM,1,1
CW// /*
WM,1,3
.IFE,$LO$.NE.$T$,NO_TXTCODE.
CW/ \ /- ** /*
.ELSE,NO_TXTCODE.
CW/ \ /\ 3 /*
.ENDIF,NO_TXTCODE.
.IFE,$LO$.EQ.$S$,BRIEFOPT.
Y$XL/.HELP/$XL/.HELP/0$COPYD,YYYSCR2,/.ENDH/$-
.ELSE,BRIEFOPT.
Y$XL/.ENDHELP/$XL/.ENDHELP/0$D$+IB$ $-
Y$XL/.HELP/$XL/.HELP/0$D$+IB$ $-
.ENDIF,BRIEFOPT.
END
.DATA,UPDATIM
.PROC,UPDATIM,DATEVAL,TIMEVAL.
$REVERT,NOLIST.
#.DATA,YYYSCR3
.IFE,$LO$.NE.$T$,NO_TXTCODE.
1 COPYRIGHT CONTROL DATA SYSTEMS INC 1992
  NOS/VE 1.0   - NOS USER LIBRARY MAINTENANCE PROCEDURES

.IFE,$P$.EQ.$*$,ALLPROCS.
  .IFE,$LO$.EQ.$S$,BRIEF.
-BRIEF HELP LISTING OF ALL L PROCEDURES - UN DATE: DATEVAL TIME: TIMEVAL
  .ELSE,BRIEF.
-FULL HELP LISTING OF ALL L PROCEDURES - UN DATE: DATEVAL TIME: TIMEVAL
  .ENDIF,BRIEF.
.ELSE,ALLPROCS.
  .IFE,$LO$.EQ.$S$,BRIEF.
-BRIEF HELP LISTING OF L PROCEDURE P - UN DATE: DATEVAL TIME: TIMEVAL
  .ELSE,BRIEF.
-FULL HELP LISTING OF L PROCEDURE P - UN DATE: DATEVAL TIME: TIMEVAL
  .ENDIF,BRIEF.
.ENDIF,ALLPROCS.

.ELSE,NO_TXTCODE.
\\FORMAT,03,75
\MARGIN03
\LENGTH75
\AUTOSEC
\TABLCON
\ASIS
\ 1 FILE L HELP DOCUMENTATION, DATE: DATEVAL TIME: TIMEVAL
.ENDIF,NO_TXTCODE.
/EOR
