View previous topic :: View next topic
|
Author |
Message |
raman.k
New User
Joined: 26 Feb 2007 Posts: 24 Location: chennai
|
|
|
|
Hi Every body
the following codine it shown S0C 7 error. how to resolve why it was came
Please advise me
Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=mov123.PS.COBOL,DISP=SHR
//SORTOUT DD DSN=mov123.PS.SSTO,DISP=(MOD,CATLG,DELETE),
// SPACE=(CYL,(1,2),RLSE,MXIG),UNIT=SYSDA
//SYSIN DD *
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=(10,3,PD)
/*
//
|
|
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Simple, find the non-numeric value in the SUM FIELDS=(10,3,PD)....... |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will identify the invalid PD value(s) in TOOLMSG:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//TOOLIN DD *
VERIFY FROM(IN) ON(10,3,PD)
|
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
The OP has a Variable length output, probably input. since he was sorting on the RDW (or RWD or what ever) he probably is off by 4 on his PD field. 14,3,PD |
|
Back to top |
|
|
|