IBM Mainframe Forum

Hi All,

I would like to convert the 4 digit Year to 2 digit ID as per the below mentioned rules



i.e., when year of construction comes as 2012, the 2 digit ID card should be A2. When 4 digit year comes as 2042, the 2 digit ID card should be D2.
I came with EVALUATE logic but it is coming too large. Can anyone please throw some COBOL logic to convert this 4 digit year to 2 digit ID card.
Or declaring all the values in internal table in COBOL module is the only solution.

Please help.

Thanks
Vinu

You should not be using 2-digit years, encoded or not, under any circumstances!

Or is your the outsourcing company you're working for preparing for another bonanza, when the above scheme fails?

Thanks Prino for the reply. The 2 digit ID is not the year, instead it is another ID number that is further used in our downstream process.

Rgds
Vinu

In my opinion, Prino is correct. Compression of a year, to 2 characters is going to come back and bite your a** sooner or later. If this is a directive from a customer, this is a case where you should go back to your customer and start muttering Y2K again and again.

I'm seeing 2 digit years more and more. And if you think Y2K was bad, Y21K is going to be much worse! 2000, at least, was a leap year. 2100 is not.

Use year-subscript as a subscript to a table of letters, A-Z.



Will work for 269 years from 2010. Ensure not used for years less than 2010.

Bill I will come back in 268 years and ask you.

vinu78 wrote:Thanks Prino for the reply. The 2 digit ID is not the year, instead it is another ID number that is further used in our downstream process.

If it's just an ID, why the flipping 'ell does it come from the year? You're talking "sranje"!

Thanks for the info. I may have to go back to the customer and will convey this issue.
Once again thanks.

Rgds
Vinu