The way that I have done this is through the use of message files. In the
following example, I append the results of a listfile to a message file.
Then, based on the eof of the message file, I read each record and display
the record. Here is the example.
PURGE LMSG,TEMP
BUILD LMSG;REC=-80,,F,ASCII;DISC=100000;MSG;TEMP
FILE TMSG=LMSG,OLDTEMP;ACC=APPEND
LISTFile !fset;format=6 >> *TMSG
WHILE FINFO("LMSG","EOF") <> 0 DO
INPUT OLD_FILE < LMSG
Echo !old_file
endwhile
Ron Horner
Legacy Systems Supervisor
[log in to unmask]
Lady Remington Jewelry
(630) 860-3323
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Williams, John
Sent: Tuesday, July 06, 2004 11:16 AM
To: [log in to unmask]
Subject: [HP3000-L] Reading file data
I've created two files that contain data needed to create third file. One
file was created and contains the hpspoolid number.
The other file was created and contains a name I want to give a pdf file.
What I'm trying to do is read the contents of these
files and assign them to variables then pass these names to convert the
spool file to a pdffile.
Thanks
John
############################################################################
#########
The information contained in this communication is intended solely for the
use of the individual or entity to whom it is addressed and others
authorized to receive it. If you have received this communication in error,
you must notify us immediately by responding to this e-mail and then
deleting it from your system, and further you are hereby notified that any
disclosure, copying, distribution or taking any action in reliance on the
contents of this information without written permission from MAC Equipment,
Inc. is strictly prohibited and may be unlawful. Any views, opinions, or
authorizations contained in this email are solely those of the author and do
not necessarily represent those of MAC Equipment, Inc.
############################################################################
#########
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
