IBM Mainframe Forum

I have a file which has two type of records. I need to remove the 1st and the 8th character of the detail record of the first record type and write the rest of the records into the output file along with the modified records into the output file. The order in which the records apper should not change as it is very important. The file is of LRECL 35 and FB. The sample records are as follows.

0000000100907022011000 0 ----------> Header record of the first type of record (No change required)
01621041500295000020000 ----------> Detail record which requires the truncation (Change required)
03298701500200000030003 ----------> Detail record which requires the truncation (Change required)
999999900000000000000 ----------> Trailer record of the first type of record (No change required)
00 0100907022011000000000000000000 ----------> Header record of the second type of record (No change required)
T01 5000002000000000005900000000000 ----------> Detail record of the second type of record (No change required)
T04 5000008000003000135000000006000 ----------> Detail record of the second type of record (No change required)
Z99Z9000000000000000000000000000000 ---------->Trailer record of the second type of record (No change required)

Thanks you very much for your help.

I need to remove the 1st and the 8th character of the detail record of the first record type

You haven't explained what you want to do clearly enough for anyone to help. You need to give the details of your "record types".

How do we identify the records that need to be truncated? Are they the records that have '01' or '03' in positions 1-2, or is there some other way to identify them (how - be specific)?

Thanks for looking into it. The problem here is that there is no record type to identify the records. The records highlighted in RED are the ones to be truncated (1st and 8th character of each record) and the rest to be untouched and also the order should be preserved..

The problem here is that there is no record type to identify the records. The records highlighted in RED are the ones to be truncated (1st and 8th character of each record)

How to identify the RED highlighted records,,any specific key ?,and do clarify your file has only these 2 records in 2nd and 3rd row consecutively.

Give some necessive information

Thanks;
Saravan

Hello,

Sorry, but unless i missed a memo neither the sort nor any other utility has the ability pick records by color. . .

YOU need to post the rules and if there are no rules, this will be most difficult (if even possible) to write code to implement.

How did you know which 2 records to highlight?

Sorry, but unless i missed a memo neither the sort nor any other utility has the ability pick records by color. . .

ROTFL. Really good one, Dick. Maybe we should add INCLUDE by color, sound, smell, etc to DFSORT.

maheswaran37,

DFSORT is not psychic. If you can't explain the rules for selecting those records, then we can't tell DFSORT how to do it.

I am really sorry for creating the confusion. I didnt mean to say that the records will be of red colour in my file. I highlighted the records with red colour to let you guys know that these are the records which require truncation. Let me make this clear

1)There are two type of records in the file. They are department level and item level. First comes the header, detail and the trailer of item level file followed by header, detail and trailer of department level file.
2) The item file header record has '0000000' as the first 7 characters
3) Next comes the detail record of the item level file (n number of records)
4) Only the 1st and the 8th digit of the item level detail record requires truncation.
5) The 9th character of the item level detail record has a constant value '5' (record type).
6) The item file trailer record has '9999999' as the first 7 characters
7) Next comes the department file header record with '_00_' as the first 4 characters ( _ specify spaces)
8) Next comes the department file detail records starting with 'T'
9) Finally, there will be department file trailer record having 'Z99Z9' as the first 5 characters

Note:
1) Only the item level detail records require truncation
2) The order in which the file appears should be preserved

Hope this helps.

Here's a DFSORT job that will do what I think you want. I assumed that other records besides the detail records might have '5' in position 9, and what you really want is to truncate the records between but not including the 0s and 9s records.



For your input record example, the output records would be:



If that's NOT what you want, then explain how it differs from what you do want.

Its working.Thank you very much. I designed the below given sort card but not satisfied as you rightly pointed out that the header and trailer might have '5' in the 9th position.

Hello,

I am really sorry for creating the confusion. I didnt mean to say that the records will be of red colour in my file.

Not to worry

You didn't cause confusion. That was just a couple of us "old guys" having fun - i knew Frank would be one of the first to see the reply. It was not meant to be at your expense

Once upon a time, real cards were used for data and these cards were often of different colors or of different colored stripes. A different color for different types of data. When a big monthly run was complete, the cards were broken into their different types for storing until next month or the archives. When this large "rainbow" was separated, they were in fact sorted so that different colors (types) were separated and it looked like the machine was "color sorting" the cards.

Like i said - old guys. . .