View previous topic :: View next topic
|
Author |
Message |
gayathrinag
New User
Joined: 16 Oct 2008 Posts: 37 Location: chennai
|
|
|
|
Hi,
I have the below requirement. I have to read first two lines from the input file.
My Input File structure is given below:
1 st line - JOBNAME1
2nd line - THIS JOBS RUNS EVERY FRIDAY.
The first two lines are different lenght. Please let me know how to read this file in eazytrieve.
Thanks |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
What is the organization and record format of this file? |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Since you didn't supply record length info,
the following code assumes variable length
with a minimum of 8 bytes for the 1st record
and a maximum of 80 bytes for the 2nd record.
Code: |
FILE INFILE
JOBNAME 1 1 A
JOBTEXT 1 1 A
*
WJOBNAME W 8 A
WJOBTEXT W 80 A
*
JOB INPUT(NULL)
GET INFILE
*SAVE JOBNAME
MOVE JOBNAME RECORD-LENGTH TO WJOBNAME 8 FILL ' '
GET INFILE
MOVE JOBTEXT RECORD-LENGTH TO WJOBTEXT 80 FILL ' '
DISPLAY WJOBNAME ' ' WJOBTEXT
STOP
|
|
|
Back to top |
|
|
|