File to DB2 table

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

I have a PS file which contains around 10 million records which has to be loaded to DB2 table. Do we have a job to do the same?

Jyothsna

ofer71 · Posted: Thu Dec 27, 2007 5:23 pm

Have you tried the manuals?

O.

ksk · Posted: Thu Dec 27, 2007 5:25 pm

Hi Jyothsna,

If you want to do it through COBOL program, READ the file and write it into TABLE using SQL query.

Regards,
KSK

abhishekmdwivedi · New User Joined: 22 Aug 2006 Posts: 95 Location: india

Jyothsna,

This will help you out.
[url]
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DSNUGH11/2.12.5?SHELF=DSNSHHA1&DT=20010719144747&CASE=
[/url]

Anuj Dhawan · Posted: Thu Dec 27, 2007 5:36 pm

There can be many methods, I use BMC utility to do that. It's a third party tool. Check whether if it's installed on your site.

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

ThanQ so much for all your replies.

Actually I used the below jcl

/*JOBcard
//***************************************************************
//* LOAD THE PRIMS TEST DATABASE
//***************************************************************
//*
//LOAD010 EXEC DSNUPROC,
// SYSTEM=DBT1,LIB='SYS1.DB2.TX.LOAD',
// UID='',UTPROC=''
//* UID='',UTPROC='RESTART'
//* INPUT DATA SET GOES HERE
//DSNUPROC.SYSREC DD DSN=TE.MKOUTL.MCENU30,DISP=SHR
//*
//* REJECTED RECORDS
//DSNUPROC.SYSDISC DD DSN=TE.MKTOUTL.REJECT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//* DATABASE KEYS
//DSNUPROC.SYSUT1 DD DSN=TE.LOAD.MKTOUTL.SYSUT1,
// DISP=(MOD,DELETE,CATLG),
//* UNIT=TAPEC,RETPD=0090
// UNIT=SYSDA,SPACE=(CYL,(200,25),RLSE)
//* INDEX FIELD NAMES
//DSNUPROC.SORTOUT DD DSN=TE.LOAD.MKTOUTL.SORTOUT,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,50),RLSE)
//DSNUPROC.SYSERR DD DSN=TE.LOAD.MKTOUTL.SYSERR,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//DSNUPROC.SYSMAP DD DSN=TE.LOAD.MKTOUTL.SYSMAP,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,90),RLSE)
//DSNUPROC.SORTWK01 DD DSN=TE.LOAD.SORTWK01,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,90),RLSE)
//DSNUPROC.SORTWK02 DD DSN=TE.LOAD.SORTWK02,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,90),RLSE)
//DSNUPROC.SORTWK03 DD DSN=TE.LOAD.SORTWK03,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,90),RLSE)
//DSNUPROC.SORTWK04 DD DSN=TE.LOAD.SORTWK04,
// DISP=(MOD,DELETE,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,90),RLSE)
//DSNUPROC.SYSIN DD DSN=TE.MKOUTL.UNLOAD.PUNCH1,DISP=SHR
//*
//

It gave me the error

1DSNU000I DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = N87532.N87532A
DSNU1044I DSNUGTIS - PROCESSING SYSIN AS EBCDIC
0DSNU050I DSNUGUTC - LOAD DATA LOG NO INDDN SYSREC00
DSNU650I -DBT1 DSNURWI - INTO TABLE DBADB2.MSP_SALES_PLAN
DSNU060I -DBT1 DSNUGMAP - USER N87532 NOT AUTHORIZED FOR LOAD UTILITY ON DATABASE MSP1001D
DSNU012I DSNUGBAC - UTILITY EXECUTION TERMINATED, HIGHEST RETURN CODE=12

I have never used "MSP1001D" anywhere.my peers are saying that this is a production dabase. but I have mentioned DBT1 in "SYSTEM=DBT1" which is a test region.

can you please help me out in resolving these queries
1) where am I getting "MSP1001D" from.
2) If it is not a production database, Do I need to have the access on LOAD Utility in JCL?

I'm sure that the tables which I am loading are in test database.

mkk157 · Active User Joined: 17 May 2006 Posts: 310

For this,

You need to have Read / WRITE access on the Database MSP1001D.

To know whether it is Production database or Test database, the best person would be ur DBA.

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

I haven't mentioned "MSP1001D" anywhere in the JCL. but where am I getting "MSP1001D" from???

enrico-sorichetti · Posted: Fri Dec 28, 2007 1:23 pm

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

I used the link which abhishekmdwivedi have given us...I gave that jcl which is there in that link to one of senior mainframe person and asked him to suggest me the modifications to be made in that...so he gave me this jcl...

after this mail itself, i have got this JCL...i didn't have it before

enrico-sorichetti · Posted: Fri Dec 28, 2007 2:09 pm

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

Jyothsna yenne · New User Joined: 11 Jul 2007 Posts: 6 Location: Texas

Not particularly this forum...i mean any public forum...i should have directly asked my support group..once again sorry....bubyeee

enrico-sorichetti · Posted: Fri Dec 28, 2007 2:45 pm