Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Editing in SYNCSORT using OUTREC option

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

New User


Joined: 27 Jun 2005
Posts: 12
Location: East Hartford

PostPosted: Fri Aug 26, 2005 7:26 pm    Post subject: Editing in SYNCSORT using OUTREC option
Reply with quote

Hi All,

Appreciate if anyone can help me in solving the following issue.

My requirement:
I have an input file of Lrecl 320. first 28 & last 273 are characters.
The 19 bytes in between (from position 29 to 48) are 9 bytes of Int and 10 bytes of space.

So, I need these 9 bytes of integer to be converted to a 19 byte display. Please see the syntax used below:

In programs:
INPUT File
01 WS-WORK-FIELDS.
03 FRONT PIC X(28).
03 AMT PIC S9(15)V99 COMP-3.
03 CHAR PIC X(10).
03 END-CHAR PIC X(273).

OUTPUT File
01 WS-WORK-FIELDS.
03 FRONT PIC X(28).
03 AMT PIC X(19).
03 END PIC X(273).

The SYNCSORT sysin:
SORT FIELDS=(81,200,CH,A) * ACCOUNT STRING + DESCRIPTION
OUTREC FIELDS=(1,28,29,9,PD,
EDIT=(SIIIIIIIIIIIIIIT.TT),SIGNS=(,-,,),LENGTH=19,48,273)

I am getting the following error:
******************************************** TOP OF DATA *********************************************
SYNCSORT FOR Z/OS 1.2.0.0R U.S. PATENTS: 4210961, 5117495 (C) 2005 SYNCSO RT INC. DATE=2005/238 TIME=09.37.22
**** SYNCSORT FOR Z/OS R 1.2 **** z/OS 1 .4.0
PRODUCT LICENSED FOR CPU SERIAL NUMBER 169BA, MODEL 2084 305 LICEN SE/PRODUCT EXPIRATION DATE: 02 JAN 2008
SYSIN :
SORT FIELDS=(81,200,CH,A) * ACCOUNT STRING + DESCRIPTION 00010014
OUTREC FIELDS=(1,28,29,9,PD, 00011023
*
EDIT=(SIIIIIIIIIIIIIIT.TT),SIGNS=(,-,,),LENGTH=19,48,273) 00012023
WER271A OUTREC STATEMENT : NUMERIC FIELD ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
******************************************* BOTTOM OF DATA *******************************************

Can anyone help me in locating where I went wrong?

Thanks in advance!!
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Aug 26, 2005 8:34 pm    Post subject:
Reply with quote

Those control statements work fine with DFSORT because it supports up to 16 bytes for PD fields. Syncsort only supports up to 8 bytes for PD fields, so it can't handle 29,9,PD as DFSORT can.
Back to top
View user's profile Send private message
jagadeshdvn

New User


Joined: 27 Jun 2005
Posts: 12
Location: East Hartford

PostPosted: Fri Aug 26, 2005 8:56 pm    Post subject:
Reply with quote

It did help us dude..Thanks A Lot!!
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 DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us