MVSFORUMS.com

[relaxing]

Gurus,

I need to shift the data to middle of record if it starts with @.
Input record lenght = 102, Output should be the same 102.

Input:

[semigeezer]

Since this sounds like a report, the easiest way would be with a Rexx exec.

[kolusu]

relaxing,

when you say middle, do you want to adjust it based on the length of the field? ie.

the 2nd record which starts with @xgk is 4 bytes and if the field you are trying to center it is 20 bytes then @xgk would begin at pos 9 of 20 byte field.

But if you have 6 byte field then how do you want to center it ? i.e @12345

Let us know the conditions and may be we can suggest something

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[relaxing]

Kolusu, the bytes should be centred in the record. The output should be like:

Output:
abcdefghijklmnopqrst
blanks @12345 blanks
abcdefghijklmnopqrst

But as semigeezer said if there is no direct function then I can go for a cobol/rexx program.