Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 4648
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 Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts LISTCAT on a dataset with symbolic pa... shreya19 JCL & VSAM 5 Fri Apr 07, 2017 5:43 pm
No new posts Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm
No new posts Want to pull the job log into a Mainf... Jishu Mukherjee Compuware & Other Tools 9 Tue Mar 21, 2017 4:48 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us