This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C16853.2D5D0650
Content-Type: text/plain;
charset="iso-8859-1"
Hi Scott,
the simplest approach would be to code a second quiz, that aside, more
complete example of the go/nogo approach is below, you could convert this
to use the GETSYSTEMVAL("HPSTREAMEDBY") function as in JPW's earlier
suggestion in place of the 'parm prompt' syntax,
Problem Description
Use item in QZ to set report file name.
Solution Description
Build statement into a file in prepass.
eg.
def fname char*10 = parm prompt "Enter file name of report:"
def cmd char*70 = "SET REP DEVICE DISC NAME " + fname
set sub name nameprompt nodict
rep summ cmd
build getname
;To run report:
;- compile report without SET REP DEVICE statement
;- exec 1st pass then 2nd pass with NOGO option
$ QUIZ
EXEC getname
EXEC report NOGO
USE nameprompt.DAT ;bring in source statement from above file
GO
-----Original Message-----
From: Scott Gates [mailto:SGates@olbh.com]
Sent: 07 November 2001 21:49
To: 'Powerh-L (E-mail)
Subject: checking HP Variables
I have some QUIZ code that checks to see if it's running on an HP or not.
@IF HPMPE OR HPMPEXL
USE MARS152U NOLIST
@ELSE
USE ALT$DATA:MARS152U.DAT NOLIST
@ENDIF
I was wondering. I need to check HPSTREAMEDBY[1:5] = "TRANS"
If it is TRUE, direct a 2nd copy of the quiz report with a different heading
to another printer.
Would code similar to the above do it?
Say something like:
@IF HPSTREAMEDBY = "TRANS"
DEFINE HEADERSTR CHAR* 30 = <blah.blah>
:FILE QUIZLIST;DEV=<blah>
@ENDIF
Is this DOABLE within QUIZ?
The job is generated on the fly by the application and I can't change the
JCL. I can only change the code it calls to generate the QUIZ report.
There are several other changes also needed but, I'm trying to investigate
this before I can even make judgment on whether or not it's even worth
trying.
Scott Gates
Programmer/Analyst
Information Services
Our Lady of Bellefonte Hospital
P.O. Box 789
Ashland, Kentucky 41105-0789
-----------------------------------
Phone: (606)833-3773
Fax: (606)833-3342
-----------------------------------
Intranet: http://Olbh01iis/intranet/index.html
Primary e-mail : [mailto:sgates@olbh.com]
Alternate e-mail : [mailto:msgates@pobox.com]
-----------------------------------
Our Lady of Bellefonte : http://www.olbh.com
-----------------------------------
Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail, fax or phone and destroy all copies of
the original message.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" 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.
This message may contain privileged and/or confidential information. If you
have received this e-mail in error or are not the intended recipient, you
may not use, copy, disseminate or distribute it; do not open any
attachments, delete it immediately from your system and notify the sender
promptly by e-mail that you have done so. Thank you.
------_=_NextPart_001_01C16853.2D5D0650
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
RE: checking HP Variables
Hi Scott,
the simplest approach would be to code a second quiz, =
that aside, more complete example of the go/nogo approach is =
below, you could convert this to use the =
GETSYSTEMVAL("HPSTREAMEDBY") function as in JPW's earlier =
suggestion in place of the 'parm prompt' syntax,
&nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp;
Problem Description
&nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp;
Use item in QZ to set report file =
name. &=
nbsp; &=
nbsp; &=
nbsp;
Solution Description
&nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp;
Build statement into a file in =
prepass. &nbs=
p; &nbs=
p; &nbs=
p;
eg. =
=
=
=
=
=
def fname char*10 =3D parm prompt "Enter file =
name of =
report:" =
;
def cmd char*70 =3D "SET REP DEVICE DISC NAME =
" + =
fname &=
nbsp; =
set sub name nameprompt =
nodict =
=
=
rep summ =
cmd &nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp;
build =
getname =
; =
; =
; =
; =
;
&nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp; &nb=
sp;
;To run =
report: =
; =
; =
; =
; =
;
;- compile report without SET REP DEVICE =
statement &nb=
sp; &nb=
sp;
;- exec 1st pass then 2nd pass with NOGO =
option =
=
$ =
QUIZ &n=
bsp; &n=
bsp; &n=
bsp; &n=
bsp; &n=
bsp;
EXEC =
getname =
; =
; =
; =
; =
;
EXEC report =
NOGO &n=
bsp; &n=
bsp; &n=
bsp; &n=
bsp; =
USE nameprompt.DAT ;bring in source statement from =
above =
file &n=
bsp;
GO &=
nbsp; &=
nbsp; &=
nbsp; &=
nbsp; &=
nbsp; &=
nbsp;
&nb=
sp;
-----Original Message-----
From: Scott Gates [mailto:SGates@olbh.com]
Sent: 07 November 2001 21:49
To: 'Powerh-L (E-mail)
Subject: checking HP Variables
I have some QUIZ code that checks to see if it's =
running on an HP or not.
@IF HPMPE OR HPMPEXL
USE MARS152U NOLIST
@ELSE
USE ALT$DATA:MARS152U.DAT NOLIST
@ENDIF
I was wondering. I need to check =
HPSTREAMEDBY[1:5] =3D "TRANS"
If it is TRUE, direct a 2nd copy of the quiz report =
with a different heading
to another printer.
Would code similar to the above do it?
Say something like:
@IF HPSTREAMEDBY =3D "TRANS"
DEFINE HEADERSTR CHAR* 30 =3D =
<blah.blah>
:FILE QUIZLIST;DEV=3D<blah>
@ENDIF
Is this DOABLE within QUIZ?
The job is generated on the fly by the application =
and I can't change the
JCL. I can only change the code it calls to generate =
the QUIZ report.
There are several other changes also needed but, I'm =
trying to investigate
this before I can even make judgment on whether or =
not it's even worth
trying.
Scott Gates
Programmer/Analyst
Information Services
Our Lady of Bellefonte Hospital
P.O. Box 789
Ashland, Kentucky 41105-0789
-----------------------------------
Phone: (606)833-3773
Fax: (606)833-3342
-----------------------------------
Intranet: http://Olbh01iis/intranet/index.html
Primary e-mail : [mailto:sgates@olbh.com]
Alternate e-mail : [mailto:msgates@pobox.com]
-----------------------------------
Our Lady of Bellefonte : http://www.olbh.com
-----------------------------------
Confidentiality Notice: This e-mail message, =
including any attachments, is
for the sole use of the intended recipient(s) and =
may contain confidential
and privileged information. Any unauthorized =
review, use, disclosure or
distribution is prohibited. If you are not the =
intended recipient, please
contact the sender by reply e-mail, fax or phone and =
destroy all copies of
the original message.
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to =
powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" 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.
This message may contain privileged and/or =
confidential information. If you have received this e-mail in =
error or are not the intended recipient, you may not use, copy, =
disseminate or distribute it; do not open any attachments, delete it =
immediately from your system and notify the sender promptly by e-mail =
that you have done so. Thank you.
------_=_NextPart_001_01C16853.2D5D0650--