Hi,
sorry for the previous empty post. Here is what I wanted to say..
to those of you who are using GCG under VMS I append a small procedure that
allows a user to print his own copy of a part of the program manual.
UNIX folks may use this as an example.
In addition I would like to have a version of the user manual on my machine,
too.
Regards,
Christoph Gartmann
+----------------------------------------------------------------------------+
| Max-Planck-Institut fuer Phone : +49-761-5108-465 Fax: -221 |
| Immunbiologie PSI : PSI%(0262)45050160374::GARTMANN |
| Postfach 1169 Internet: gartmann at immunbio.mpg.de |
| D-79011 Freiburg, FRG |
+----------- Do you know MENUE, the user environment for OpenVMS? -----------+
---> PRINT_MANUAL.COM >------------------------------------------------------->
$ ON ERROR THEN GOTO end_prog
$ INQUIRE/NOPUNCT progname "Documentation for which program: "
$ IF progname .EQS. "" THEN EXIT
$ INQUIRE/NOPUNCT printer "Print to which printer: "
$ IF printer .EQS. "" THEN EXIT
$ WRITE sys$output " "
$ IF F$SEARCH("sys$scratch:temp.ps") .NES. "" THEN -
DELETE/NOLOG/NOCONFIRM/BEFORE=TODAY sys$scratch:temp.ps;*
$ docnum = 0
$ ischeck = ( comquery .EQS. "TRUE")
$ IF ischeck THEN nocomcheck
$loop:
$ printfile = F$SEARCH("PROGRAM_MANUAL:" + progname + "*.RED", 1 )
$ IF printfile .EQS. "" THEN GOTO endloop
$ docnum = docnum + 1
$ RED/NOCHECK/OUT=sys$scratch:temp.ps 'printfile'
$ PRINT/QUE='printer'/PARA=("DATA=PS")/DELETE/NOTIFY sys$scratch:temp.ps
$ GOTO loop
$endloop:
$ IF ischeck THEN comcheck
$ IF docnum .EQ. 0 THEN -
WRITE sys$output "No documentation available for ", progname, "!"
$end_prog:
$ WRITE sys$output " "
$ WRITE sys$output " "
$ INQUIRE/NOPUNCT dummy " Press RETURN to continue..."
$ EXIT
+----------------------------------------------------------------------------+
| Max-Planck-Institut fuer Phone : +49-761-5108-465 Fax: -221 |
| Immunbiologie PSI : PSI%(0262)45050160374::GARTMANN |
| Postfach 1169 Internet: gartmann at immunbio.mpg.de |
| D-79011 Freiburg, FRG |
+----------- Do you know MENUE, the user environment for OpenVMS? -----------+
