iSeries Payroll Positive Pay

We are converting to 9.0 from 8.1 on an iSeries.
I had modified PR197 on Rel 8.1 with one line of code to call a CL program passing E@COMPANY... the CL program then called a RPGLE program that pulled information from DBPRPCH with the current flag DPCHCRRNFL with a status of "Y" (this status, from what I could tell was only avaliable when PR197 was processing before eoj)I then built my transmission to the bank... The placement of the CL call in 8.1 was located about 1860 lines into the original 8.1 PR197 code.
CALLP U@PRT@OPNPGM(R#PR197:
%ADDR(F1@@PRINTFILE): %ADDR(E@CONTROL):
%ADDR(E@REPORTWS): %ADDR(E@WSDATEDSPFM))

CALLP SEDTPRM
------------------------------------------
CALL 'WD341C'
PARM E@COMPANY
------------------------------------------
IF E@ERRORNBR = *ZEROS
AND E@PARAMERR = FALSE
CALLP SPRGCNT
ELSE
EVAL E@RETURNCODE = 2
ENDIF

CALLP U@PRT@CLOSE(*BLANKS: %ADDR(E@CONTROL):
R#PR197)

Can anyone help me figure out if it will still work and where in the "NEW" IFS sources I would make this same simple change. I can't find any code so far that resembles this old PR197 code.

Thanks