-- procedure
-- end of transfer
-- CL
-- copy
-- IFS
How to write and invoke a CL procedure in order to copy received file onto IFS environment at the end of the transfer

Here is an example to adapt to your environment:

CFTRECV¿
                 FNAME=BIBALB8/R_?IDT ,
                 EXEC=bibalb8/sources(FINRVIFS)

CL FINRVIFS :
//BCHJOB   JOB(CFTFINRV)  JOBD(CFTPROD1/CFTJOBD1) JOBQ(*JOBD)
   /* -------------------------------------------*/
   /* COPY RECEIVED FILE TO IFS  */
   /* -------------------------------------------*/
CPYTOSTMF  +
FROMMBR('/QSYS.LIB/BIBALB8.LIB/"R_?IDT".FILE/"R_?IDT".MBR') +
  TOSTMF('/HOME/MYDIRECTORY/"R_?IDT"') STMFOPT(*REPLACE)
//