MVSFORUMS.com

Brian · Beginner Joined: 12 Aug 2003 Posts: 95 Topics: 6

Any utility (apart from IDCAMS/ADRDSSU) will help me copy an empty ESDS to a PS and give me a zero return code if the file is empty ?

Cheers
Brian

kolusu · Posted: Thu Jul 22, 2004 4:13 am Post subject:

Brian,

You can use SORT utility to copy an empty vsam cluster using the parm VSAMEMT . This parm determines how an empty VSAM input data set will be processed. If VSAMEMT=YES, an empty VSAM data set will be processed as legitimate data set contain 0 records, and Sort will end with a return code of 0.

Brian · Beginner Joined: 12 Aug 2003 Posts: 95 Topics: 6

Kolusu,

Thanks for the suggestion. I did try ICEMAN for the copy but the logical record length of the VSAM file is 32760 and i want my output as a VB 32756. I tried a OUTFIL OUTREC=(5,32756),VLFILL=X'40' but looks like ICEMAN cannot process a VB whose record length is greater than 32752.

Is this correct ?
Any way out of this ?

Cheers
Brian

kolusu · Posted: Thu Jul 22, 2004 6:01 am Post subject:

Brian,

For DFSORT , the limitations are

Variable-length records are limited to 32756 bytes.
VSAM variable-length records are limited to 32752 bytes.
Fixed-length records are limited to 32760 bytes.
Variable block-spanned records are limited to 32767 bytes.

Brian · Beginner Joined: 12 Aug 2003 Posts: 95 Topics: 6

Kolusu,
No luck or am i missing something. My input is a ESDS with lrecl=32760 and i want an output PS with VB LRECL=32756.

I coded a OPTION COPY with a OUTFIL FTOV OUTREC=(5,32752) but still am getting the reformatting error.

any clues plz

Cheers
Brian

kolusu · Posted: Thu Jul 22, 2004 7:13 am Post subject:

Brian,

It would be nice if you had posted the error messages. Post the messages from sysout

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Brian · Beginner Joined: 12 Aug 2003 Posts: 95 Topics: 6

Kolusu,

Appreciate your help. This is my sysout.

Brian · Beginner Joined: 12 Aug 2003 Posts: 95 Topics: 6

Kolusu,

Thanks again for your help.

I dont know if what i did was correct but this is what i did. I had a ESDS VSAM input file with a max lrecl=32760 and i had to create a VB PS out of this which has a lrecl of 32756.

Frank Yaeger · Posted: Thu Jul 22, 2004 9:38 am Post subject:

Brian,

OUTREC=(5,32752) specified a position+length greater than 32752 - that's why you got the ICE111A error. OUTREC=(5,32748) does not specify a position+length greater than 32752, so that's ok. It gives you 32748 bytes of your input file starting at position 5.

You set LRECL=32756 - that's the maximum length for your records. Your actual maximum record length will be 32748, but it's ok to have the LRECL greater than the maximum record length.

I'm assuming you wanted to skip the first four bytes of your input records. If not, you could use OUTREC=(1,32752).
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort