how to load data into test database in ims db

cvkumar59 · New User Joined: 25 Aug 2006 Posts: 18

Hi ,
Any one plz help me in loading the data into ims db test data base.
Regards,
Kumars

guptae · Posted: Fri Sep 29, 2006 3:55 pm

Hi Kumar,

Dont U have any online routine to load data otherwise u can download from production & load it to test

cvkumar59 · New User Joined: 25 Aug 2006 Posts: 18

Hi Guptae,

Please be more specific can u explain the same in step by step with options used to load .

guptae · Posted: Fri Sep 29, 2006 4:32 pm

Hi Kumar,

Following post will tell u how to download ims data in to file

ibmmainframes.com/viewtopic.php?t=13025&highlight=dfsrrc00

U can use follwoing jcl to load the data in test region

//LOADA01 EXEC PGM=DFSRRC00,PARM='DLI,XFV,PSSA01A,,,,,,,,,,,N
//STEPLIB DD DSN=IMS6.NOCHECKS,DISP=SHR
// DD DSN=IMSS.RESLIB,DISP=SHR
// DD DSN=WORKLIB,DISP=SHR
//IEFRDER DD DUMMY
//IEFRDER2 DD DUMMY
//DFSRESLB DD DSN=IMSS.RESLIB,DISP=SHR
//IMS DD DSN=QD01.MONACO.DBDLIB.DATA,DISP=SHR
// DD DSN=IMSS.DBDLIB,DISP=SHR
// DD DSN=IMSS.PSBLIB,DISP=SHR
//DSA01 DD DSN=BTSDB.DBSA01.DSA01.BTSV07,DISP=OLD
//DFSVSAMP DD DSN=MSD.CARDLIB(DFSVSM10),DISP=SHR
//INPUT DD DSN=&&LOAD,DISP=(OLD,DELETE)
//TABLE DD DSN=&&TABLE,DISP=(OLD,DELETE)
//STATOUT DD SYSOUT=*
//XCYPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//STATFILE DD DUMMY
//DFSURWF1 DD DUMMY
//*

cvkumar59 · New User Joined: 25 Aug 2006 Posts: 18

Hi ,
Thanks for the reply.
Regards
Kumar