View previous topic :: View next topic
|
Author |
Message |
vpalanivelu
New User
Joined: 24 Feb 2009 Posts: 14 Location: chennai
|
|
|
|
Input - FB/80
Code: |
ID : ABC /* KEY */
A123
A345
ID : ABC /* KEY */
678H
T789
ID : CDE /* KEY */
F768
T789
U890
ID : CDE /* KEY */
G890
7890
ID : FGH /* KEY */
6789
ID : IJK /* KEY */
8990
0569
|
Output FB/80
Code: |
ABC A123
ABC A345
ABC 678H
ABC T789
CDE F768
CDE T789
CDE U890
CDE G890
CDE 7890
FGH 6789
IJK 8990
IJK 0569
|
The key (1,3) position however in some records it wnt be there. Once it got changed we need to group them in to other. with the word "ID :" we can identify the key. Please look over this ! |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Hi below solution will give you required output...
but please not that as you have mentioned op as FB and lrecl=80,
and in output you want 3bytes of from header and 3 spaces after that,
you will loose last 6 bytes of detail line from input file..
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ID : ABC /* KEY */
A123
A345
ID : ABC /* KEY */
678H
T789
ID : CDE /* KEY */
F768
T789
U890
ID : CDE /* KEY */
G890
7890
ID : FGH /* KEY */
6789
ID : IJK /* KEY */
8990
0569
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'ID :'),PUSH=(81:6,3)),
IFTHEN=(WHEN=NONE,BUILD=(81,3,3X,1,74))
OUTFIL INCLUDE=(7,4,CH,NE,C'ID :')
/*
|
|
|
Back to top |
|
|
vpalanivelu
New User
Joined: 24 Feb 2009 Posts: 14 Location: chennai
|
|
|
|
I'm getting a SYNTAX error in INREC. I ve used the same code |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
vpalanivelu wrote: |
I'm getting a SYNTAX error in INREC. I ve used the same code |
Post your output. |
|
Back to top |
|
|
vpalanivelu
New User
Joined: 24 Feb 2009 Posts: 14 Location: chennai
|
|
|
|
we are having 1 SYNCSORT FOR Z/OS 1.2.2.1R .. will it support WHEN=GROUP, If not plz provide some other solutions |
|
Back to top |
|
|
vpalanivelu
New User
Joined: 24 Feb 2009 Posts: 14 Location: chennai
|
|
|
|
Code: |
SYNCSORT FOR Z/OS 1.2.2.1R U.S. PATENTS: 4210961, 5117495 (C)
SYSIN :
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'ID :'),PUSH=(81:6,3)),
*
IFTHEN=(WHEN=NONE,BUILD=(81,3,3X,1,74))
OUTFIL INCLUDE=(7,4,CH,NE,C'ID :')
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
|
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Since IFTHEN is not available on you old release, try TRAILER3....... |
|
Back to top |
|
|
Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007 Posts: 496 Location: USA
|
|
|
|
IFTHEN is supported in SyncSort for z/OS 1.2.2.1. However, support for WHEN=GROUP was included as of SyncSort for z/OS 1.3.2.0. |
|
Back to top |
|
|
vpalanivelu
New User
Joined: 24 Feb 2009 Posts: 14 Location: chennai
|
|
|
|
IFTHEN is permitted however WHEN=GROUP is not supporting as we are using older version. I ve done with that by easytrieve.
Thank you one and all.
One more question usign TRAILER3 we can have the totals by SECTIONS right? How it will be helped here ? |
|
Back to top |
|
|
|