Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Interchange the position of date.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
thilakvs
Warnings : 1

New User


Joined: 07 Aug 2007
Posts: 27
Location: chennai

PostPosted: Wed Feb 27, 2008 12:42 pm    Post subject: Interchange the position of date.
Reply with quote

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
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 27, 2008 12:55 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
thilakvs
Warnings : 1

New User


Joined: 07 Aug 2007
Posts: 27
Location: chennai

PostPosted: Wed Feb 27, 2008 1:09 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 27, 2008 1:26 pm    Post subject:
Reply with quote

What is the LRECL of your record ?
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Feb 27, 2008 2:36 pm    Post subject:
Reply with quote

thilakvs wrote:
I am getting the Message "FIELD OUTSIDE RANGE".
Do a favor for all of us, please post the entire sysout......
Back to top
View user's profile Send private message
thilakvs
Warnings : 1

New User


Joined: 07 Aug 2007
Posts: 27
Location: chennai

PostPosted: Wed Feb 27, 2008 3:21 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 27, 2008 3:48 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
thilakvs
Warnings : 1

New User


Joined: 07 Aug 2007
Posts: 27
Location: chennai

PostPosted: Wed Feb 27, 2008 3:58 pm    Post subject:
Reply with quote

ok i got it..Thank you... icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 8 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us