1

我正在尝试卸载：

Below is jCL

/STEP90    EXEC PGM=IKJEFT01                             
//STEPLIB  DD DSN=DB2.SYS.LOAD,DISP=SHR                  
//SYSPRINT DD DUMMY,DCB=BLKSIZE=8000                     
//SYSTSPRT DD SYSOUT=*                                   
//SYSDBOUT DD SYSOUT=*                                   
//SYSPUNCH DD DSN=aAA.BAAA.CAAA.DSSSS,         
//         DISP=(,CATLG,UNCATLG),                        
//         UNIT=SYSALLDA,                                
//         SPACE=(CYL,(1000,1000),RLSE),                 
//         DCB=(RECFM=FB,LRECL=800)                      
//SYSTSIN  DD *                                          
  DSN SYSTEM(abcd)                                       
    RUN PROGRAM(DB2pg2) -                               
    PARM('/LRECL=08000')                                 
  END                                                    
/*                                                       
//SYSIN    DD *                                                   
-----------------------------------------------------------       
*                                                                 
SELECT  vAL1    ,'~',                           
       LPAD(EMP_NAME,10,'!')   ,'~',                          
               EMP2_NAME     ,'~',                           
               eMP_ID        ,'~',                           
               DATA_VALUE       ,'~',                           
               GEN_ERR_TEXT       ,'~',                           
               E_TIMESTAMP    ,'~',                           
               E_TEXT_SHORT   ,'~',                           
               E_TEXT_LONG                                    
        from  DB2BATC.ump_error_log where                         
        PROJECT_ID = 'GUI'                                        
  ORDER BY ERROR_TIMESTAMP ASC                                    
  FETCH FIRST 03 ROWS ONLY                                        
   WITH UR;                                                
 */

输出

GUI ~ !!vINAY ~ HKJSKSKS ~ ~ ~ USER NOT PRESEN :
GUI ~ !!KUMARTHA ~ IJKHJHJD ~ ~ ~                             
GUI ~ !!NAUISJSK ~ HJJKSDHSJDHSJ ~ ~ ~ USER NOT EXIST
*************************** Bottom of Data ****************************

但我希望它是：

GUI(12 spaces)       ~ !!vINAY              ~ HKJSKSKS              ~ ~ ~ USER NOT PRESEN

由于 vAL1 在 DB2 中定义为 15 个字符，所以我期望的是在 ps 输出文件中

Gui 3 个字符加 12 个空格

在 suffi 我得到相同的地方

4

1 回答 1

2

IKJEFT01 是 TSO 监控程序。您正在使用它连接到 DB2 子系统“abcd”并运行应用程序“DB2pg2”。这是运行利用 DB2 资源的应用程序的方法之一。

输出取决于“DB2pg2”中的逻辑，因此您需要查看那里。

于 2012-11-21T12:42:09.587 回答