Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
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
References
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4684
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
Moved: Mon Oct 08, 2007 12:19 am by superk From DFSORT/ICETOOL to JCL
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1