Re: Speaking of file transfers...I quit using ACS file transfer a long, long time ago

[Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>]

Nice!   That will also work on “PTF challenged” systems. 

Jim Oberholtzer
Agile Technology Architects



> On Aug 11, 2022, at 11:02 AM, Stephen Landess <steve_landess@xxxxxxxxxxx> wrote:
>
> On the subject of file transfers, this is what I have been doing for a while now.
>
> I use SEU to create SQL scripts in source members (old-fashioned, you know), and then run them with RUNSQLSTM.
>
>  1.  Use SQL to create a work file in QTEMP.
>  2.  Use CPYTOIMPF to copy the work file to a CSV file in the IFS.
>  3.  use SNDSMTPEMM to send the CSV file to my company email address.
>
> Example script:
> ==============
>
> --
> -- Show accounting dates for CO's in JE batches.
> --
> CREATE OR REPLACE VARIABLE SJL.$$EDTN1 CHAR(20) DEFAULT( '00251249');
> CREATE OR REPLACE VARIABLE SJL.$$EDTN2 CHAR(20) DEFAULT( 'xxxxxxxx');
> CREATE OR REPLACE VARIABLE SJL.$$EDTN3 CHAR(20) DEFAULT( 'xxxxxxxx');
> CREATE OR REPLACE VARIABLE SJL.$$EDTN4 CHAR(20) DEFAULT( 'xxxxxxxx');
> --
>  DROP   TABLE QTEMP/CO_BEGFYPD ;
>
>  CREATE TABLE QTEMP/CO_BEGFYPD
>    (  XXCO   , CCDFYJ , CCPNC , GLDATE )
>     AS (
>     SELECT DISTINCT
>       VNCO
>     , CCDFYJ , CCPNC
>     , JDEDATE( CCDFYJ )
>     FROM F0911Z1
>
>     JOIN F0010
>       ON VNCO  = CCCO
>
>     WHERE VNEDTN in ( SJL.$$EDTN1
>                     , SJL.$$EDTN2
>                     , SJL.$$EDTN3
>                     , SJL.$$EDTN4
>                     )
>     Order by 1
>
>   ) with data ;
> --
> -- Copy to IFS
> --
> CL:  ?CPYTOIMPF ??FROMFILE(QTEMP/CO_BEGFYPD)
>               ??TOSTMF('/HOME/SLANDESS/JE/CO_BEGFYPD.CSV')
>               ??MBROPT(*REPLACE)
>               ??STMFCCSID(1208)
>               ??STMFAUT(*INDIRFILE)
>               ??RCDDLM(*CRLF)
>               ??STRDLM(*NONE)
>               ??RMVBLANK(*TRAILING)
>               ??ADDCOLNAM(*SYS);
>
> --
> -- E-mail the files:
> --
> CL: ?QSYS/SNDSMTPEMM ??RCP((SLANDESS@xxxxxxx))
>                   ??SUBJECT('CO Beginning FY and Period')
>                   ??NOTE('CO_BEGFYPD = CO Beg FY and Current Period ')
>                   ??ATTACH(('/home/SLANDESS/JE/CO_BEGFYPD.CSV'));
>
>
> Regards,
> Steve Landess
> (512) 289-0387
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com