:+:+: 사랑愛 - Ever after :+:+:

밋첼™'s Blog is powered by Tattertools

머리는 안쓰면 잊게 된다.


개발에 대해서는 손이 먼저 움직일 정도였으나... 이젠 머리를 짜내고 과거에 했던 데이터를 찾아봐야 기억이 난다.


이러다... 찾아봐도 이해가 안되는 날이 오지는 않을지......... ㅠㅠ










아래와 같이 만들어서 체크를 하고~ 이후 로직을 수행함



*수행중인 Batch Check
DATA LV_VALUE(1)"Batch 작업의 유무
PERFORM CHECK_BATCH CHANGING LV_VALUE.





FORM CHECK_BATCH  CHANGING P_VALUE.

*****  "Batch 수행 중인지 확인
  DATA L_CNT TYPE N LENGTH 10"Batch 작업의 갯수
  DATA L_JOBNAME   TYPE BTCJOB.
  DATA GT_TBTCJOB LIKE TABLE OF TBTCJOB WITH HEADER LINE.

*****  MOVE SY-REPID TO L_JOBNAME.
*****  SELECT COUNT(*) INTO L_CNT
*****    FROM TBTCO
*****   WHERE JOBNAME = L_JOBNAME
*****     AND STATUS  = 'R'.

  " 배치실행 여부를 확인하고 JOB.
  CALL FUNCTION 'BP_FIND_JOBS_WITH_PROGRAM'
    EXPORTING
      ABAP_PROGRAM_NAME             SY-REPID
      STATUS                        'R' "실행중
    TABLES
      JOBLIST                       GT_TBTCJOB
    EXCEPTIONS
      NO_JOBS_FOUND                 1
      PROGRAM_SPECIFICATION_MISSING 2
      INVALID_DIALOG_TYPE           3
      JOB_FIND_CANCELED             4
      OTHERS                        5.

  " 실행(Runniung) 중인 Batch Job 이 존재하는지 확인 !!
  CLEARL_CNT.
  DESCRIBE TABLE GT_TBTCJOB LINES L_CNT.

  
" 조건으로 1 이상이 아닌 1 초과인 이유는 체크하며 이미 하나의 Batch를 확인하기 때문

  IF L_CNT > 1.
    P_VALUE ABAP_FALSE.
  ELSE.
    P_VALUE ABAP_TRUE.
  ENDIF.

ENDFORM.                    " CHECK_BATCH

댓글을 달아 주세요

1 2 3 4 5 ··· 367 
BLOG main image
:+:+: 사랑愛 - Ever after :+:+:
제 사진은 예술이 아닌 추억의 부분입니다. 방법도 이론도 없으며, 즐겁게 담고 기록으로 남길뿐입니다 <Facebook> Mitchell Jung
by 밋첼™

카테고리

분류 전체보기 (367)
사랑愛 (9)
사진愛_Photo (94)
가족愛 (0)
개발자愛 (65)
음악愛 (15)
그외愛 (176)
리뷰愛 (8)

달력

«   2020/10   »
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
textcubeDesignMyselfget rss