--
--  category:  SYSTOOLS
--  description:  Generate a spreadsheet, from a Db2 file
--  minvrm: v7r4m0
--
-- https://www.ibm.com/docs/en/i/7.5?topic=services-generate-spreadsheet-scalar-function
--
-- create table qtemp.seccfg as
--       (select * from qsys2.security_info)
--       with data;
drop variable oprutllib.MacPac_SO ;
create variable oprutllib.MacPac_SO char(8);
set oprutllib.MacPac_SO = 659239;
drop variable oprutllib.xlsx_no ;
create variable oprutllib.xlsx_no char(64);
set oprutllib.xlsx_no = '/tmp/' || trim(oprutllib.MacPac_SO) || '.xlsx';
-- values oprutllib.xlsx_no ;
-- =========================
CL:DPOBJLIB/FLT855KTST ORDER(oprutllib.MacPac_SO);
CL:DPOBJLIB/FLT855KTST ORDER(659239);-- generate a spreadsheeet
VALUES SYSTOOLS.GENERATE_SPREADSHEET(
  PATH_NAME         => oprutllib.xlsx_no, --'/tmp/FLT855P2',
  LIBRARY_NAME      => 'DPPDATA', 
  FILE_NAME         => 'FLT855P2',     
  SPREADSHEET_TYPE  => 'xlsx',    
  COLUMN_HEADINGS   => 'LABEL'   
);
-- ===============================
-- email the spreadsheet
-- ===============================
VALUES SYSTOOLS.SEND_EMAIL(
  TO_EMAIL   => 'dfreinkel@dormanproducts.com', 
  SUBJECT    => 'FLT855P2 Extract', 
  BODY       => 'Attached is a spreadsheet containing the EDI 855 details.', 
  ATTACHMENT => oprutllib.xlsx_no);
 -- ==============================
CL:DEL '/tmp/FLT855P2.xlsx' ;
CL:DEL '/tmp/poifiles/*.*' ;
CL:RMVDIR '/tmp/acs.jar_cache*.dir' SUBTREE(*ALL);
CL:DEL '/tmp/acs.jar_cache*';