How To Check Uniqueness ......

[sudarshan_ramal]

Hi,

I am stuck with validating few fields for uniqueness.
There is main screen which has a subfile format and a control format.The subfile fields are populated to an array.There is also another window which is also a subfile and populated to a different array.There are same two fields field1 and field2 in all these formats.
Now i have to validate such that each value entered is unique for field2.
I dont have idea of comparing these two arrays and the control format

sub file format and window format looks like this:
Field1...........field2
AAAA ...........123456
bbbb.............123457
...
...
(sflsiz = 99)

control format
Field1...........field2
cccc....................124589

anyone knows how to do this.I am coding in COBOL.


Thanks
Sudarshan

[kitvb1]

Re: How To Check Uniqueness ......

You could do a lookup from array1fld2(x) to array2fld2(y) and cycle thru.
You could also scan array2fld2 (if alpha) and you redefine the array as a DS.

[Mercury]

Re: How To Check Uniqueness ......

Kit,
This is the COBOL forum.

Sudarshan,
Read the subfile and move fld2 to an occursed array, then search the array to verify if "subfile" fld2 is already loaded in that table.

[kitvb1]

Re: How To Check Uniqueness ......

uffff... ok, I'll go sit in the corner with my dunce cap on

but the principle remains the same, just the opcodes change a little. heck, It's now 11 years since I even touched COBOL.

[gcraill]

Re: How To Check Uniqueness ......

Kit,
This is the COBOL forum.

Sudarshan,
Read the subfile and move fld2 to an occursed table, then search the table to verify if "subfile" fld2 is already loaded in that table.

I always thought Cobol was an "occursed" language, hell I cursed it enough at uni !!!

[kitvb1]

Re: How To Check Uniqueness ......

Actually, I loved COBOL, Just didn't like the long field names, and the having to define WS section etc. But the language itself, is great. I still did it on an ICL ME29 which is/was a horrible word (1 word = 4 bytes) machine. The ME29 was ICL's answer to S/38

[Mercury]

Re: How To Check Uniqueness ......

Very funny Greg ! How should I call this array ?