ProcessAutomation1.ecl 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. //
  2. // Example code - use without restriction.
  3. //
  4. IMPORT $;
  5. IMPORT Std;
  6. CSVfile1 := '~$.DeclareData::AUTOMATION::People1_CSV';
  7. CSVfile2 := '~$.DeclareData::AUTOMATION::People2_CSV';
  8. XMLfile1 := '~$.DeclareData::AUTOMATION::People1_XML';
  9. XMLfile2 := '~$.DeclareData::AUTOMATION::People2_XML';
  10. O1 := OUTPUT($.DeclareData.ds1,
  11. {PersonID,FirstName,LastName,MiddleInitial,Gender,Street,City,State,Zip},
  12. CSVfile1,CSV,OVERWRITE);
  13. O2 := OUTPUT($.DeclareData.ds2,
  14. {PersonID,FirstName,LastName,MiddleInitial,Gender,Street,City,State,Zip},
  15. CSVfile2,CSV,OVERWRITE);
  16. O3 := OUTPUT($.DeclareData.ds1,
  17. {PersonID,FirstName,LastName,MiddleInitial,Gender,Street,City,State,Zip},
  18. XMLfile1,XML,OVERWRITE);
  19. O4 := OUTPUT($.DeclareData.ds2,
  20. {PersonID,FirstName,LastName,MiddleInitial,Gender,Street,City,State,Zip},
  21. XMLfile2,XML,OVERWRITE);
  22. CSVds1 := DATASET(CSVfile1,$.DeclareData.Layout_Person,CSV);
  23. CSVds2 := DATASET(CSVfile2,$.DeclareData.Layout_Person,CSV);
  24. XMLds1 := DATASET(XMLfile1,$.DeclareData.Layout_Person,XML('Dataset/Row'));
  25. XMLds2 := DATASET(XMLfile2,$.DeclareData.Layout_Person,XML('Dataset/Row'));
  26. P1 := PARALLEL(O1,O2,O3,O4);
  27. P2 := PARALLEL(Std.File.Despray($.DeclareData.SubFile1,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People1.d00',,,,TRUE),
  28. Std.File.Despray($.DeclareData.SubFile2,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People2.d00',,,,TRUE),
  29. Std.File.Despray(CSVfile1,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People1.csv',,,,TRUE),
  30. Std.File.Despray(CSVfile2,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People2.csv',,,,TRUE),
  31. Std.File.Despray(XMLfile1,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People1.xml',,,,TRUE),
  32. Std.File.Despray(XMLfile2,$.DeclareData.LZ_IP,$.DeclareData.LZ_Dir + 'People2.xml',,,,TRUE));
  33. SEQUENTIAL(P1,P2)