Fw: Re: VMS batch compile tricks 'n' tips. Have any?
Rick Hill
rmhill@core.com
Mon, 4 Aug 2003 10:16:21 -0400
This is a multi-part message in MIME format.
------=NEOMAIL_ATT_0.94061027778648
Content-Type: text/plain; charset=iso-8859-1
Here's something that should be close to what you need. It's set up to
only do quick screens, but you could expand it to also do QTP and QUIZ
source. You'll need to define the location for "RC".
-- Rick Hill
$!---------------------------------------------------------------------
$! COMPILE.COM
$!---------------------------------------------------------------------
$ OPEN/WRITE COMPILE_JOB RC:COMPILE_IT.COM
$!
$ WRITE/SYMBOL COMPILE_JOB "$ SET DEF [place to put executables]"
$ DEFINE SYS$OUTPUT RC:COMPILE_RESULTS.LOG
$ WRITE/SYMBOL COMPILE_JOB "$ QDESIGN CC=TRANS_ON"
$!
$ DEFINE/NOLOG DIRFILE_QKS "RC:qks.dirlist"
$ DIR/NOHEAD/NOTRAIL/OUT=dirfile_qks RC:*.QKS
$ OPEN/READ DLIST_QKS dirfile_qks
$!
$!---------------------------------------------------------------------
$ WRITE SYS$OUTPUT "PROGRAMS TO BE RE-COMPILED: "
$!
$ THE_LOOP:
$!---------------------------------------------------------------------
$ READ/END=THE_END DLIST_QKS DREC
$!
$ FNAME = F$ELEMENT(1,"]",DREC)
$ PNAME = F$ELEMENT(0,".",FNAME)
$ WRITE SYS$OUTPUT " ",PNAME
$ AAA = F$ELEMENT(1,".",FNAME)
$ EXT = F$ELEMENT(0,";",AAA)
$ TP := "''F$EXTRACT(4,1,PNAME)'"
$!
$ WRITE COMPILE_JOB " USE ''DREC' NOLIST"
$!
$ GOTO THE_LOOP
$!
$!---------------------------------------------------------------------
$ THE_END:
$!---------------------------------------------------------------------
$!
$ WRITE COMPILE_JOB "EXIT"
$ WRITE/SYMBOL COMPILE_JOB "$ SET DEF RC"
$ CLOSE COMPILE_JOB
$ CLOSE DLIST_QKS
$ DELETE RC:QKS.DIRLIST;*
$!---------------------------------------------------------------------
$!
$ @COMPILE_IT.COM
$!
$!---------------------------------------------------------------------
> I used to have a really neat VMS dcl script, which would parse a text
file
> full of QTP/QUIZ/QDESIGN files and compile them. It also had the
ability to
> compile QUIZs and QTP that use subfiles, for which are not kept (ie:
without
> the KEEP verb). Manually I have to do this by starting another
session via
> the '$' command.
> ie:
> $QTP
> use program.qts nol
> use program-b.qts nol
> $$quiz
> use program-with-qtp-subfile.qzs nol
> etc
> etc
>
> Unfortunately in trying to put this into a DCL batch job, it crashes
at the
> $$QUIZ stage because it is trying to interpret the command from
within the
> same session.
>
> Does anyone have such a dcl around?
>
> Thanks
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-
request@lists.swau.edu
> Unsubscribe: "unsubscribe <password>" in message body to powerh-l-
request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a
subscriber.
>
--
CoreComm Webmail.
http://home.core.com
--
CoreComm Webmail.
http://home.core.com
------=NEOMAIL_ATT_0.94061027778648
From: "Rick Hill" <rmhill@core.com>
To: "Olmos, Fernando (Sericon at Alcoa)" <Fernando.Olmos@alcoa.com.au>
Subject: Re: VMS batch compile tricks 'n' tips. Have any?
X-Mailer: CoreCommMail
X-IPAddress: 208.217.21.43
Date: Mon, 4 Aug 2003 10:14:44 -0400
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Here's something that should be close to what you need. It's set up to
only do quick screens, but you could expand it to also do QTP and QUIZ
source. You'll need to define the location for "RC".
-- Rick Hill
$!---------------------------------------------------------------------
$! COMPILE.COM
$!---------------------------------------------------------------------
$ OPEN/WRITE COMPILE_JOB RC:COMPILE_IT.COM
$!
$ WRITE/SYMBOL COMPILE_JOB "$ SET DEF [place to put executables]"
$ DEFINE SYS$OUTPUT RC:COMPILE_RESULTS.LOG
$ WRITE/SYMBOL COMPILE_JOB "$ QDESIGN CC=TRANS_ON"
$!
$ DEFINE/NOLOG DIRFILE_QKS "RC:qks.dirlist"
$ DIR/NOHEAD/NOTRAIL/OUT=dirfile_qks RC:*.QKS
$ OPEN/READ DLIST_QKS dirfile_qks
$!
$!---------------------------------------------------------------------
$ WRITE SYS$OUTPUT "PROGRAMS TO BE RE-COMPILED: "
$!
$ THE_LOOP:
$!---------------------------------------------------------------------
$ READ/END=THE_END DLIST_QKS DREC
$!
$ FNAME = F$ELEMENT(1,"]",DREC)
$ PNAME = F$ELEMENT(0,".",FNAME)
$ WRITE SYS$OUTPUT " ",PNAME
$ AAA = F$ELEMENT(1,".",FNAME)
$ EXT = F$ELEMENT(0,";",AAA)
$ TP := "''F$EXTRACT(4,1,PNAME)'"
$!
$ WRITE COMPILE_JOB " USE ''DREC' NOLIST"
$!
$ GOTO THE_LOOP
$!
$!---------------------------------------------------------------------
$ THE_END:
$!---------------------------------------------------------------------
$!
$ WRITE COMPILE_JOB "EXIT"
$ WRITE/SYMBOL COMPILE_JOB "$ SET DEF RC"
$ CLOSE COMPILE_JOB
$ CLOSE DLIST_QKS
$ DELETE RC:QKS.DIRLIST;*
$!---------------------------------------------------------------------
$!
$ @COMPILE_IT.COM
$!
$!---------------------------------------------------------------------
> I used to have a really neat VMS dcl script, which would parse a text
file
> full of QTP/QUIZ/QDESIGN files and compile them. It also had the
ability to
> compile QUIZs and QTP that use subfiles, for which are not kept (ie:
without
> the KEEP verb). Manually I have to do this by starting another
session via
> the '$' command.
> ie:
> $QTP
> use program.qts nol
> use program-b.qts nol
> $$quiz
> use program-with-qtp-subfile.qzs nol
> etc
> etc
>
> Unfortunately in trying to put this into a DCL batch job, it crashes
at the
> $$QUIZ stage because it is trying to interpret the command from
within the
> same session.
>
> Does anyone have such a dcl around?
>
> Thanks
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-
request@lists.swau.edu
> Unsubscribe: "unsubscribe <password>" in message body to powerh-l-
request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a
subscriber.
>
--
CoreComm Webmail.
http://home.core.com
------=NEOMAIL_ATT_0.94061027778648--