IUBio Biosequences .. Software .. Molbio soft .. Network News .. FTP

How useful is GCG nowadays (vs Macs)

Christoph Gartmann GARTMANN at IMMUNBIO.MPG.DE
Wed Mar 22 18:35:31 EST 1995


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? -----------+



More information about the Info-gcg mailing list

Send comments to us at biosci-help [At] net.bio.net