Unload JCL using utility IKJEFT01

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

Hi,

I unloaded the table with a unload jcl using utility IKJEFT01. The integer values in the table were unloaded as some junk values. Is there any utility to unload the integer values from the table as such??

Thanks,

expat · Posted: Wed Oct 21, 2009 2:10 pm

Define junk values

Escapa · Posted: Wed Oct 21, 2009 2:19 pm

Generate the DCLGEN for the table and then compare it with unloaded dataset.

By that I think you will get your answer.

Steve Davies · New User Joined: 15 Oct 2009 Posts: 32 Location: UK

By saying you are using IKJEFT01 to unload a table, do you really mean you are using the DSNTIAUL unload utility?

Perhaps post your JCL. Do you know how to look at the integer fields in HEX in your output file? Are you expecting them to be in display format?

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

I am using DSNTIAUL unload utility. I want the attributes defined in the table as integer to be unloaded in readable format.
It was unloaded as
±^
°
þ5
þÕ
þ0
þ6
þ6
±ê
þ5
þ5
þ6
±ê
þÔ
þ5

Thanks,

Steve Davies · New User Joined: 15 Oct 2009 Posts: 32 Location: UK

You have an SQL statement as input then, like

//SYSIN DD *
SELECT * FROM TABLE.NAME ;

I think (I may be wrong as I'm doing this from memory) you'll have to select each column by name and for the integer columns say

CHAR(integer_column_name),

apologies if I'm wrong....

dbzTHEdinosauer · Posted: Wed Oct 21, 2009 3:05 pm

janani vs,

show the control cards that you are using.

second request.

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

If I use CHAR(integer_column_name) and select every column in the table individually, then the jcl becomes static i cannot use that jcl to unload some other tables.

Thanks,

guptae · Posted: Wed Oct 21, 2009 3:56 pm

Hello Janani,

You need to anyways changed the jcl as per Table. Its better to put control card in dataset instead of instream.

enrico-sorichetti · Posted: Wed Oct 21, 2009 3:58 pm

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

hi,

this is the jcl am using,

//UNLOAD2 JOB 'UNLOAD','UNLOAD',CLASS=2,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1 EXEC PGM=IKJEFT1B,DYNAMNBR=20,TIME=120,REGION=3072K
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(db2 subsystem)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) LIB('db2 subsystem.RUNLIB.LOAD') -
PARMS('SQL')
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSREC00 DD DSN=dataset name,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(200,200),RLSE),
// UNIT=SYSDA
//SYSIN DD *
SELECT * FROM tablename;
/*

Thanks,

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

hi,
this condition CHAR(integer_column_name)
works.But what if one is unaware of the column names and there definition(ie whether it is a integer or not) of the table.

thanks,

guptae · Posted: Wed Oct 21, 2009 4:43 pm

Hi Janani,

Then one check the table structure either using Admin Tool or Sysibm table or dclgen's .

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

Hi Ekta,

yeah in DCLGEN, i can know about the column names and definitions. But what if one does not about anything and just knows the table name.

thanks,

guptae · Posted: Wed Oct 21, 2009 5:14 pm

Then One can check in DCLGEN , or in any Admin tool or cataloge tables

Anuj Dhawan · Posted: Wed Oct 21, 2009 5:33 pm

Steve Davies · New User Joined: 15 Oct 2009 Posts: 32 Location: UK

JANANI V S

Well, if this is not a good solution for you then you'd better start learning how to look at binary fields in your unload dataset. Here's a start....... 'SET HEX ON'

It doesn't sound like a difficult problem. You just need to decide what you want to do. How can you not know the column names of a table? There are many places to look to find those out.

GuyC · Posted: Wed Oct 21, 2009 8:32 pm

I think he means : What if the control card should be generated for any given table.
Generating "select * from table" is a lot easier than generating a select with all columns (with or without char() ).

Maybe you shouldn't try to use dsntiaul , but look at the possibilities of UNLOAD DELIMITED

dick scherrer · Posted: Wed Oct 21, 2009 9:03 pm

Hello,

Where is the unloaded data to be used?

If by some other mainframe process, there is no need for the data to be readable by human eyes. . . The data as unloaded is perfectly usable.

Steve Davies · New User Joined: 15 Oct 2009 Posts: 32 Location: UK

janani vs · New User Joined: 01 Sep 2009 Posts: 15 Location: CHENNAI

Hi everybody,

Thanks for your response.
Actually I need the integer fields to be displyed in a readable format.

Thanks,

dbzTHEdinosauer · Posted: Mon Oct 26, 2009 4:00 pm

dick scherrer · Posted: Mon Oct 26, 2009 7:14 pm

Hello,