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
 
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 OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts Where is output from PARM ABEXIT (SNA... packerm CA Products 3 Thu Sep 28, 2017 4:06 pm
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am

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