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
 
Editing a sequential dataset

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
the_gautam

Active User


Joined: 05 Jun 2005
Posts: 165
Location: Bangalore

PostPosted: Thu Jan 24, 2008 10:42 pm    Post subject: Editing a sequential dataset
Reply with quote

Hi everyone,
i ve got a problem in my work, can anyone help me out in it?

I ve got a PS dataset with 15 bytes of record length.

01 in-rec.
05 in-name x(10).
05 in-id 9(5).

Now i require it to change as :
01 out-rec.
05 out-id 9(5).
05 out-name x(10).

how can i achieve it using TSO/ISPF? as i am not supposed to use COBOL program over this file.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Thu Jan 24, 2008 11:23 pm    Post subject: Reply to: Editing a sequential dataset
Reply with quote

I'm sure everyone will have their own unique solution.

I did mine by:

1. Labeling the first record as .A, the last as .B.
2. Using CUT .A .B to create a temporary copy of the data.
3. Shifting all of the lines left 10 characters. This moves the numeric values into the first 5 positions.
4. Using PASTE AFTER .B to paste the copy after the last record.
5. Labeling the first pasted record as .C, the last as .D.
6. Shifting the pasted records right 5 characters.
7. Overlaying the pasted records .C to .D over .A to .B.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Jan 25, 2008 7:52 am    Post subject:
Reply with quote

gautam,

If your requirement is to shift the field positions (as shown), use sorts (both df/sync)
Code:
INREC FIELDS=.....
OR
Code:
OUTREC FIELDS=.....
.

Search forum for examples.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Mainframe dataset split purushottam DFSORT/ICETOOL 13 Tue Aug 29, 2017 12:28 pm

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