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
 

 

GENERATE COMPARISON STATEMENTS USING REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
MARINA JOSEPH

New User


Joined: 11 Jun 2009
Posts: 61
Location: chennai

PostPosted: Mon Sep 14, 2009 12:14 pm    Post subject: GENERATE COMPARISON STATEMENTS USING REXX
Reply with quote

Hi all,

Is it possible to generate comparison statements if the copybook structure is given using REXX?



For instance

COPYBOOK1

WS-NAME

WS-AGE

WS-DOB



COPYBOOK2

FS-NAME

FS-AGE

FS-DOB



It should generate statements as below:-



IF WS-NAME = FS-NAME

PRINT “EQUAL”

ELSE

PRINT “UNEQUAL”



IF WS-AGE = FS-AGE

PRINT “EQUAL”

ELSE

PRINT “UNEQUAL



IF WS-DOB = FS-DOB

PRINT “EQUAL”

ELSE

PRINT “UNEQUAL”



Thanks.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Mon Sep 14, 2009 12:18 pm    Post subject: Reply to: GENERATE COMPARISON STATEMENTS USING REXX
Reply with quote

cerainly yes, if You have the proper rexx skills icon_biggrin.gif

I might have somewhere a snippet to do something similar,
if I can find it i' ll post it later
Back to top
View user's profile Send private message
MARINA JOSEPH

New User


Joined: 11 Jun 2009
Posts: 61
Location: chennai

PostPosted: Mon Sep 14, 2009 12:21 pm    Post subject:
Reply with quote

I am not expert in REXX.
Just have done 1 or 2 programs.
Could you please give a sample script?

Thanks.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Mon Sep 14, 2009 12:28 pm    Post subject: Reply to: GENERATE COMPARISON STATEMENTS USING REXX
Reply with quote

Quote:
I am not expert in REXX.
Just have done 1 or 2 programs.

I guess that it would not be enough...
I' ll post anyway
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Mon Sep 14, 2009 12:32 pm    Post subject:
Reply with quote

Quote:
I am not expert in REXX.
Just have done 1 or 2 programs.

It is more of logic than REXX abilities...
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Mon Sep 14, 2009 7:26 pm    Post subject:
Reply with quote

Hello,

Is this part of the similar topic currently active in the dfsort part of the forum?

If the input is delimited data, this will probably not be much use. . .

If this is for the same requirement, suggest you do the unstring and compare the bytes in each field to identify the unequal byte(s) (unless the requirement has changed).
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts REXX compiled via RXTCOMP sergeyken CLIST & REXX 7 Tue Feb 07, 2017 9:41 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm


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