SAP 后台 JOB 批量查看工具
给大家分享一个批量查看JOB的工具。
作用：批量查看后台JOB的执行信息，弥补SM37的不足。
这个程序有些年头了，因为前前后后经过多次添加功能，代码很乱，但是好在不耽误使用，对于运维人员来说还是很方便的
每个列都双击一下试试，说不定有惊喜呢。
JOB状态码含义：
P： 已计划 后台作业的步骤（Step）已经定义，但是作业的开始条件（Start condition）没有定义。
S： 已释放 后台作业的步骤（Step）和开始条件（Start condition）都已经定义好了，并且相关的作业也经过有相关作业权限的人Release。
Y： 就绪 一个Released Job的开始条件（Start condition）已经满足，但是需要等待后台作业机制给这个作业分配工作进程。
R： 活动 运行中的作业。 运行中的作业不能被修改或者删除。
F： 已完成 后台作业中预设的每个步骤（Step）都全部成功完成。
A： 已取消 作业非正常结束
Z： 已暂停 程序BTCTRNS1暂停 程序BTCTRNS2恢复
*&---------------------------------------------------------------------**& Report ZJOB_LOG*&---------------------------------------------------------------------**& 批量显示JOB*& Baitianzhen 2012-4-18*&---------------------------------------------------------------------*REPORT zjob_log NO STANDARD PAGE HEADING LINE-SIZE 1023.
TYPE-POOLS: slis.TABLES: btcselect,tbtcp,tbtco,tsp01sys,fupararef,tst01.DATA: BEGIN OF gt_jobs OCCURS 0. INCLUDE STRUCTURE tbtcjob_bk.DATA: variant LIKE tbtcp-variant.DATA: END OF gt_jobs.DATA: repid LIKE sy-repid, varnt LIKE disvariant, list_layout TYPE slis_layout_alv, log_layout TYPE slis_layout_alv, list_print TYPE slis_print_alv, list_struc LIKE dd02l-tabname, list_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, log_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.DATA: BEGIN OF it_jobprog OCCURS 0, stepcount LIKE tbtcp-stepcount, progname LIKE tbtcp-progname, variant LIKE tbtcp-variant, END OF it_jobprog.
DATA: BEGIN OF gt_jobsalv OCCURS 0, jobname LIKE gt_jobs-jobname, jobcount LIKE gt_jobs-jobcount, sdluname LIKE gt_jobs-sdluname, strtdate LIKE gt_jobs-strtdate, strttime LIKE gt_jobs-strttime, status LIKE gt_jobs-status, statxt(10), reaxserver LIKE gt_jobs-reaxserver, authcknam LIKE gt_jobs-authcknam, authckman LIKE gt_jobs-authckman, progname LIKE gt_jobs-progname, variant LIKE tbtcp-variant, joblog LIKE gt_jobs-joblog, duration TYPE i, delay TYPE i, sdlstrtdt LIKE gt_jobs-sdlstrtdt, sdlstrttm LIKE gt_jobs-sdlstrttm, periodstr(60) , havespool(4) , spoolsize LIKE tst01-dsize, log_icon(4) , checkflg, color(4) TYPE c, progtab LIKE it_jobprog[], progs(100), END OF gt_jobsalv.DATA: BEGIN OF it_list OCCURS 0, tabix TYPE i, enterdate LIKE tbtc5-enterdate, entertime LIKE tbtc5-entertime, text LIKE tbtc5-text, msgid LIKE tbtc5-msgid, msgno LIKE tbtc5-msgno, msgtype LIKE tbtc5-msgtype, checkflg, END OF it_list.DATA: it_spool TYPE TABLE OF char1024 WITH HEADER LINE.DATA: sdldatetime(14), "应该开始日期时间 strdatetime(14), "实际开始日期时间 datetime(14), dname TYPE tst01-dname, tabix TYPE sy-tabix.RANGES r_stau FOR tbtco-status.DATA: file TYPE string, path TYPE string.DATA: prog_fldct TYPE slis_t_fieldcat_alv WITH HEADER LINE.
CLASS lcl_receiver DEFINITION DEFERRED.DATA: receiver TYPE REF TO lcl_receiver , go_timer TYPE REF TO cl_gui_timer.*----------------------------------------------------------------------** CLASS lcl_receiver DEFINITION*----------------------------------------------------------------------*CLASS lcl_receiver DEFINITION. PUBLIC SECTION. METHODS: handle_finished FOR EVENT finished OF cl_gui_timer.ENDCLASS. "lcl_receiver DEFINITION
*----------------------------------------------------------------------** CLASS lcl_receiver IMPLEMENTATION*----------------------------------------------------------------------*CLASS lcl_receiver IMPLEMENTATION. METHOD handle_finished. cl_gui_cfw=>set_new_ok_code( new_code = 'REFRESH' ). ENDMETHOD. "handle_finishedENDCLASS. "lcl_receiver IMPLEMENTATION
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE b1txt.SELECT-OPTIONS: s_mand FOR tbtco-authckman DEFAULT sy-mandt, s_user FOR tbtco-sdluname DEFAULT sy-uname , s_jnam FOR tbtco-jobname ,...
