Re: [U2] Left Outer Join Question

I wrote a paragraph called ML to use MERGE.LIST on saved lists - much easier than assembling the lists manually.


PA
* ML type list1 list2 list3
* <<I2,TYPE>>
IF <<TYPE>> = "U" THEN GO THERE
IF <<TYPE>> = "D" THEN GO THERE
IF <<TYPE>> = "I" THEN GO THERE
DISPLAY
DISPLAY Command Format is
DISPLAY ML type list1 list2 list3
DISPLAY
DISPLAY Where type is 'U'nion or 'D'ifference or 'I'ntersection
DISPLAY
DISPLAY and where list1 and list2 exist on &SAVEDLISTS&.
DISPLAY The result will be stored as list3.
DISPLAY
GO FINISH
*
THERE:
IF <<I3,LIST1>> = '' THEN GO FINISH
IF <<I4,LIST2>> = '' THEN GO FINISH
IF <<I5,LIST3>> = '' THEN GO FINISH
GET.LIST <<LIST1>> TO 1
GET.LIST <<LIST2>> TO 2
*
IF <<TYPE>> = "U" THEN GO UNION
IF <<TYPE>> = "D" THEN GO DIFFERENCE
IF <<TYPE>> = "I" THEN GO INTERSECTION
*
UNION:
MERGE.LIST 1 UNION 2 TO 3
SAVE.LIST <<LIST3>> FROM 3
DISPLAY UNION
GO FINISH
*
DIFFERENCE:
MERGE.LIST 1 DIFFERENCE 2 TO 3
SAVE.LIST <<LIST3>> FROM 3
DISPLAY DIFFERENCE
GO FINISH
*
INTERSECTION:
MERGE.LIST 1 INTERSECTION 2 TO 3
SAVE.LIST <<LIST3>> FROM 3
DISPLAY INTERSECTION
GO FINISH
*
FINISH:
CLEARPROMPTS

_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users