Re: Search Pages

Posted by PackardV8 On 2010/11/1 18:53:28

Suppose one wants to find a part number from one parts catalouge and cross it into a different parts cataouge.

e.g. Is a part number in the 55-56 parts catlouge ALSO in say a 1947 parts manual???

Here's the code writeen in psuedo-cobol. Anyone can translate it to ColdFusion or any other language they want to:


01 Parts-cataloge1.
02 Part-#-1 pic x(10).
01 Parts-cataloug2.
02 part-#-2 pic x(10).


PRocedure Division.

1000-continue.
If Part-#1 = Part-#2
Display Part-#1, Part-#2
else
If Part-#1 < Part-#2
Read Parts-catalouge1
else
Read Parts-catlouge2
END_IF.
Go to 1000-continue.

End procedure Division.

NOTE that the logic above assumes that the files, Parts-catalouge1 and parts-cataloug2, are sorted on part number with option DEDUP.