Chinaunix

标题: 怎样取得所有的JOB SCHEDULE ENTRIES到表中 [打印本页]
作者: cu400    时间: 2006-10-30 11:17
标题: 怎样取得所有的JOB SCHEDULE ENTRIES到表中
我现在需要取得所有的SCHEDULE ENTRIES的上一次的提交状态,然后做相应的操作.
现在可以用API QWCLSCDE取得一个SCHEDULE ENTRIES的所有信息.
有什么好的办法可以循环的取得.
好象所有的SCHEDULE ENTRIES存放在QUSRSYS/QDFTJOBSCD中.
怎样读取上面的文件.
作者: cu400    时间: 2006-10-30 13:37
怎么没有人理我！！
那位好心人帮帮忙！！
谢谢！
作者: xuguopeng    时间: 2006-10-30 14:18
不断的执行不就可以循环读取了...

取SCDE中的历史状态有意义么? 那只是记录作业已经SUBMIT而已,至于程序是否运行正常,我觉得最好在程序内部自己控制...
作者: cu400    时间: 2006-10-30 16:05
我很想知道WRKJOBSCDE是怎么做出来的
顺便学习使用API
作者: pantierui    时间: 2006-10-30 16:59
关注中。。。。。
作者: pantierui    时间: 2006-11-01 15:03
想了好几天终于做出来了.
可以用US指针来做
不对之处请大家指正.

  2.       *****************************************************************
  3.       *
  4.       * Program Name: SCDE - List Job Schedule Entries
  5.       * Author: Pan Tierui
  6.       * Date: 2006/11/01
  7.       *
  8.       *****************************************************************
  9.      H   Option(*SRCSTMT:*NODEBUGIO)
  10.       *****************************************************************
  11.       *Standard Parameters for Retrieve User Space
  12.       *****************************************************************
  13.      DQUAL_SPACE       DS
  14.      D SPC_NAME                      10
  15.      D SPC_LIB                       10    INZ('QTEMP')
  16.       * Returned Data Variable
  17.      D@DATA            DS                  BASED(SPCPTR)
  18.      D    @offsethdr         117    120b 0
  19.      D    @headrsize         121    124b 0
  20.      D    @offsetlst         125    128b 0
  21.      D    @numlstent         133    136b 0
  22.      D    @lstentsz          137    140b 0
  23.       * Pointer to Returned Variable
  24.      D SPCPTR          S               *   inz(*null)
  25.       * Work Fields
  26.      D Error_Msg       S             50
  27.      D FORMAT          S              8    INZ('SCDL0200')                      Format name
  28.      D JOBSCDNM        S             10    INZ('*ALL      ')                    Job schedule entry
  29.      D CONHANDL        S             16    inz(' ')                             Continuation handle
  30.      D SPC_ATR         S             10    INZ('SPACE')                         Attibute
  31.      D SPC_INIT_S      S              9B 0 INZ(1)                               Initial Size
  32.      D SPC_INIT_V      S              1    INZ(X'00')                           Initial Value
  33.      D SPC_AUTH        S             10    INZ('*ALL')                          Authoritie
  34.      D SPC_TEXT        S             50                                         Text
  35.      D SPC_REPLAC      S             10    INZ('*YES')                          Replace
  36.       *****************************************************************
  37.       *Record structure for Error Code Parameter
  38.       *****************************************************************
  39.      d/COPY qsysinc/qrpglesrc,QUSEC
  40.       *****************************************************************
  41.       *Type Definition for the SCDL0100 and SCDL0200 header section.
  42.       *****************************************************************
  43.      d/COPY qsysinc/qrpglesrc,QWCLSCDE
  44.       *****************************************************************
  45.      **-- Remove program message:  ----------------------------------**
  46.      D RmvPgmMsg       Pr                  ExtPgm( 'QMHRMVPM' )
  47.      D  RpMsgQ                      276a   Const
  48.      D  RpStack                      10i 0 Const
  49.      D  RpMsgKey                      4a   Const
  50.      D  RpMsgRmv                     10a   Const
  51.      D  RpError                      10i 0 Const
  52.       *****************************************************************
  53.       * Main Program
  54.       *****************************************************************
  55.       * Load the User Space - Initial Load
  56.      C                   Exsr      Load_US
  57.       * End of Program
  58.      C                   Eval      *INLR = *On
  59.      C                   Return
  60.       *****************************************************************
  61.       * Load the User Space with the Job List
  62.       *****************************************************************
  63.      C     Load_US      Begsr
  64.       * Clear the Error Message Subfile
  65.      C                   CallP     RmvPgmMsg( '*'
  66.      C                                      : *Zero
  67.      C                                      : *Blanks
  68.      C                                      : '*ALL'
  69.      C                                      : *Zero
  70.      C                                      )
  71.       *
  72.       * Set the User Space Name
  73.      C                   Eval      SPC_NAME = 'QLSTSCDE'
  74.       * Build the User Space
  75.      C                   Exsr      Create_Sp
  76.       * Process the User Space
  77.      C                   Exsr      Proc_US
  78.       * Delete the User Space
  79.      C                   Exsr      Delete_Sp
  80.       *
  81.      C                   Endsr
  82.       *****************************************************************
  83.       * Process the User Space
  84.       *****************************************************************
  85.      C     Proc_US      Begsr
  86.       * Get the Pointer
  87.      C                   Exsr      Get_Point
  88.       * List Job Schedule Entries
  89.      C                   Exsr      Lst_Scde
  90.       * Here, the offset is set for:
  91.       * The retrieved list
  92.      C                   Eval      @offsetlst = (@offsetlst + 1)
  93.       * and the header information (if applicable to your API)
  94.      C                   Eval      @offsethdr = (@offsethdr + 1)
  95.       * Start the Loop
  96.      C                   Do        @numlstent
  97.       * Get the List Element
  98.      C                   Exsr      Get_Data
  99.      c     QWCJN00       dsply
  100.      C                   goto      nextloop
  101.       * The next loop tag
  102.      C     nextloop      tag
  103.       * Update the Off-Set
  104.      C                   Eval      @offsetlst = @offsetlst + @lstentsz
  105.       * Loop
  106.      C                   Enddo
  107.       *
  108.      C                   Endsr
  109.       *****************************************************************
  110.       * Create and Extend User Space
  111.       *****************************************************************
  112.      C     Create_Sp    Begsr
  113.       * Create the User Space
  114.      C                   CALL      'QUSCRTUS'
  115.      C                   PARM                    QUAL_SPACE
  116.      C                   PARM                    SPC_ATR
  117.      C                   PARM                    SPC_INIT_S
  118.      C                   PARM                    SPC_INIT_V
  119.      C                   PARM                    SPC_AUTH
  120.      C                   PARM                    SPC_TEXT
  121.      C                   PARM                    SPC_REPLAC
  122.      C                   PARM                    QUSEC
  123.       * Check for Errors
  124.      C                   If        QUSEI <> *Blanks
  125.      C                   Eval      Error_Msg = 'Create Space Error: ' + QUSEI
  126.      C     Error_Msg     Dsply
  127.      C                   Endif
  128.       *
  129.      C                   Endsr
  130.       *****************************************************************
  131.       * Delete User Space
  132.       *****************************************************************
  133.      C     Delete_Sp    Begsr
  134.       * Delete the User Space
  135.      C                   CALL      'QUSDLTUS'
  136.      C                   PARM                    QUAL_SPACE
  137.      C                   PARM                    QUSEC
  138.       * Check for Errors
  139.      C                   If        QUSEI <> *Blanks
  140.      C                   Eval      Error_Msg = 'Delete Space Error: ' + QUSEI
  141.      C     Error_Msg     Dsply
  142.      C                   Endif
  143.       *
  144.      C                   Endsr
  145.       *****************************************************************
  146.       * Get Data from the User Space
  147.       *****************************************************************
  148.      C     Get_Data     Begsr
  149.       *
  150.      C                   Call      'QUSRTVUS'
  151.      C                   Parm                    QUAL_SPACE
  152.      C                   Parm                    @offsetlst
  153.      C                   Parm                    @lstentsz
  154.      C                   Parm                    QWCL0200
  155.      C                   Parm                    QUSEC
  156.       * Check for Errors
  157.      C                   If        QUSEI <> *Blanks
  158.      C                   Eval      Error_Msg = 'Get Data Error: ' + QUSEI
  159.      C     Error_Msg     Dsply
  160.      C                   Endif
  161.       *
  162.      C                   Endsr
  163.       *****************************************************************
  164.       * Get Pointer to the User Space
  165.       *****************************************************************
  166.      C     Get_Point    Begsr
  167.       *
  168.      C                   Call      'QUSPTRUS'
  169.      C                   Parm                    QUAL_SPACE
  170.      C                   Parm                    SPCPTR
  171.      C                   Parm                    QUSEC
  172.       * Check for Errors
  173.      C                   If        QUSEI <> *Blanks
  174.      C                   Eval      Error_Msg = 'Pointer Error: ' + QUSEI
  175.      C     Error_Msg     Dsply
  176.      C                   Endif
  177.       *
  178.      C                   Endsr
  179.       *****************************************************************
  180.       * List Job Schedule Entries
  181.       *****************************************************************
  182.      C     Lst_Scde     Begsr
  183.       *
  184.      C                   Call      'QWCLSCDE'
  185.      C                   Parm                    QUAL_SPACE
  186.      C                   Parm                    FORMAT
  187.      C                   Parm                    JOBSCDNM
  188.      C                   Parm                    CONHANDL
  189.      C                   Parm                    QUSEC
  190.       * Check for Errors
  191.      C                   If        QUSEI <> *Blanks
  192.      C                   Eval      Error_Msg = 'List Error: ' + QUSEI
  193.      C     Error_Msg     Dsply
  194.      C                   Endif
  195.       *
  196.      C                   Endsr

复制代码

[ 本帖最后由 pantierui 于 2006-11-1 15:06 编辑 ]



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2