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出力ファイルです。

GUI3文字と12個のスペース

spuffiのように私は同じようになります

4

1 に答える 1

2

IKJEFT01 は TSO モニター・プログラムです。これを使用して、DB2 サブシステム「abcd」に接続し、アプリケーション プログラム「DB2pg2」を実行します。これは、DB2 リソースを利用するアプリケーションを実行する方法の 1 つです。

出力は「DB2pg2」のロジックに依存するため、そこを確認する必要があります。

于 2012-11-21T12:42:09.587 に答える