topic Re: Pass parameter to program (with LDB) submitted in background in Application Development and Automation Discussions

Pass parameter to program (with LDB) submitted in background

former_member189059 — Fri, 15 May 2009 10:15:09 GMT

Hello,

For a particular requirement, I need to submit the program RPLPAY00 in background.

I need to extract data for the 'Current Year' which appears as a radiobutton on screen

However, it comes from the logical database PNP

I have written code as follows

*&---------------------------------------------------------------------*
*& Report  ZRUN_RPLPAY00
*&
*&---------------------------------------------------------------------*
*& Author  : Kris Donald
*& Date    : 15-05-2009
*& Purpose :
*&---------------------------------------------------------------------*

REPORT  ZRUN_RPLPAY00.

DATA: LV_JOB_NAME         LIKE TBTCO-JOBNAME,
LV_JOB_NR           LIKE TBTCO-JOBCOUNT,
LV_JOB_RELEASED     TYPE C,
LV_JOB_START_SOFORT TYPE C,
LV_PRINT_PARAMETERS TYPE PRI_PARAMS.
LV_JOB_NAME = 'RPLPAY00'.

CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      JOBNAME          = LV_JOB_NAME
    IMPORTING
      JOBCOUNT         = LV_JOB_NR
    EXCEPTIONS
      CANT_CREATE_JOB  = 1
      INVALID_JOB_DATA = 2
      JOBNAME_MISSING  = 3
      OTHERS           = 4.
  IF SYST-SUBRC = 0.
*submit job with all the selection screen params...
    SUBMIT (LV_JOB_NAME)
        WITH PNPTIMR1 = ''
        WITH PNPTIMR3 = 'X'
        with PNPBEGDA = ''
        with PNPBEGPS = ''
        with ALV_LIST = 'X'
        USER sy-uname
       VIA JOB LV_JOB_NAME NUMBER LV_JOB_NR AND RETURN.
    IF SY-SUBRC = 0.
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          JOBCOUNT             = LV_JOB_NR
          JOBNAME              = LV_JOB_NAME
          STRTIMMED            = 'X'
        IMPORTING
          JOB_WAS_RELEASED     = LV_JOB_RELEASED
        EXCEPTIONS
          CANT_START_IMMEDIATE = 1
          INVALID_STARTDATE    = 2
          JOBNAME_MISSING      = 3
          JOB_CLOSE_FAILED     = 4
          JOB_NOSTEPS          = 5
          JOB_NOTEX            = 6
          LOCK_FAILED          = 7
          OTHERS               = 8.
      IF SYST-SUBRC <> 0.
        MESSAGE I162(00) WITH
        'An error occured while closing the background job.'.
        STOP.
      ENDIF.
    ENDIF.
  ENDIF.
  SKIP 1.

Re: Pass parameter to program (with LDB) submitted in background

former_member189059 — Fri, 15 May 2009 10:16:03 GMT

However when I check the output log it shows the following message

'Pay scale grpg for allowances for 00040011 is not defined on 20040728'

If 'Current year' was selected properly, it would have read as

'Pay scale grpg for allowances for 00040011 is not defined on 20090101'

Does anyone know how I can pass the parameters properly to the program in background ?

Re: Pass parameter to program (with LDB) submitted in background

GauthamV — Fri, 15 May 2009 10:33:21 GMT

I guess it is not the problem with program but related to HR configuration.

Re: Pass parameter to program (with LDB) submitted in background

former_member189059 — Fri, 15 May 2009 10:37:31 GMT

Hello Gautham,

I tried scheduling the program RPLPAY00 in background from SE38 directly (Program -> Execute in Background) and that works fine. So I don't think it could be config related

Re: Pass parameter to program (with LDB) submitted in background

KK07 — Fri, 15 May 2009 17:47:05 GMT

Hi Kris,

You can use the submit with variant(by creating a variant for the program).

I think it helps you..