Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
reading input file into 2 diff records of same format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
shakthyp

New User


Joined: 10 Sep 2008
Posts: 6
Location: Chennai,India

PostPosted: Thu Sep 18, 2008 4:38 pm    Post subject: reading input file into 2 diff records of same format
Reply with quote

how do i read input file record into 2 different records of the same format.

for eg if i need to read the file INP-FILE into WS-REC1 and WS-REC 2
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Thu Sep 18, 2008 4:49 pm    Post subject:
Reply with quote

READ INTO
and
MOVE
Back to top
View user's profile Send private message
shakthyp

New User


Joined: 10 Sep 2008
Posts: 6
Location: Chennai,India

PostPosted: Thu Sep 18, 2008 4:53 pm    Post subject:
Reply with quote

That is not working since both the records have many redefines clause. I tried moving it this way

MOVE CORRESPONDING WS-REC1 to WS-REC2

But this way also it is not working.... icon_redface.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8201
Location: Dubuque, Iowa, USA

PostPosted: Thu Sep 18, 2008 4:57 pm    Post subject:
Reply with quote

MOVE CORRESPONDING only moves fields with the same name and structure; unless there's a lot of name duplication I can see why it wouldn't work.

Why don't you just READ and put both definitions in the FD? I don't normally recommend working in the buffer but there are times when it can be handy.
Back to top
View user's profile Send private message
shakthyp

New User


Joined: 10 Sep 2008
Posts: 6
Location: Chennai,India

PostPosted: Thu Sep 18, 2008 5:02 pm    Post subject:
Reply with quote

Could you please be more clear on using the FD? Im sorry i have not used it earlier.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2287
Location: @my desk

PostPosted: Thu Sep 18, 2008 5:18 pm    Post subject:
Reply with quote

Hello,

You can specify multiple record layouts for a file in FD one after the other. Each layout will be an implicit redefinition of the original layout.

Arun
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Sep 19, 2008 2:19 pm    Post subject:
Reply with quote

shakthyp wrote:
That is not working ...
How is "that" not working needs more explanation, also I didn't understand this
Quote:
2 different records of the same format.
from your very first post..

From other suggestions it seems that to have multiple (two for this thread)"01" level records can be your choice but if so why would you move values from WS-REC1 to WS-REC2, they are two different "layout" for the same record..
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Inefficient BUILD - VB records paddin... Daniel Prosser SYNCSORT 9 Thu Dec 14, 2017 3:52 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us