How to COPY VSAM file to FLAT file

Vayunandanrao · New User Joined: 22 Mar 2005 Posts: 9

hi,
How to copy a flat file or(non Vsam) to VSAM file

Great Indian · New User Joined: 05 Apr 2005 Posts: 9

You can use IDCAMS REPRO command to load data from QSAM(PS) to VSAM file.

Here is the JCL for your reference.

//XDWCOPY JOB (0213),'IDCAMS',CLASS=0,MSGCLASS=Z,
// NOTIFY=&SYSUID
//IN1 DD DSN=PBLT.TEST.PS1,DISP=SHR
//OUT1 DD DSN=PGLT.TEST.KSDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(IN1) OUTFILE(OUT1)
/*
//

NOTE: make sure that duplicates should not be there in primary key....if duplicates exist loading will not be successful.

callkris_cit · New User Joined: 22 Apr 2006 Posts: 44

Hi All,

I have the VSAM file. I want to copy that dataset to Flat file without specifying DCB parameter.

My requirements, Flat file should take the VSAM parameters, without specifying DCB parameter.

Please refer below code:

//STEP1 EXEC PGM=IDCAMS
//INDD DD DSN= Input VSAM file name, DISP=SHR
//OUTDD DD DSN= Output Flat file name, DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(2,2)),UNIT=3390
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(INDD) OUTFILE(OUTDD)
/*

rajandhla · Posted: Thu May 25, 2006 9:09 pm

Why can't you specify the DCB parameters for the flat file as VSAM file...............

but No idea about the command to copy the attributes of input file out file..........

regards
jai

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

Hi,

Pollyannaish · Posted: Fri May 26, 2006 11:19 am

Hi

it has been long since i have used this idea.. so not sure whether it will work or not but just give it a try..

DD DSN="new file name",DISP=(NEW,KEEP),
LIKE="a file name for which u want new file to be modelled "

i hope this helps.

if you have any problem let me know..

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

I did something like that just today using SORT. But I had to use the DCB to specify that my OP was PS and our shop uses SMS so I didn't need to use SPACE either.

//s1 exec sort
//sortin dd dsn=vsam.file, disp=shr
//sortout dd dsn=flat.file,dip=(,catlg,delete),dcb=dsorg=ps
//sortin dd *
SORT FIELDS=COPY

Frank Yaeger · Posted: Sat May 27, 2006 8:07 pm

I'm not sure why you would need to use DSORG=PS. I would think that would be the default. Perhaps your site is overriding it somehow.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

I don't know, Frank. When I tried w/o dsorg I got an ESDS ds as OP.

I assumed that sort copied the IP attributes to the OP ds, but you may be right, the site may have overridden it.

Frank Yaeger · Posted: Sun May 28, 2006 8:23 pm

callkris_cit · New User Joined: 22 Apr 2006 Posts: 44

Hi All,

Thanks for all your kind help.

My Requirement was, to Copy all the VSAM file to TAPE.

( Since we should not store the VSAM file directly in to TAPE, We need to convert this VSAM file as FLAT file)

Thats the reason i have asked this question.

Finally i have created a REXX tool, for Copying the VSAM file to Flat file without specifying the DCB parameters explicitly.

Thanks for your help. I am doing some correction in that. I will post that once the problem has been properly resolved.

Thanks
Suresh.

gamarendra · New User Joined: 12 May 2006 Posts: 13 Location: bangalore

Hi,
can't we use

// DCB=(*.VSAMIFile) ???

Frank Yaeger · Posted: Thu Jun 01, 2006 1:20 am