MVSFORUMS.com

eureka19 · Beginner Joined: 02 Oct 2005 Posts: 20 Topics: 9

Hi All,

We have a requirement, where in, we have to generate a 3 byte unique alphanumeric code using COBOL, based on the last code.
Say last code was 001, the next code should be 002 and so on till 999. Beyond 999, we would like to use combination of alphabets, special characters.

Pointers to any existing logic or any new ideas are welcome.

Thanks,
Eureka

kolusu · Posted: Wed Mar 28, 2007 4:08 am Post subject:

eureka19,

1. define ws -num as 9(03) with an initial value of 001 and move this to x(03) variable
2. ADD 1 to ws-num and move to x(03) till you reach 999.
3 Now manipulate the x(03) value using special characters accordingly

kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu