有关schedule执行状况检查

ALCHU

wrkjobscde+5我们可以看到
Last attempted submission:                                    
  Status . . . . . . . . . . . :   Job successfully submitted.
是否有什么办法很容易知道每个schedule job都有提交且正常执行呢?

jance

查看日志应该可以解决问题

wildfish

把schedule job指定到一个独立的子系统
定期看看job的状态，一般都是message waiting的出问题。

pantierui

有个比较麻烦的方法
你先用WRKJOBSCDE OUTPUT(*PRINT) PRTFMT(*BASIC) 产生一个SPOOL FILE
然后再用CPYSPLF命令把SPOOL FILE复制到DB中
再然后写个程序操作DB来判断。

呵呵。

ALCHU

WRKJOBSCDE OUTPUT(*PRINT)  PRTFMT(*FULL) 看不到schedule执行状况，若用WRKJOBSCDE OUTPUT(*PRINT) PRTFMT(*FULL) ，能看到schedule执行状况，然后用cpysplf将report copy成file
这样可以基本上可以解决问题，但是一般schedule比较多，每天一个一个的看很麻烦。

pantierui

用WRKJOBSCDE OUTPUT(*PRINT) PRTFMT(*BASIC)  执行后的SPOOL FILE如下:

1. 
   
2. 作业        编码   Sts    日期       时间     Frq        操作     队列        库          调度者      文本        
   
3. I000096     000021  SCD   *ALL       07:50:00  *WEEKLY   *SBMRLS  *JOBD                   SCMS                     
   
4. SCMSPHZ     000017  SCD   USER DEF   07:30:00  *WEEKLY   *SBMRLS  *JOBD                   SCMS                     
   

复制代码

其中STS就是你要的执行状况

ALCHU

楼上说的那个sts不能看出上一次的执行状况，要判定schedule上否有提交并执行成功，必须用WRKJOBSCDE OUTPUT(*PRINT) PRTFMT(*FULL) . 或者用wrkjobscde+5看里面的状态.

pantierui

原帖由 ALCHU 于 2006-10-23 10:07 发表
楼上说的那个sts不能看出上一次的执行状况，要判定schedule上否有提交并执行成功，必须用WRKJOBSCDE OUTPUT(*PRINT) PRTFMT(*FULL) . 或者用wrkjobscde+5看里面的状态.

你可以用API来实现.
但我不知道怎么用.
信息如下.

[ 本帖最后由 pantierui 于 2006-10-24 13:35 编辑 ]

pantierui

API的相关信息到
http://publib.boulder.ibm.com/in ... c=/apis/apiprnt.htm
可以看看

介绍List Job Schedule Entries (QWCLSCDE) API的在iSeriesWork Management APIs文件中

[ 本帖最后由 pantierui 于 2006-10-23 11:32 编辑 ]

pantierui

用API的例子
他能取出一个SCHEDULE ENTRIES的相关信息
&LASTSTS好象就是你想要的.

1. 
   
2.    /************************************************************************/
   
3.    /*                                                                      */
   
4.    /*     PROGRAM: CHGSCDEUSR                                              */
   
5.    /*    LANGUAGE: CL                                                      */
   
6.    /* DESCRIPTION: LIST JOB SCHEDULE ENTRIES                               */
   
7.    /*      AUTHOR: PANTIERUI                                               */
   
8.    /*        DATE: 2006/10/23                                              */
   
9.    /*   APIS USED: QUSCRTUS, QWCLSCDE, QUSRTVUS                            */
   
10.    /*                                                                      */
    
11.    /************************************************************************/
    
12.    PGM PARM(&JOBNAME)
    
13. 
    
14.    /*                                                                   */
    
15.    /* INPUT PARAMETERS ARE AS FOLLOWS:                                  */
    
16.    /*                                                                   */
    
17.     DCL        VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
    
18.    /* INPUT JOB NAME                                                    */
    
19.    /*                                                                   */
    
20.    /* LOCAL VARIABLES ARE AS FOLLOWS:                                   */
    
21.    /*                                                                   */
    
22.     DCL        VAR(&USRSPC) TYPE(*CHAR) LEN(20) VALUE('LISTSCDE  QTEMP     ')
    
23.                /* USER SPACE NAME FOR APIS                              */
    
24.     DCL        VAR(&CNTHDL) TYPE(*CHAR) LEN(16) VALUE('   ')
    
25.                /* CONTINUATION HANDLE                                   */
    
26.     DCL        VAR(&GENHDR) TYPE(*CHAR) LEN(140)
    
27.                /* GENERIC HEADER INFORMATION FROM THE USER SPACE        */
    
28.     DCL        VAR(&LSTSTS) TYPE(*CHAR) LEN(1)
    
29.                /* STATUS OF THE LIST IN THE USER SPACE                  */
    
30.     DCL        VAR(&OFFSETB) TYPE(*CHAR) LEN(4)
    
31.                /* OFFSET TO THE LIST PORTION OF THE USER SPACE IN +
    
32.                                          BINARY FORM                    */
    
33.     DCL        VAR(&STRPOSB) TYPE(*CHAR) LEN(4)
    
34.                /* STARTING POSITION IN THE USER SPACE IN BINARY FORM    */
    
35.     DCL        VAR(&ELENB) TYPE(*CHAR) LEN(4)
    
36.                /* LIST JOB ENTRY LENGTH IN BINARY 4 FORM                */
    
37.     DCL        VAR(&LENTRY) TYPE(*CHAR) LEN(1156)
    
38.                /* RETRIEVE AREA FOR LIST JOB SCHEDULE ENTRY             */
    
39.     DCL        VAR(&INFOSTS) TYPE(*CHAR) LEN(1)
    
40.                /* RETRIEVE AREA FOR INFORMATION STATUS                  */
    
41.     DCL        VAR(&JOBNAM) TYPE(*CHAR) LEN(10)
    
42.                /* RETRIEVE AREA FOR JOB NAME                            */
    
