Interchange the position of date.

thilakvs · New User Joined: 07 Aug 2007 Posts: 27 Location: chennai

I want the date should be in following format

38-39 - YEAR
40-41 - MONTH
42-43 - DATE

Actual format : yymmdd

expected format : mmddyy

OUTREC FIELDS=(1:1,37,38:40,2,40:42,2,42:38,2,44:44,200)

This sort is not working...

how can i get the expected output..???

Thanks

expat · Posted: Wed Feb 27, 2008 12:55 pm

Is your input record FB or VB.

If VB are you sure that you are taking into account the 4 bytes RDW at the start of every record.

What results are you getting - please post

thilakvs · New User Joined: 07 Aug 2007 Posts: 27 Location: chennai

The record is in FB format.

I am getting the Message "FIELD OUTSIDE RANGE".

I guess here is the error

OUTREC FIELDS=(1:1,37,38:40,2,40:42,2,42:38,2,44:44,200)

thanks

expat · Posted: Wed Feb 27, 2008 1:26 pm

What is the LRECL of your record ?

CICS Guy · Posted: Wed Feb 27, 2008 2:36 pm

thilakvs · New User Joined: 07 Aug 2007 Posts: 27 Location: chennai

This is the SYSOUT which i got

SORT FIELDS=(1,4,ZD,A,5,6,ZD,A,11,3,ZD,A)
OUTREC FIELDS=(1:1,37,38:40,2,40:42,2,42:38,2,44:44,200)
WER276B SYSDIAG= 1223610, 2729806, 2729806, 2521063
WER164B 2,384K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 992K BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 200; BLKSIZE= 27800
WER230A OUTREC FIELD OUTSIDE RANGE
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

expat · Posted: Wed Feb 27, 2008 3:48 pm

OUTREC FIELDS=(1:1,37,38:40,2,40:42,2,42:38,2,44:44,200)

Might help you. If the LRECL is only 200 you can not move 200 bytes from byte 44, only the remainder of the record.

You could try 44:200 instead of 44:44,200

thilakvs · New User Joined: 07 Aug 2007 Posts: 27 Location: chennai

ok i got it..Thank you...