I have a VSAM, KSDS file with the following attributes:
Record Type - FB
Record Length - 300
Key Length - 24
Key Position - 1,24
SHROPTNS(2,3)
I want to update the status of records from 'RS' or 'RB' to 'RC'. Status field position is 60,2.
I am trying to use the below sort with the same file in SORTIN and SORTOUT to do this
//STEP020 EXEC PGM=SORT,PARM=(VSAMIO,RESET)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTLIST DD SYSOUT=*
//SORTIN DD DSN=VSAM.FILE,DISP=SHR
//SORTOUT DD DSN=VSAM.FILE,DISP=SHR
//SYSIN DD *
RECORD TYPE=F,LENGTH=(300)
SORT FIELDS=(1,24,CH,A),EQUALS
OUTREC FIELDS=(1,59,
60,2,CHANGE=(2,C'RS',C'RC',C'RB',C'RC'),NOMATCH=(60,2),
62,239)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTLIST DD SYSOUT=*
//SORTIN DD DSN=VSAM.FILE,DISP=SHR
//SORTOUT DD DSN=VSAM.FILE,DISP=SHR
//SYSIN DD *
RECORD TYPE=F,LENGTH=(300)
SORT FIELDS=(1,24,CH,A),EQUALS
OUTREC FIELDS=(1,59,
60,2,CHANGE=(2,C'RS',C'RC',C'RB',C'RC'),NOMATCH=(60,2),
62,239)
But, I am getting the below error while executing.
SYSIN :
RECORD TYPE=F,LENGTH=(300)
SORT FIELDS=(1,24,CH,A),EQUALS
OUTREC FIELDS=(1,59,
60,2,CHANGE=(2,C'RS',C'RC',C'RB',C'RC'),NOMATCH=(60,2),
62,239)
WER276B SYSDIAG= 1238242, 4306914, 4306914, 3685275
WER164B 65,540K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 156K BYTES RESERVE REQUESTED, 27,972K BYTES USED
WER146B 24K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=F ; LRECL= 300; CISIZE = 4096
WER073I SORTIN : DSNAME=VSAM.FILE
WER237I OUTREC RECORD LENGTH = 300
WER110I SORTOUT : RECFM=F ; LRECL= 300; CISIZE = 4096
WER074I SORTOUT : DSNAME=VSAM.FILE
WER410B 63M BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 26,972K BYTES USED
WER036B G=327
WER177I TURNAROUND SORT PERFORMED
WER255A VSAM LOGICAL ERROR 08 ON OUTPUT
RECORD TYPE=F,LENGTH=(300)
SORT FIELDS=(1,24,CH,A),EQUALS
OUTREC FIELDS=(1,59,
60,2,CHANGE=(2,C'RS',C'RC',C'RB',C'RC'),NOMATCH=(60,2),
62,239)
WER276B SYSDIAG= 1238242, 4306914, 4306914, 3685275
WER164B 65,540K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 156K BYTES RESERVE REQUESTED, 27,972K BYTES USED
WER146B 24K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=F ; LRECL= 300; CISIZE = 4096
WER073I SORTIN : DSNAME=VSAM.FILE
WER237I OUTREC RECORD LENGTH = 300
WER110I SORTOUT : RECFM=F ; LRECL= 300; CISIZE = 4096
WER074I SORTOUT : DSNAME=VSAM.FILE
WER410B 63M BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 26,972K BYTES USED
WER036B G=327
WER177I TURNAROUND SORT PERFORMED
WER255A VSAM LOGICAL ERROR 08 ON OUTPUT
Can anyone suggest me what changes i have to make in my sort card.
