실행중인 BATCH JOB 조회

실행중인 BATCH JOB 조회하는 로직 

 

  SELECT A~JOBNAME, B~VARIANT				
    FROM TBTCO AS A INNER JOIN TBTCP AS B				
                            ON A~JOBNAME  EQ B~JOBNAME				
                           AND A~JOBCOUNT EQ B~JOBCOUNT				
   WHERE B~PROGNAME EQ @SY-REPID				
     AND A~STATUS   EQ 'R'				
    INTO TABLE @DATA(LT_TBTCP).				
				
  LOOP AT LT_TBTCP INTO DATA(LS_TBTCP).				
				
    CLEAR : LT_VALUTAB, LT_VALUTAB[].				
				
    CALL FUNCTION 'RS_VARIANT_CONTENTS'				
      EXPORTING				
        REPORT  = SY-REPID				
        VARIANT = CONV RALDB_VARI( LS_TBTCP-VARIANT )				
      TABLES				
        VALUTAB = LT_VALUTAB.				
				
    DELETE LT_VALUTAB WHERE SELNAME NE 'P_BUKRS'.				
				
    IF LINE_EXISTS( LT_VALUTAB[ LOW = P_BUKRS ] ).				
      MESSAGE S000 WITH TEXT-E01 DISPLAY LIKE 'E'.				
      LEAVE LIST-PROCESSING.				
    ENDIF.				
				
  ENDLOOP.