HP3000-L Archives

March 2001, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Reply To:
Date:
Tue, 13 Mar 2001 15:28:09 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (103 lines)
Thanks Fergus and Dave for your kind replies..

The below JCL :

!BUILD TESTU01;REC=-20,,F,ASCII;DISC=10
!ECHO !EFFDATE > TESTU01
!FILE STDIN=TESTU01,OLD
!QUIZ AUTO="TEST158.PROGXL.!HPACCOUNT"
!RESET STDIN
!

with QUIZ code reading the new code as :

;comment DEFINE END-DATE DATE  &
;comment   = PARM PROMPT "End date:       [MMDDYYYY] " &
;comment     ON ERRORS TERMINATE

DEFINE END-DATE DATE = PARM

worked perfectly fine.. This one works good.. !! I have RESET the file
equations to make sure everything is fine after the Program run..

Thanks once again.
Best Regards
Raghu.

-----Original Message-----
From: [log in to unmask] [mailto:[log in to unmask]]
Sent: Tuesday, March 13, 2001 6:04 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Reading variable through STDIN file in QUIZ
report program


I think this is what you want to do (?)

Write a variable to a temp file...

DEV_LNP1:print <$stdin >fcftemp
20010313
:EOD


DEV_LNP1:FILE STDIN=FCFTEMP         <-- What you need to pick up the file as
input
DEV_LNP1:QUIZ AUTO=FCFQZPRG         run quiz & exec a program

Q U I Z   (7.29.C8)      Level 999
Copyright 1997 COGNOS INCORPORATED

> SET PAG LEN 0
> SET NOSTAT
> DEF FDATE DATE = PARM
> DEF FD2   DATE FORM DDMMMYYYY SEP "." = FDATE
> DEF FD3   DATE FORM YYMMDD    SEP "-" = FDATE
> REP ALL
> GO

FDATE: 20010313


13/MAR/2001                           PHD                              PAGE
1

     FDATE         FD2         FD3

  13/MAR/2001  13.MAR.2001  01-03-13

> EXIT

END OF PROGRAM

DEV_LNP1:RESET STDIN           <--- VERY IMPORTANT, to 'switch off' input
from
the file afterwards!

I've been caught out numerous times by forgetting to 'deactivate' the input
redirection. Followed by much head scratching when Powerhouse starts
'misbehaving' :0)

HTH.

Regards,
Fergus Frew
Contract HP3000 Analyst/Programmer

You wrote:

>Is it possible for reading a inline variable being supplied by the JCL to
be
>read in QUIZ program through a STDIN variable ?

>I mean if I have my existing code looking something like this :

>!QUIZ AUTO="TEST158.PROGXL.!HPACCOUNT"
>*effdate*

>If I ECHO the variable *effdate* into a file, how can I read this file as a
>STDIN file while running the QUIZ program ?
>Thanks in advance for all your kind replies..
>Best Regards
>Raghu.

ATOM RSS1 RSS2