IBM Mainframe Forum

Hi, we get a flat file (LRECL=80,RECFM=FB) and need to reformat it to populate a key field on each record.

Input:


Rules:
The header record should copy content from 10th column (15 bytes) and put it before value appearing in 1st column and newly formed value should begin at 13th column and 37th column.
The detail record should add a key field from -
'D' or 'E' appearing at 21st column should be converted to '13' or '14' respectively and copied to 1st column
A Value appearing at 37th column should be copied to 3rd column and 11th column
6 characters starting at 6th column should be copied to 5th column
The 10 characters (STATUSFL13 or STATUSFL14 from respective headers) appearing in header record should be copied to 13th column
The 6 digit value appearing at 23rd column should be copied to 23rd column from respective header record


Output:


Please help me to achieve this.

Thanks.

Hello,

You need to post what you have done so far and where there is a problem.

Our intent is to help you learn, not do the work for you.

There are similar topics you can find and use here in the forum to get almost all of this working (maybe even all of it).

How do you identify the "header" record. Look at WHEN=GROUP with BEGIN and PUSH for the information you want to copy to other records.

Other than that, you have some reformatting (header and detail records) with BUILD.

If you are new to this, start with one thing, like reformatting the header, and go on from there.

I tried it like this

1). Use WHEN=GROUP on unique identifier and push header data to 90th column and populate it on to detail records
2). Use unique identifier from header and populate header data as required
3). Use WHEN=NONE and reformat detail records as required

But, I am unable to convert 'D' to 13 or 'E' to 14.

Thanks.

This is what I could all write to get the results but incomplete
I am not able to get the 'D' or 'E' from 21st position converted to '13' and '14' respectively.



Any help is greatly appreciated. Thanks.

Hello,

It will probably help if you post the informational messages generated by the run.

Was the return code = zero?

Posting a bit of the input data and the generated output data will also help. Do use the Code tag to preserve alignment.

Job ran with ZERO return code.......posted both input and output in the first post itself

ranga_subham wrote:Job ran with ZERO return code.......posted both input and output in the first post itself

dick scherrer wrote:It will probably help if you post the informational messages generated by the run.

Hello,

posted both input and output in the first post itself

Yup, but i was not sure if this was the output you got from the run or what you wanted. We probably need to see both (preferably all 3 - input, actual op, wanted op) in the same post to make it easier to work with.

And, yes - we still need the informational messages generated.

Consult you documentation and see if you have CHANGE available.

If not, you'll have IFTHEN=(WHEN= for value),OVERLAY=(1:nn).