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
 

 

Is it possible to use with Syncsort

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

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 10:59 am    Post subject: Is it possible to use with Syncsort
Reply with quote

I have the input

JCIC-INQ-BARE-V01-A8250580980624
3763111111111NA100002
3763111111112NA200002
3763111111113NA300002
TRLR000001209806241515

I want the ouput

JCIC-INQ-BARE-V01-A8250580980624
NA100002
NA300002
NA400002
TRLR000001209806241515
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jun 25, 2009 11:27 am    Post subject:
Reply with quote

And the question is ?
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 11:50 am    Post subject:
Reply with quote

Hi , sorry

I am in need of the above output .. without using ICETOOL ..

Even if we use 2 steps in a single jcl its ok
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 2:03 pm    Post subject:
Reply with quote

Hi ,

Can anyone help me
Whether it is possible ?
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Thu Jun 25, 2009 2:36 pm    Post subject: Reply to: Is it possible to use with Syncsort
Reply with quote

I would use IFTHEN...something like:

Code:
OUTFIL IFTHEN=(WHEN=(1,2,CH,EQ,C'??'),   
              BUILD=(14,08)),
           IFTHEN=(WHEN=(1,2,CH,NE,C'??'),   
               BUILD=(1,80))                         
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 2:55 pm    Post subject:
Reply with quote

Hi ,

I used the same like
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=(1,4,CH,EQ,C'JCIC'),
BUILD=(1:1,80)),
IFTHEN=(WHEN=(1,4,CH,EQ,C'TRLR'),
BUILD=(1:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:14,8,9:67X))

I got the output
Thank you very much for the help icon_biggrin.gif
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 3:08 pm    Post subject:
Reply with quote

Hi ,

But one small thing

Apart from header and trailer if i want to sort the other records

What should I want to do ?
My input is
JCIC-INQ-BARE-V01-A8250580980624
376
111
367
TRLR000001209806241515

ANd i need the output
JCIC-INQ-BARE-V01-A8250580980624
111
367
376
TRLR000001209806241515

Can anyone pls help me
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 3:09 pm    Post subject:
Reply with quote

The above should be done without using PGM=ICETOOL

Because i am using SYNCSORT sort product
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jun 25, 2009 4:14 pm    Post subject:
Reply with quote

Gay251319 wrote:
Because i am using SYNCSORT sort product
Is this the reason that you can not use ICETOOL?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jun 25, 2009 4:18 pm    Post subject:
Reply with quote

A lot of sites that use SYNCSORT have an alias pointing to the SYNCSORT equivilent - so in fact you would invoke SYNCTOOL and not ICETOOL.
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Thu Jun 25, 2009 4:22 pm    Post subject:
Reply with quote

Hi ,

Actually i dont want to do in ICETOOL
Whether any other option is there?
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Thu Jun 25, 2009 11:07 pm    Post subject:
Reply with quote

Hello,

This is untested, but you can give it a try. I assumed that you need to sort on first 14 chars for detail records. You can modify it as per your requirement.
Code:
//SYSIN DD *
  INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'JCIC'),
               OVERLAY=(81:C'0')),
        IFTHEN=(WHEN=(1,4,CH,EQ,C'TRLR'),
               OVERLAY=(81:C'2')),
        IFTHEN=(WHEN=NONE,
               OVERLAY=(1:14,8,80:X,81:C'1')) 
  SORT FIELDS=(81,1,CH,A,1,14,CH,A)
  OUTFIL BUILD=(1,80)
Back to top
View user's profile Send private message
Gay251319

New User


Joined: 17 Jun 2009
Posts: 57
Location: Kochi

PostPosted: Fri Jun 26, 2009 5:01 pm    Post subject:
Reply with quote

Hi Arun ,

Thanks A lot icon_biggrin.gif

I got the output


Sorry for the delay
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 syncsort: copy lines after the keyword shreya19 SYNCSORT 1 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm
No new posts Syncsort version supporting FINDREP c... juares castro SYNCSORT 9 Tue Aug 09, 2016 6:54 pm


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