Remove an item from a SELECT list?

Hi Matthew,

picking up on Manus suggestion.

i would Externally select FileA, outside of the program but use an "I descriptor" to do the checking on the second File, if the record exists, as this means if FileB has a different Key you can still  check, then save your list, then in your program rather than Execute Select you Execute Get list

Thanks

Andy

1. In your BASIC program, if you want to do what Manu suggests, you can do it with something like this:
   STMTS = 'SELECT FILEA'
   STMTS<-1> = 'SELECT FILEB TO 1'
   EXECUTE STMTS
   Alternatively you could
   STMTS = 'SELECT FILEA'
   STMTS<-1> = 'SELECT FILEB'
   EXECUTE STMTS RTNLIST MYLIST
   LOOP WHILE READNEXT ID FROM MYLIST DO...
2. If you don't want the multiple statements and want to use Andrew's suggestion, the I-Type would be something like:
   TRANS(FILEB,@ID,0,'X') = @ID
   That gives you 0 for not also in FILEB, or 1 for also in FILEB, so if the I-Type in FILEA is called ALSOB, then you could
   SELECT FILEA WITH ALSOB = 0

execute XCmd rtnlist idList capturing output
loop while readnext ORD.ID from idList do
   * Option 1. Just one constant id to avoid
   if ORD.ID # 12192209 then
      * process your records as desired
   end
   * Option 2. Avoiding a changing list of id's
   if ORD.ID matches 12192209:@vm:12192210:@vm:12192211 else
      * process your records as desired
   end
repeat

execute XCmd rtnlist idList capturing output
loop while readnext ORD.ID from idList do
   * Option 1. Just one constant id to avoid
   if ORD.ID # 12192209 then
      * process your records as desired
   end
   * Option 2. Avoiding a changing list of id's
   if ORD.ID matches 12192209:@vm:12192210:@vm:12192211 else
      * process your records as desired
   end
repeat

     EXECUTE Xcmd
     READLIST ORG.LIST FROM 1 ELSE STOP
     NEW.LIST = ORG.LIST
     MAX.FM = DCOUNT(VAR,@FM)
     FOR X = MAX.FM TO 1 STEP -1
        ORD.ID = ORG.LIST<X>
        IF ORD.ID = 121921209 THEN
           DEL NEW.LIST<X>
        END
     NEXT X
​

Posted: 01-12-2023 11:23