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 search a particular charater in a Given word in EZT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
amit_tater

New User


Joined: 22 Dec 2006
Posts: 9
Location: Indore

PostPosted: Thu Mar 15, 2007 11:11 am    Post subject: How to search a particular charater in a Given word in EZT
Reply with quote

How to search for a particular charater in a Given word in EZT. We may have single or multiple occurence.
Back to top
View user's profile Send private message

IQofaGerbil

Active User


Joined: 05 May 2006
Posts: 183
Location: Scotland

PostPosted: Thu Mar 15, 2007 5:05 pm    Post subject: Re: How to search a particular charater in a Given word in E
Reply with quote

by searching for it?
in this case looking for a comma ','
Code:

   SCAN-COMMA-NAME        1     30  A               
      SCAN-FIELD  SCAN-COMMA-NAME    1   A  OCCURS 30
   SUB                    W      3  N  VALUE 1   
   
JOB

SCAN-COMMA-NAME = ' '               
SCAN-COMMA-NAME = field to be tested     
 
PERFORM STRIP-COMMA             

STRIP-COMMA. PROC                                               
   SUB = 1                                           
   DO WHILE SUB < 31                                             
      IF SCAN-FIELD (SUB) = ','                       
         do something                     
      END-IF                                         
      SUB = SUB + 1                                   
   END-DO                                             
END-PROC                                             
*                                                     
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Overlaying one set of charater values... Kevin Lindsley SYNCSORT 7 Sat Nov 05, 2016 3:21 am
No new posts Search a Load Module sreekanth1984 TSO/ISPF 8 Tue Jun 07, 2016 8:45 pm
No new posts Copy one PDS to another PDS based on ... alluri12 JCL & VSAM 10 Tue Sep 29, 2015 8:10 pm
No new posts Select "SECOND WORD" in tex... jackare SYNCSORT 3 Fri Aug 07, 2015 8:17 pm
No new posts Search and replace the key in the report V S Amarendra Reddy SYNCSORT 1 Thu Jul 09, 2015 7:41 pm


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