jagadeshdvn
New User
Joined: 27 Jun 2005 Posts: 12 Location: East Hartford
|
|
|
|
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!! |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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. |
|