GENERATE COMPARISON STATEMENTS USING REXX

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

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.

enrico-sorichetti · Posted: Mon Sep 14, 2009 12:18 pm

cerainly yes, if You have the proper rexx skills

I might have somewhere a snippet to do something similar,
if I can find it i' ll post it later

MARINA JOSEPH · New User Joined: 11 Jun 2009 Posts: 61 Location: chennai

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

Thanks.

enrico-sorichetti · Posted: Mon Sep 14, 2009 12:28 pm

Escapa · Posted: Mon Sep 14, 2009 12:32 pm

dick scherrer · Posted: Mon Sep 14, 2009 7:26 pm

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).