Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1028948
  • 博文数量: 125
  • 博客积分: 10490
  • 博客等级: 上将
  • 技术积分: 2386
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-03 18:26
文章分类

全部博文(125)

文章存档

2011年(1)

2010年(9)

2009年(17)

2008年(98)

分类:

2008-06-24 09:44:24

0001.00 d*QUSCRTUS                                            
0002.00 dQUSSPNM          s             20a   inz             
0003.00 dEXTATR           s             10a   inz             
0004.00 dINITSIZE         s             10i 0 inz(4096)       
0005.00 dINITVALU         s              1a   inz             
0006.00 dPUBAUT           s             10a   inz             
0007.00 dTXTDECP          s             50a   inz             
0008.00 dREPLACE          s             10a   inz             
0015.00 d*QUSLJOB                                             
0016.00 d FMTNAM          s              8A   INZ('JOBL0200') 
0017.00 D QJOBNM          s             26A   INZ             
0018.00 D STS             s             10A   INZ('*ACTIVE   ')
0019.00 D*QUSRTVUS                                            
0020.00 D STPST           S             10i 0 INZ(1)          
0021.00 D LENDTA          S             10i 0 INZ(4096)
0021.01 DRCVVAR           ds          4096    INZ   
0021.02 d*offset 信息的起始位置                                   
0021.03 D OFSIZE                125    128B 0       
0021.04 d*num of the entries 信息块的个数                       
0021.05 D O133                  133    136B 0       
0022.00 d*size of the entry  信息块的长度            
0023.00 D O137                  137    140B 0                         
0024.00 D*                                                     
0025.00 derrcode          ds                                   
0026.00 d qrclen                  1      4b 0 inz(%len(errcode))
0027.00 d qrcv                    5      8b 0 inz(0)           
0028.00 d qmsgid                  9     15a   inz              
0029.00 d qcc                    16     16a   inz              
0030.00 d qex                    17    227a   inz              
0031.00 C*                                                     
0032.00 C                   EVAL      QUSSPNM = 'JOBTMP    '+  
0033.00 C                                       'QTEMP     '      
0034.00 C                   EVAL      EXTATR   = ' '              
0035.00 C                   EVAL      INITVALU = ' '              
0036.00 C                   EVAL      PUBAUT   = '*ALL'           
0037.00 C                   EVAL      TXTDECP  = 'MY JOB SPACE '  
0038.00 C                   EVAL      REPLACE  = '*NO'            
0039.00 C*CALL QUSCRTUS                                           
0040.00 C                   CALL      'QUSCRTUS'                  
0041.00 C                   PARM                    QUSSPNM       
0042.00 C                   PARM                    EXTATR     
0043.00 C                   PARM                    INITSIZE   
0044.00 C                   PARM                    INITVALU   
0045.00 C                   PARM                    PUBAUT     
0046.00 C                   PARM                    TXTDECP    
0047.00 C                   PARM                    REPLACE    
0048.00 C                   PARM                    ERRCODE    
0049.00 C*                                                     
0051.00 C                   EVAL      QJOBNM = '*ALL      '+   
0052.00 C                                      '*CURRENT  '+  
0053.00 C                                      '*ALL  '       
0054.00 c                   reset                   errcode   
0055.00 C*QUSLJOB  The job what we get
0056.00 C                   CALL      'QUSLJOB'               
0057.00 C                   PARM                    QUSSPNM   
0058.00 C                   PARM                    FMTNAM    
0059.00 C                   PARM                    QJOBNM    
0060.00 C                   PARM                    STS       
0061.00 C                   PARM                    ERRCODE 
0062.00 C*                                                  
0065.00 C                   EVAL      RCVVAR = ' '          
0066.00 C*QUSRTVUS ====get job list                                         
0067.00 c                   reset                   errcode 
0068.00 C                   CALL      'QUSRTVUS'            
0069.00 C                   PARM                    QUSSPNM 
0070.00 C                   PARM                    STPST   
0071.00 C                   PARM                    LENDTA  
0072.00 C                   PARM                    RCVVAR 
0073.00 C                   PARM                    ERRCODE
0074.00 C*QUSDLTUS                                         
0075.00 c                   reset                   errcode
0076.00 C                   CALL      'QUSDLTUS'           
0077.00 C                   PARM                    QUSSPNM
0078.00 C                   PARM                    ERRCODE
0078.01 c*
0079.00 C                   EVAL      *INLR = '1'          
阅读(1340) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~