Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 TBSARG - Deleting the search criteria... ISPFHerc TSO/ISPF 5 Thu Dec 14, 2017 8:18 am
No new posts HEX value search in a DB2 query maxsubrat DB2 2 Wed Oct 04, 2017 3:04 pm
No new posts Search for a string in many PDS KARTHIGADEVI CLIST & REXX 5 Fri Sep 08, 2017 2:32 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm
No new posts Overlaying one set of charater values... Kevin Lindsley SYNCSORT 7 Sat Nov 05, 2016 3:21 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us