powerh-l digest, Vol 1 #737 - 1 msg

[Desmond Dujon Henry]

Hi
Does anyone have a command procedure for OpenVMS which can recompile
Powerhouse .qzs, .qts,.qks  source code.I am now upgrading from pow 7.10G3
to Pow 8.30d . Pls explain how it works. I have tried the one below-
qcompile.com  but I get error messages. Thanks.


$ ON CONTROL_Y THEN GOTO END
$ ON ERROR THEN GOTO ERRFIN
$ LOCATION = F$DIRECTORY()
$ WRITE SYS$OUTPUT "PLS ENQ. THAT A VALID DIR HAS BEEN SEL "
$ INQUIRE GETCH "ENTER TO CONTINUE, ^Y TO ABORT "
$START
$ INQUIRE RESPONSE "RECOM QUICK FLS , ENTER TO CONTIN , ^Y ABORTS "
$ IF RESPONSE .NE. "" THEN GOTO START
$ INQUIRE LOCATION "LOCATION OF FILES TO COMPILE"
$ SET DEFAULT 'LOCATION'
$ RESPONSE ="*.QKS"
$ RESPONSES = LOCATION + RESPONSE
$ ON CONTROL_Y THEN GOTO ERRFIN
$ SET VER
$ TEMPFILE = LOCATION + "TEMP_QKS_001.TMP"
$ DIR '''responses'' /output = 'TEMPFILE' -
                    /noheader -
                    /brief -
                    /columns=1 -
                    /version=1
$READ_LOOP:
$ OPEN/READ INFILE 'TEMPFILE'
$ READ/END_OF_FILE=END INFILE RECORD_OF_INFILE
$ CURR_REC = RECORD_OF_INFILE
$ WRITE SYS$OUTPUT CURR_REC
$ QDESIGN AUTO ='''CURR_REC''
EXIT
$ GOTO READ_LOOP
$ERRFIN:
$ WRITE SYS$OUTPUT "PROG TERM"
$END:
$ SET DEFAULT 'LOCATION'
$! DELETE TEMP_QKS_001.TMP;*
$ EXIT








----- Original Message -----
From: <powerh-l-request@cube.swau.edu>
To: <powerh-l@lists.swau.edu>