How to schedule a job in another system.

Question

Hi,
Now i have an ABAP program, which run in system ABC, client 001. i want to schedule a job in the program, with the function modules JOB_OPEN, JOB_SUBMIT, and JOB_CLOSE. But this job should run in ABC/002.
How to write code?
Who can help me on the requirement, or provide me another new solution except event trigger?
Thanks & Best Regards,
Johnney

Answer 1

Here is the code. It works fine..
FUNCTION Z_F_TRIGGER_REPORT.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_PROG) TYPE  D010SINF-PROG
*"     VALUE(I_VARIANT) TYPE  VARIS-VARIANT
*"     VALUE(I_MODE) TYPE  CHAR01
*"  EXPORTING
*"     VALUE(E_SUBRC) TYPE  SYST-SUBRC
*"     VALUE(E_MSG) TYPE  CHAR80
Functio ID :  Z_F_TRIGGER_REPORT
TITLE      :  Report Trigger Tool
Create Date:  15.03.2004
Author     :  Denis Vieira
Ownership : For the exclusive use of the Procter & Gamble Company
Description:
The purpose of this function module is to trigger programs
requested remotely.
AUTHORIZATION CHECKS
OBJECT               AUTHORITY FIELDS         ABAP FIELDS
                 |                       |
CHANGE HISTORY                                                      *
  DATE      |  Name  | Description                       | Reference *
29.Jun.2006 | BA4513 | Unicode conversion and upgrade    | SPK290606
            |        | to My SAP ERP                     |
**eject.
Check if selected program exists in the destination file
  SELECT SINGLE  SUBC
         FROM    D010SINF
         INTO    D010SINF-SUBC
         WHERE   PROG    EQ  I_PROG
         AND     R3STATE EQ  C_A.
  IF SY-SUBRC NE C_0.
    MOVE  C_2                                               TO E_SUBRC.
    MOVE 'Report does not exist in destination system'(M01) TO E_MSG.
    EXIT.
  ENDIF.
Check if program request is an executable program
  IF D010SINF-SUBC NE C_1.
    MOVE  C_2                                               TO E_SUBRC.
    MOVE 'Report is not an executable program'(M02)         TO E_MSG.
    EXIT.
  ENDIF.
Check if selected variant exists in the destination file
  SELECT COUNT( * )
       FROM  VARIS
       INTO  W_COUNT
       WHERE REPORT  EQ I_PROG
       AND   VARIANT EQ I_VARIANT
       AND   DYNNR   EQ C_1000.
  IF W_COUNT EQ C_0.
    MOVE  C_2                                                TO E_SUBRC.
    MOVE 'Variant does not exist in destination system'(M03) TO E_MSG.
    EXIT.
  ENDIF.
  IF I_MODE EQ C_B.
    PERFORM 0100_BACKGROUND USING     I_PROG I_VARIANT
                            CHANGING  E_MSG  E_SUBRC.
  ELSE.
    PERFORM 0200_FOREGROUND USING     I_PROG I_VARIANT
                            CHANGING  E_MSG  E_SUBRC.
  ENDIF.
ENDFUNCTION.
*eject
*&      Form  0100_background
Executes Selected program in BackGround Mode VIA JOB
*Block commented from here SPK290606
*FORM 0100_BACKGROUND USING     L_PROG L_VARIANT
                    CHANGING  L_MSG  L_SUBRC.
*Block commented till here SPK290606
*Block added from here SPK290606
FORM 0100_BACKGROUND USING    L_PROG    LIKE D010SINF-PROG
                              L_VARIANT LIKE VARIS-VARIANT
                     CHANGING L_MSG     TYPE  CHAR80
                              L_SUBRC   TYPE  SYST-SUBRC.
*Block added till here SPK290606
  CONCATENATE C_AREA
              C_UND
              L_PROG
              C_UND
              SY-DATUM
              C_UND
              SY-UZEIT
              INTO W_JOBNAME.
Create a JOB and Get the Number for further execution
  CALL FUNCTION 'JOB_OPEN'
       EXPORTING
            JOBNAME  = W_JOBNAME
       IMPORTING
            JOBCOUNT = W_JOBCOUNT.
  IF SY-SUBRC NE C_0.
    MOVE  C_2                       TO L_SUBRC.
    MOVE 'Error opening job'(M07)   TO L_MSG.
    EXIT.
  ENDIF.
Submit program
  SUBMIT (L_PROG)
    USING SELECTION-SET L_VARIANT
    VIA JOB W_JOBNAME NUMBER W_JOBCOUNT
    AND RETURN.
  IF SY-SUBRC NE C_0.
    MOVE  C_2                        TO L_SUBRC.
    MOVE 'Error Submitting Job'(M06) TO L_MSG.
    EXIT.
  ENDIF.
Closes job to start its processing
  CALL FUNCTION 'JOB_CLOSE'
       EXPORTING
            JOBCOUNT  = W_JOBCOUNT
            JOBNAME   = W_JOBNAME
            STRTIMMED = 'X'.
  IF SY-SUBRC NE C_0.
    MOVE  C_2                       TO L_SUBRC.
    MOVE 'Error closing job'(M08)   TO L_MSG.
    EXIT.
  ENDIF.
  MOVE  C_0                                          TO L_SUBRC.
  MOVE 'Program Submitted in Background Mode'(M09)   TO L_MSG.
ENDFORM.
*eject
*&      Form  0200_foreground
Executes Selected program in ForeGround Mode VIA Submit
*Block commented from here SPK290606
*FORM 0200_FOREGROUND USING     L_PROG L_VARIANT
                    CHANGING  L_MSG  L_SUBRC.
*Block commented till here SPK290606
*Block added from here SPK290606
FORM 0200_FOREGROUND USING    L_PROG    LIKE D010SINF-PROG
                              L_VARIANT LIKE VARIS-VARIANT
                     CHANGING L_MSG     TYPE  CHAR80
                              L_SUBRC   TYPE  SYST-SUBRC.
*Block added till here SPK290606
  SUBMIT (L_PROG) USING SELECTION-SET L_VARIANT
         EXPORTING LIST TO MEMORY AND RETURN.
  IF SY-SUBRC EQ C_0.
    MOVE  C_0                                 TO L_SUBRC.
    MOVE 'Report submitted successfully'(M04) TO L_MSG.
  ELSE.
    MOVE  C_2                                 TO L_SUBRC.
    MOVE 'Error submitting report'(M05)       TO L_MSG.
  ENDIF.
ENDFORM.