String manupulation in JCL



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

Re: String manupulation in JCL

Postby nikesh_rai » Sun Mar 10, 2013 2:02 pm

Thanks Billy, Kolusu and all, after some minor modification.. the code is working as expected.. thanks again to all of you.. :)
Thanks
Nikesh Rai
nikesh_rai
 
Posts: 192
Joined: Tue Oct 18, 2011 1:27 am
Has thanked: 17 times
Been thanked: 0 time

Re: Re: String manupulation in JCL

 

Re: String manupulation in JCL

Postby dick scherrer » Mon Mar 11, 2013 3:51 am

Hello,

If you post the "minor modifications", you may help someone else later . . . ;)
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: String manupulation in JCL

Postby nikesh_rai » Mon Mar 11, 2013 3:39 pm

Here is the code for reference:

OUTREC IFTHEN=(WHEN=(8,2,FS,EQ,NUM,AND,10,1,CH,EQ,C' '),                           
               PARSE=(%00=(ABSPOS=08,STARTAT=C' W',                   
                           ENDBEFR=C'-',FIXLEN=2),                   
                      %01=(ENDBEFR=C'-',FIXLEN=1),                   
                      %02=(ENDBEFR=C'-',FIXLEN=1),                   
                      %03=(STARTAT=C'P ',ENDAT=C'.',FIXLEN=50)),   
               BUILD=(1,10,11:%00,C'-',%01,C'-',%02,C' ',%03)),


This modification is only for the internal purpose.. otherwise everything I kept same.. :)
Thanks
Nikesh Rai
nikesh_rai
 
Posts: 192
Joined: Tue Oct 18, 2011 1:27 am
Has thanked: 17 times
Been thanked: 0 time

Re: String manupulation in JCL

Postby skolusu » Mon Mar 11, 2013 9:26 pm

nikesh_rai wrote:This modification is only for the internal purpose.. otherwise everything I kept same.. :)


Nikesh_rai,

I am not sure as to why you had abspos=8 when your IFTHEN statement is checking for numerics in position 8. You are also writing the first 10 bytes as is , why do you want ABSPOS to start at 8?

I am guessing that you are using Syncsort and that is the reason you moved the PARSE from INREC to OUTREC as it complains about Potential inefficiency? If you are indeed using syncsort, please post your questions in the syncsort forum.
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Previous

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post