IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to read first lines from the input file in Eazytrieve


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
gayathrinag

New User


Joined: 16 Oct 2008
Posts: 37
Location: chennai

PostPosted: Tue May 04, 2010 9:22 pm
Reply with quote

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
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Tue May 04, 2010 9:33 pm
Reply with quote

What is the organization and record format of this file?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Wed May 05, 2010 11:37 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
Search our Forums:

Back to Top