MVSFORUMS.com

shekar123

Hi all,

I am trying to retreive selective columns EMPNO and SALARY data from a DB2 table to a flat file.In my table declarations i have created a table with the following declarations :

Code:

EMPNO CHAR(7)
SALARY DECIMAL(9,2)

I already have inserted values into the table successfully

Code:

EMPNO SALARY
------- ------------
111111 16166.70
222222 15666.70
333333 14916.70
444444 14583.40
555555 14583.40

But when i try to retreive data to a flat file from my JCL using UTILITY IKJEFT01 i am not getting properly displayed values of SALARY in readable format as SALARY field equivalent in COBOL is PIC S9(7)V9(2) USAGE COMP-3 which cannot be read in ISPF directly without any tool.

Code:

//UNLOAD1 EXEC PGM=IKJEFT01,REGION=8M
//DBRMLIB DD DSN=TECH022.TESTING.DVRDBRM,DISP=SHR
//DXTPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DSNTRACE DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DXTDUMP DD SYSOUT=*
//DATAOUT DD DSN=TECH022.TESTJCL.OUTPUT,
// DISP=(NEW,CATLG,CATLG),
// VOL=(,,,99),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80),SPACE=(TRK,(10,10),RLSE)
//SYSTSIN DD DSN=TECH022.CARDS(IWDRF110),DISP=SHR
//DXTIN DD *
SUBMIT EXTID=WABCDE,
DBS=DB2,
FORMAT=SOURCE,
EXTDATA=DATAOUT
EXTRACT
SELECT EMPNO,SALARY
FROM TECH022.EMPLOYEE;
//

[code:1:74b4e23a4c]
TECH022.TESTJCL.OUTPUT
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
111111 ...

kolusu · Posted: Sun Oct 30, 2005 5:17 pm Post subject:

shekar123,

shekar123

Thanks Kolusu,

I was able to get the desired result after going through the link provided and i was able to understand many concepts related to displaing db2 table data in readable format.

From one of the great fans of Kolusu
Shekar123