IndexSuperFile3.ecl 825 B

1234567891011121314151617181920212223
  1. //
  2. // Example code - use without restriction.
  3. //
  4. IMPORT $;
  5. IMPORT Std;
  6. BldSF := SEQUENTIAL(
  7. Std.File.CreateSuperFile($.DeclareData.SFname),
  8. Std.File.CreateSuperFile($.DeclareData.SKname),
  9. Std.File.StartSuperFileTransaction(),
  10. Std.File.AddSuperFile($.DeclareData.SFname,$.DeclareData.SubFile1),
  11. Std.File.AddSuperFile($.DeclareData.SFname,$.DeclareData.SubFile2),
  12. Std.File.AddSuperFile($.DeclareData.SKname,$.DeclareData.i1name),
  13. Std.File.AddSuperFile($.DeclareData.SKname,$.DeclareData.i2name),
  14. Std.File.FinishSuperFileTransaction()
  15. );
  16. F1 := FETCH($.DeclareData.sf1,$.DeclareData.sk1(personid=$.DeclareData.ds1[1].personid),RIGHT.RecPos);
  17. F2 := FETCH($.DeclareData.sf1,$.DeclareData.sk1(personid=$.DeclareData.ds2[1].personid),RIGHT.RecPos);
  18. Get := PARALLEL(OUTPUT(F1),OUTPUT(F2));
  19. SEQUENTIAL(BldSF,Get);