| View previous topic :: View next topic |
| Author |
Message |
expat
Intermediate
Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
|
 Posted: Tue May 22, 2007 8:07 am Post subject: |
 |
|
I think that I may be tempted to convert the input file to VB during the sort.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ? |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12388
Topics: 75
Location: San Jose
|
| Posted: Tue May 22, 2007 8:57 am Post subject: |
|
|
vkphani,
IMHO the problem lies with the cluster definition. It is missing a REUSE parameter.
Run the following JCL and see if it works
| Code: |
//STEP0100 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL (VSAM) CLUSTER PURGE;
DEFINE CL (NAME(VSAM) -
INDEXED -
KEYS (27 0)-
RECSZ(50 1400) -
FSPC(55 10) -
VOL(CPDB01) -
SUBAL -
SPEED -
REUSE -
SHR (3 3) -
CYL (05 3)) -
DATA (NAME(VSAM.DATA) -
CISZ(8192)) -
INDEX (NAME(VSAM.INDEX) -
CISZ(2048));
/*
//STEP2 EXEC PGM=SORT,PARM='VSAMEMT=YES',COND=(0,NE)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Flat file,DISP=SHR
//SORTOUT DD DSN=VSAM file,DISP=SHR
//SYSIN DD *
RECORD TYPE=F
SORT FIELDS=(01,27,CH,A)
/*
|
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Bill Dennis
Advanced
Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA
|
| Posted: Tue May 22, 2007 12:49 pm Post subject: |
|
|
| Nic Clouston wrote: | | how do bytes 1-4 get populated? |
For VSAM, the record length is kept separate from the record itself. There is no RDW like on QSAM. It gets tacked on if you unload back to QSAM.
vkphani,
Perhaps there are dupes which would cause an out-of-seq condition??
_________________
Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
| Back to top |
|
|
amargulies
Beginner
Joined: 10 Jan 2007
Posts: 123
Topics: 0
|
| Posted: Tue May 22, 2007 12:53 pm Post subject: |
|
|
| Quote: | I am getting the below error. | Code: |
WER255A VSAM LOGICAL ERROR 0C ON OUTPUT |
|
vkphani,
The most common cause for this problem is when the VSAM dataset was created with the REUSE option, and the SyncSort installation option (or run-time parameter) RESET is not in effect. I would suggest that you try passing the parm RESET to the job.
_________________
Alissa Margulies
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12388
Topics: 75
Location: San Jose
|
| Posted: Tue May 22, 2007 1:08 pm Post subject: |
|
|
| Quote: |
vkphani,
The most common cause for this problem is when the VSAM dataset was created with the REUSE option,
|
amargulies,
The OP's initial post does NOT have REUSE option in his cluster definition.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
amargulies
Beginner
Joined: 10 Jan 2007
Posts: 123
Topics: 0
|
| Posted: Tue May 22, 2007 2:42 pm Post subject: |
|
|
Kolusu,
| Quote: | The OP's initial post does NOT have REUSE option in his cluster definition.
|
Ah, you are correct. Sorry, I missed that.
vkphani,
According to DFSMS Macro Instructions for Data Sets, the VSAM Logical Error 0C on output indicates that either a record was trying to be stored out of ascending sequence or that a duplicate key exists for that record.
However, if neither is the case, then we may need to review a dump to see what the underlying issue is.
If none of the recommendations in the previous posts rectify the issue, then please contact me offline so we can acquire the necessary diagnostics to resolve the issue for you.
Best Regards,
Alissa
_________________
Alissa Margulies
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12388
Topics: 75
Location: San Jose
|
| Posted: Tue May 22, 2007 3:06 pm Post subject: |
|
|
vkphani,
As bill pointed out may be you have duplicates in your flat files.
add this statement to your sort step
| Code: |
//SYSIN DD *
OPTION EQUALS
RECORD TYPE=F
SORT FIELDS=(01,27,CH,A)
SUM FIELDS=NONE
/*
|
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
vkphani
Intermediate
Joined: 05 Sep 2003
Posts: 483
Topics: 48
|
| Posted: Tue May 22, 2007 11:34 pm Post subject: |
|
|
Hello everybody,
Thanks a lot for your replies. I redefined my cluster with REUSE option and used the sort card given by Kolusu and it worked well. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
