此段為我所寫的自動確認程式段， tc_occb04為確認碼欄位，但我測試簽核完成後始終無法自動確認，也已經將axmi010的自動確認勾選，程式放在topprod:/u1/topprod/topcust/cxm/4gl中，想請問大哥大姊要如何處理，另外想知道這種情況要如何去跑程式段除錯，謝謝各位大神!

FUNCTION t940sub_y1(l_tc_occb)
 DEFINE l_tc_occb   RECORD LIKE tc_occb_file.*
 DEFINE l_msg   LIKE type_file.chr1000 #No.FUN-680137 VARCHAR(100)
 DEFINE l_azf08 LIKE azf_file.azf08    #CHI-E60035
 DEFINE l_zx01  LIKE zx_file.zx01      #FUN-E40020 add
 DEFINE l_cnt   LIKE type_file.num5    #FUN-E40020 add

   IF l_tc_occb.tc_occb04 = 'N' AND l_tc_occb.tc_occb05 = '0'  THEN
      LET l_tc_occb.tc_occb05 = '1'     #已核淮
   END IF

  #FUN-E40020 add---str---
  #若為EF整合自動確認，單據確認人員應為關卡最後一關簽核人員
   IF g_action_choice = "efconfirm" THEN
      CALL aws_efapp_getEFLogonID() RETURNING l_zx01

      SELECT count(*) INTO l_cnt
        FROM zx_file
       WHERE zxacti = 'Y'
         AND zx01 = l_zx01
   END IF
  #FUN-E40020 add---end---

   UPDATE tc_occb_file SET tc_occb04='Y'
    WHERE tc_occb01 = l_tc_occb.tc_occb01
   IF STATUS OR SQLCA.sqlerrd[3] = 0 THEN
      CALL cl_err3("upd","tc_occb_file",l_tc_occb.tc_occb01,"",SQLCA.sqlcode,"","upd tc_occbconf",1)  #No.FUN-650108
      LET g_success = 'N'
      RETURN
   END IF
   
END FUNCTION