Calling Program w/LDP from one wo/LDB

[Former Member]

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.

[suresh_datti]

You can try the following statement in your calling program.

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

Regards,

Suresh Datti

[Former Member]

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.