Sorry Kolusu,
I should have sent all the JCL and SORT control cards:
//SYMNAMES DD DISP=SHR,DSN=&SORTINPT(HEADER)
// DD DISP=SHR,DSN=&SORTINPT(TYPED)
// DD DISP=SHR,DSN=&SORTINPT(TYPEV)
// DD *
TMP-DCVVLCAP,*,8,BI
TMP-DCVVLCAP1,=,4,BI
TMP-DCVVLCAP2,*,4,BI
TMP-DCVALLOC,*,8,BI
TMP-DCVALLOC1,=,4,BI
TMP-DCVALLOC2,*,4,BI
/*
//SYSIN DD *
OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
INREC OVERLAY=(TMP-DCVVLCAP:8Z,
TMP-DCVVLCAP2:DCVVLCAP
TMP-DCVALLOC:8Z,
TMP-DCVALLOC2:DCVALLOC)
SORT FIELDS=(DCVSGTCL,A)
SUM FIELDS=(TMP-DCVVLCAP,
TMP-DCVALLOC)
OUTREC BUILD=(1,4,
DCVSGTCL,
X,
TMP-DCVVLCAP,TO=ZD,LENGTH=16,
X,
TMP-DCVALLOC,TO=ZD,LENGTH=16)
/*
the sort sysout error:
ICE280I 1 ORIGINAL STATEMENTS FROM SYSIN FOLLOW
OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
INREC OVERLAY=(TMP-DCVVLCAP:8Z,
TMP-DCVVLCAP2:DCVVLCAP
TMP-DCVALLOC:8Z,
TMP-DCVALLOC2:DCVALLOC)
SORT FIELDS=(DCVSGTCL,A)
SUM FIELDS=(TMP-DCVVLCAP,
TMP-DCVALLOC)
OUTREC BUILD=(1,4,
DCVSGTCL,
X,
TMP-DCVVLCAP,TO=ZD,LENGTH=16,
X,
TMP-DCVALLOC,TO=ZD,LENGTH=16)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
INREC OVERLAY=(TMP-DCVVLCAP:8Z,
TMP-DCVVLCAP2:DCVVLCAP
$
ICE805I 1 JOBNAME: SJ81424D , STEPNAME: SORT003
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE283A 0 SYMBOL, SYNTAX OR DELIMITER ERROR
ICE287A 0 ONE OR MORE ERRORS ENCOUNTERED DURING SYMBOL SUBSTITUTION
ICE751I 0 C5-I90068 E7-I76949
ICE052I 3 END OF DFSORT
As I said in in my previous email, the "$" sing is bellow de "D" after the
":", and that baffles me because that particular symbol is defined in the
TYPEV copybook
Regards,
Jack
On Thu, 15 Dec 2022 at 16:58, Sri h Kolusu <[email protected]> wrote:
> >> It is giving an error that is baffling me:
>
> Jack,
>
> Did you define the symbols correctly ? I changed the SYMNAMES to add the
> temp fields.
>
> // DD *
> SKIP,2
> TMP-DCVVLCAP,*,8,BI
> TMP-DCVVLCAP1,=,4,BI
> TMP-DCVVLCAP2,*,4,BI
> TMP-DCVALLOC,*,8,BI
> TMP-DCVALLOC1,=,4,BI
> TMP-DCVALLOC2,*,4,BI
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
