topic Re: Calling Program w/LDP from one wo/LDB in Application Development and Automation Discussions

Calling Program w/LDP from one wo/LDB

Former Member — Tue, 25 Apr 2006 20:20:45 GMT

I have a program that needs to call a program that uses the Logical Data Base PNP from one that doesn't use it and can't figure out how to populate the PNP fields in the called program. I need to set the radio button "AS OF TODAY" to on and pass it a single Personnel Number as well.

Re: Calling Program w/LDP from one wo/LDB

suresh_datti — Tue, 25 Apr 2006 20:27:40 GMT

You can try the following statement in your calling program.


SUBMIT <report> with PNPTIMR4 eq 'X'
                     pnppernr = <pernr>

Regards,

Suresh Datti

Re: Calling Program w/LDP from one wo/LDB

Former Member — Tue, 25 Apr 2006 20:44:12 GMT

Suresh, that was exactly what I thought but it doesn't work. I checked in the called program and PN-BEGDA = 18000101 and PN-ENDDA = 99991231 and they both should be equal to Current Date. The field for TODAY is PNPTIMR1.

Here's the code.

ranges: ra_pernr for p0001-pernr.

************************************************************************

INITIALIZATION

************************************************************************

INITIALIZATION.

PERNR

clear ra_pernr.

refresh ra_pernr.

ra_pernr-sign = 'I'.

ra_pernr-option = 'EQ'.

************************************************************************

START OF SELECTION

************************************************************************

START-OF-SELECTION.

ra_pernr-low = IPERNR.

append ra_pernr.

clear ra_pernr-low.

SUBMIT ZHR_COLA_UPDATE

WITH PNPTIMR1 = 'X'

WITH PNPPERNR IN ra_pernr

WITH ZCOLA_DT EQ ICOLA_DT

WITH P_TEST = I_TEST.