View previous topic :: View next topic
|
Author |
Message |
Rajeev_mainframe
New User
Joined: 21 Aug 2006 Posts: 13
|
|
|
|
I saw this code delete specific records from VSAM file. I tried doing it and it is actually deleting the records from VSAM but everytime my job is abending with below error message
VSAM LOGICAL ERROR 0C ON OUTPUT
SYNCSMF CALLED BY SYNCSORT; RC=0000
SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
The JCL looks like:
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=VSAM.DATASET,DISP=SHR
//SORTOUT DD DSN=VSAM.DATASET,DISP=SHR
//SYSIN DD *
OPTION VSAMIO,RESET
OMIT COND=(14,9,CH,EQ,C'544628DQ0')
SORT FIELDS=(3,1,BI,A)
RECORD TYPE=V
/*
|
since Record type is V I am adding 4 bytes to the position. and for SORT Field this was the explanation given:
Sorting on the 3rd byte of the RDW and using EQUALS - since the third byte of the RDW is always X'00', this will ensure that the records that are not omitted are kept in their original order.
Thanks |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
why don't you just do a copy / or is your input the same dsn as output?
why is the 3rd byte of the RDW always x'00'? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Quote: |
since the third byte of the RDW is always X'00' |
One of these days you'll run into VBS (variable, blocked, spanned) record format for files and are you going to be surprised. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
thank you Peter. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
dbzTHEdinosauer wrote: |
thank you Peter. |
Well we are almost neighbours, so we should help each other. |
|
Back to top |
|
|
|