View previous topic :: View next topic
|
Author |
Message |
Neena John
New User
Joined: 20 Nov 2008 Posts: 13 Location: bangalore
|
|
|
|
I have one requirement to sort a date which is in s9(07) comp-3 format into ascending order.
So first i tried to convert these dates into readable format.
The job step is
Code: |
//STEP02 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TESTAPS.AAA.PSFM100,DISP=SHR
//SORTOUT DD DSN=TESTGEN.AAA.CY2009.PSFM1001,
// DISP=(,CATLG,DELETE),
// UNIT=TSTPK,
// SPACE=(CYL,(25,25),RLSE)
//*
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,57,58,4,PD,M26,SIGNS=(,-))
/*
|
Here the input file TESTAPS.AAA.PSFM100 is VB. The position I need to sort is 55-58 which is 4 bytes. Since it is VB it will be 58-61 ie addition of 4 bytes.
The job is abending with ABEND=S000 U0016 REASON=00000000 .
Can anyone please tell me how to proceed. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Neena John wrote: |
The job is abending with ABEND=S000 U0016 REASON=00000000 .
Can anyone please tell me how to proceed. |
Does the sysout not give you any clues as to why ............ because we can't see it, and without it we know nothing.
Psychic day was yesterday this week. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Neena John wrote: |
I have one requirement to sort a date which is in s9(07) comp-3 format into ascending order. |
If so, why do you want to convert them in "displayable format"? |
|
Back to top |
|
|
Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007 Posts: 496 Location: USA
|
|
|
|
Neena John wrote: |
The position I need to sort is 55-58 which is 4 bytes. Since it is VB it will be 58-61 ie addition of 4 bytes. |
Then wouldn't that make the positions 59-62? Perhaps your abend is related to the incorrect field specified? Please post the SORT messages so that we can see what the real problem is. |
|
Back to top |
|
|
|