IBM Mainframe Forum

Hi All,

Plese find the attached documents which explans the the issue which i have.

please suugest which utility will be feasible to getting the solution for the issue (also a sample code if possibe so that i can alter it to the lay out)

Thanks and regards,
Naveen N

Please do not post attachments as not everybody is allowed to open them.

Hi All,

I have pasted the contents in the attachment:

My input file lay out has got the below lay out. For every account there will 12 occurrences and the columns details for the 12 occurrences will be different for same account.
Record type Account XYZ PQR NMP
01 111
02 111 34 526 aswas
02 111 -34 751 rdfs
02 111 23 789 aswas
02 111 33 756 asdc
02 111 56 325 edft
02 111 34 -234 asdf
02 111 12 759 ascf
02 111 24 -852 asdf
02 111 67 -159 edfg
02 111 15 752 wsdf
02 111 85 321 wedf
02 111 78 321 asdf

And the Out put lay out is mentioned below:
Account 111
XYZ1 34
PQR1 526
NMP1 aswas
XYZ2 -34
PQR2 751
NMP2 rdfs
XYZ3 23
PQR3 789
NMP3 aswas
XYZ4 33
PQR4 756
NMP4 asdc
XYZ5 56
PQR5 325
NMP5 edft
XYZ6 34
PQR6 -234
NMP6 asdf
XYZ7 12
PQR7 759
NMP7 ascf
XYZ8 24
PQR8 -852
NMP8 asdf
XYZ9 67
PQR9 -159
NMP9 edfg
XYZ10 15
PQR10 752
NMP10 wsdf
XYZ11 85
PQR11 321
NMP11 wedf
XYZ12 78
PQR312 321
NMP12 asdf

Please Note: the input file can have maximum 12 occurrences (in 02 record types). And if for example only 6 occurrences is filled the rest 6 occurrences should be updated by 0 or spaces.

Thanks and regards,
Naveen N

Is XYZ PQR NMP actually in the first record or are they hardcoded values or what? Where do those value come from?

Please explain the "rules" for getting from input to output.

Please use ubb code tags around your input and output to show what they actually look like. Please show records for more than one account.

Give the RECFM and LRECL of the input file. Give the starting position, length and format of each relevant field.

Personally I don't know of a utility that can do this, but what's wrong with writing some good old COBOL to do this. It would seem straight forward enough to do this in COBOL. Any reasons why COBOL isn't an option? You probably could have written a program to do this by now.

My input data set will look like: For every account say 111 it will have one 01 type record and max twelve 02 type record.
account number start: 3 length : 20, field XYZ start: 195 length: 4, field PQR start :199, length: 4, field NMP start :204 and length is 4. record lenght is 32756. record format is VB

The input is from a data set:
Record type Account XYZ PQR NMP
01 111
02 111 154 458 452
02 111 852 458 454
02 111 745 452 451
02 111 753 159 785
02 111 751 758 754
02 111 785 752 756
02 111 154 758 785
02 111 444 755 752
02 111 752 741 752
02 111 852 523 522
02 111 452 252 852
02 111 254 523 523

And in my output file the lay out is it have got fileds like xy1,xyz2...xyz12 and Prq1,pqr2...Pqr12 and NMP1, NMP2..etc.
In my out put account number start :3 length is 20 XYZ1 start at 723 length is 4, PRQ1 starts at 727 length 4, NMP start at 731 and length 4, the same aorder comtinues till 12 occurrences.

Record lenght: 866, record format is FB.

Account 111
XYZ1 34
PQR1 526
NMP1 aswas
XYZ2 34
PQR2 751
NMP2 rdfs
XYZ3 23
PQR3 789
NMP3 aswas
XYZ4 33
PQR4 756
NMP4 asdc
XYZ5 56
PQR5 325
NMP5 edft
XYZ6 34
PQR6 234
NMP6 asdf
XYZ7 12
PQR7 759
NMP7 ascf
XYZ8 24
PQR8 852
NMP8 asdf
XYZ9 67
PQR9 159
NMP9 edfg
XYZ10 15
PQR10 752
NMP10 wsdf
XYZ11 85
PQR11 321
NMP11 wedf
XYZ12 78
PQR312 321
NMP12 asdf

Summarise the rules:
My input file has got a lay out every accout of 02 record type has got 12 occurrences and itput occurrencs can ve max 12 and my out put file has got a lay out with XYZ1,XYZ2 etc.

Basically i work in the testing domain and very less experiance on delelopment, will consider the option of writing the cobol code.

Thanks and Regards,
Naveen N