Editing a sequential dataset

the_gautam · Posted: Thu Jan 24, 2008 10:42 pm

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.

superk · Posted: Thu Jan 24, 2008 11:23 pm

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.

murmohk1 · Posted: Fri Jan 25, 2008 7:52 am

gautam,

If your requirement is to shift the field positions (as shown), use sorts (both df/sync)