尝试使用IKJEFT实用程序卸载DB2

Question

我正在尝试卸载：

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;                                                
 */                 

OUT PUT

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 char加12个空格

在spuffi中我得到相同的

Answer 1

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

输出取决于“DB2pg2”中的逻辑，所以你需要查看那里。