BeispieldokumentationProgrammbeispiel: Job-Listen generieren

 

Syntax Syntax

  1. * 
    * Data declarations: BP_JOB_SELECT 
    * 
    DATA JSELECT LIKE BTCSELECT. 
    
    DATA SEL_JOBLIST LIKE TBTCJOB OCCURS 100. 
    
    
    * 
    * Data declarations: BP_JOBLIST_PROCESSOR 
    * 
    DATA SELECTED_JOB LIKE TBTCJOB. 
    * 
    * Sample selection criteria 
    * 
    JSELECT-JOBNAME = 'Generic Name*'. 
    JSELECT-USERNAME = SY-UNAME. 
    
    CALL FUNCTION 'BP_JOB_SELECT' 
    EXPORTING 
    JOBSELECT_DIALOG = BTC_NO 
    JOBSEL_PARAM_IN = JSELECT 
    IMPORTING 
    JOBSEL_PARAM_OUT = JSELECT 
    TABLES
    JOBSELECT_JOBLIST = SEL_JOBLIST 
    EXCEPTIONS NO_JOBS_FOUND = 1 
    SELECTION_CANCELED = 2 
    OTHERS = 99. 
    
    IF SY-SUBRC > 0. 
    ENDIF. 
    
    CALL FUNCTION 'BP_JOBLIST_PROCESSOR' 
    EXPORTING 
    JOBLIST_OPCODE = BTC_JOBLIST_EDIT " Set mode. 
    " Other constants: 
    " BTC_JOBLIST_SHOW 
    " BTC_JOBLIST_SELECT 
    JOBLIST_REFR_PARAM = JSELECT 
    TABLES 
    JOBLIST = SEL_JOBLIST 
    IMPORTING " Useful only for 
    JOBLIST_SEL_JOB = SELECTED_JOB " select mode.
    EXCEPTIONS 
    INVALID_OPCODE = 1 
    JOBLIST_IS_EMPTY = 2 
    OTHERS = 99. 
    
    IF SY-SUBRC > 0. 
    <Error processing>
    ENDIF.
Ende des Codes