43.     DCL        VAR(&ENTRY#) TYPE(*CHAR) LEN(6)
    
44.                /* RETRIEVE AREA FOR ENTRY NUMBER                        */
    
45.     DCL        VAR(&USERNM) TYPE(*CHAR) LEN(10)
    
46.                /* RETRIEVE AREA FOR USER NAME                           */
    
47.     DCL        VAR(&LASTSTS) TYPE(*CHAR) LEN(10)
    
48.                /* Status of last attempted submission                   */
    
49. 
    
50.    /*                                                                   */
    
51.    /* THIS CREATES THE USER SPACE. THE USER SPACE WILL BE 256 BYTES     */
    
52.    /* AND WILL BE INITIALIZED TO BLANKS.                                */
    
53.    /*                                                                   */
    
54.              CALL       PGM(QUSCRTUS) PARM(&USRSPC 'LISTSCDE  ' +
    
55.                           X'00000100' ' ' '*ALL' 'LIST JOB SCHEDULE +
    
56.                           ENTRIES')
    
57. 
    
58.              MONMSG     MSGID(CPF3C00) EXEC(GOTO CMDLBL(ERROR))
    
59.    /*                                                                   */
    
60.    /* THIS LISTS JOB SCHEDULE ENTRIES OF THE NAME SPECIFIED.            */
    
61.    /*                                                                   */
    
62.              CALL       PGM(QWCLSCDE) PARM(&USRSPC 'SCDL0200' +
    
63.                           &JOBNAME &CNTHDL 0)
    
64.    /*                                                                   */
    
65.    /* RETRIEVE THE GENERIC HEADER FROM THE USER SPACE.                  */
    
66.    /*                                                                   */
    
67.              CALL       PGM(QUSRTVUS) PARM(&USRSPC X'00000001' +
    
68.                           X'0000008C' &GENHDR)
    
69. 
    
70.              MONMSG     MSGID(CPF3C00) EXEC(GOTO CMDLBL(ERROR))
    
71.    /*                                                                   */
    
72.    /* GET THE INFORMATION STATUS FOR THE LIST FROM THE GENERIC HEADER.  */
    
73.    /* IF IT IS INCOMPLETE, GO TO BADLIST LABEL AND SEND OUT 'BAD LIST'  */
    
74.    /* MESSAGE.                                                          */
    
75.    /*                                                                   */
    
76.              CHGVAR     VAR(&LSTSTS) VALUE(%SST(&GENHDR 104 1))
    
77.              IF         COND(&LSTSTS = 'I') THEN(GOTO CMDLBL(BADLIST))
    
78. 
    
79.    /*                                                                   */
    
80.    /* GET THE LIST ENTRY LENGTH AND THE LIST ENTRY OFFSET.              */
    
81.    /* THESE VALUES ARE USED TO SET UP THE STARTING POSITION.            */
    
82.    /*                                                                   */
    
83.              CHGVAR     VAR(&ELENB) VALUE(%SST(&GENHDR 137 4))
    
84.              CHGVAR     VAR(&OFFSETB) VALUE(%SST(&GENHDR 125 4))
    
85.              CHGVAR     VAR(%BIN(&STRPOSB)) VALUE(%BIN(&OFFSETB) + 1)
    
86.    /*                                                                    */
    
87.    /* THIS RETRIEVES THE LIST ENTRY.                                     */
    
88.    /*                                                                    */
    
89.              CALL       PGM(QUSRTVUS) PARM(&USRSPC &STRPOSB &ELENB +
    
90.                           &LENTRY)
    
91. 
    
92.              MONMSG     MSGID(CPF3C00) EXEC(GOTO CMDLBL(ERROR))
    
93.    /*                                                                    */
    
94.    /* THIS COPIES THE INFORMATION STATUS, JOB NAME, ENTRY NUMBER, AND    */
    
95.    /* USER NAME.                                                         */
    
96.    /*                                                                    */
    
97.              CHGVAR     VAR(&INFOSTS) VALUE(%SST(&LENTRY 1 1))
    
98.              CHGVAR     VAR(&JOBNAM) VALUE(%SST(&LENTRY 2 10))
    
99.              CHGVAR     VAR(&ENTRY#) VALUE(%SST(&LENTRY 12 10))
    
100.              CHGVAR     VAR(&USERNM) VALUE(%SST(&LENTRY 547 10))
     
101.              CHGVAR     VAR(&LASTSTS) VALUE(%SST(&LENTRY 629 10))
     
102.   /*                                                                     */
     
103.   /* THIS SENDS A MESSAGE THAT THE LIST WAS INCOMPLETE.                  */
     
104.   /*                                                                     */
     
105.   BADLIST:
     
106.              SNDPGMMSG  MSG('INCOMPLETE LIST IN THE USER SPACE. SEE +
     
107.                           JOBLOG FOR DETAILS.')
     
108.              GOTO       CMDLBL(ALLDONE)
     
109.   /*                                                                     */
     
110.   /* THIS SENDS A MESSAGE THAT AN UNEXPECTED ERROR OCCURRED.             */
     
111.   /*                                                                     */
     
112.   ERROR:
     
113.              SNDPGMMSG  MSG('UNEXPECTED ERROR.SEE JOBLOG FOR DETAILS.')
     
114.   /*                                                                     */
     
115.   /* ALL DONE. NOW THE TEMPORARY USER SPACE IS DELETED.                  */
     
116.   /*                                                                     */
     
117.   ALLDONE:
     
118.              DLTUSRSPC  USRSPC(QTEMP/%SST(&USRSPC 1 10))
     
119.              MONMSG     MSGID(CPF0000)
     
120. 
     
121.    ENDPGM
     
122. 
     

复制代码

[ 本帖最后由 pantierui 于 2006-10-24 12:42 编辑 ]