IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

String Comparision


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Thu Mar 26, 2009 12:15 am
Reply with quote

I have to make a check in cobol program.
I have two vatiables,
Var-1 PIC X(7)
Var-2 PIC X(50)

In Var-2, Var-1 is present from 8th Character.
I have to check if Var-1 is present in Var-2, then i have to take Var-2 in file, other wise drop that.

EX:
Var-1 = 'CHANGE XXXXXXX YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY'
Var-2 = 'XXXXXXX'

If Var-2 is samilar to Var-1(8,7), then i have to process furthur
i had put that in IF condition.

IF (COND)

What is the COND to compare like this.

Thanks in Advance.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Mar 26, 2009 12:21 am
Reply with quote

Hello,

You can do what you want using Reference Modification. Something like:
Code:
IF VAR-2(8:7) = VAR-1


At the top of the page is a link to IBM Manuals. Among them are COBOL Language Reference manuals for current compilers. Search for refeence modification in any of them for more details.

The posted examples are not consistent, so i used the field definitons where var-1 is 7 and var-2 is 50. . .
Back to top
View user's profile Send private message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Thu Mar 26, 2009 12:23 am
Reply with quote

Thanks Dick Scherrer..
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts file manager is doing string conversion IBM Tools 3
No new posts Search string in job at regular Spool... CLIST & REXX 0
Search our Forums:

Back to Top