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
 

 

How to find the particular word?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
manojkumar.sesuraj

New User


Joined: 15 Apr 2009
Posts: 43
Location: Mumbai

PostPosted: Mon Sep 21, 2009 9:20 am    Post subject: How to find the particular word?
Reply with quote

Hi,
I have a dataset of LRECL 80. I want to remove records, if the positions from 10 to 40 has contained value '123'. For example,
Input file:
-----------
abcdefghijklmnop123
abcdefghijsnop123
abcdefghijkp123
zzzzzzzzzzdfafsdfasdf
abcdefghidghjklmnop123
abcdefghijklmsdfsdfhhnop123
abcdefghijklmnop

Output file:
-------------
zzzzzzzzzzdfafsdfasdf
abcdefghijklmnop

Is there any looping conditions in DFSORT will help on this?
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Mon Sep 21, 2009 11:20 am    Post subject:
Reply with quote

Hi Manoj,

I'm not sure I understand what you mean by "any looping condition" but here is something that might assist
Code:
//STEP0001 EXEC PGM=SORT                       
//SYSOUT   DD SYSOUT=*                         
//SORTIN   DD *                               
ABCDEFGHIJKLMNOP123                           
ABCDEFGHIJSNOP123                             
ABCDEFGHIJKP123                               
ZZZZZZZZZZDFAFSDFASDF                         
ABCDEFGHIDGHJKLMNOP123                         
ABCDEFGHIJKLMSDFSDFHHNOP123                   
ABCDEFGHIJKLMNOP                               
/*                                             
//SORTOUT  DD SYSOUT=*                         
//SYSIN    DD *                               
  OPTION COPY                                 
  OMIT COND=(10,31,SS,EQ,C'123')               


Gerry
Back to top
View user's profile Send private message
manojkumar.sesuraj

New User


Joined: 15 Apr 2009
Posts: 43
Location: Mumbai

PostPosted: Mon Sep 21, 2009 11:37 am    Post subject:
Reply with quote

Thanks Gerry... It works... icon_smile.gif
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts How to find the first monday of the w... abdulrafi COBOL Programming 10 Fri Nov 25, 2016 3:24 pm
No new posts Find out a active PGM jpsager JCL & VSAM 10 Fri Oct 07, 2016 4:32 pm


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