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 12:03:32 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (97 lines)
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.




___________________________________________________________

This message and any attachments (the "message") are intended solely for
the addressees and are confidential.  If you receive this message in error,
please delete it and immediately notify the sender.

Any use not in accord with its purpose, any dissemination or disclosure,
either whole or partial, is prohibited except formal approval.

The internet can not guarantee the integrity of this message.  BNP PARIBAS
(and its subsidiaries) shall (will) not therefore be liable for the message
if modified.
                      ---------------------------------------------

Ce message et toutes les pieces jointes (ci-apres le "message") sont
etablis a l'intention exclusive de ses destinataires et sont confidentiels.
Si vous recevez ce message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur.

Toute utilisation de ce message non conforme a sa destination, toute
diffusion ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse.

L'internet ne permettant pas d'assurer l'integrite de ce message, BNP
PARIBAS (et ses filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
___________________________________________________________

ATOM RSS1 RSS2