IBM Mainframe Forum

Hi,

I am new to Rexx. I have a requirement to create REXX tool to calculate the total record legth of selected portion of layout. Can anyone please help me to do this.


Thanks,
Manju jacob

Hello,

Can anyone please help me to do this.

Not from what you have posted. You need to much more clearly describe what you want to accomplish. . .

Show an example of what you "have" and what you want from what you have.

Hi Dick,

For eg: Following is record layout in COBOL

01 WS-EMPLOYE
05 WS-EMP-ID PIC X(8)
05 WS-NAME PIC X(15)
05 WS-DEPT PIC X(10)
05 WS-SALARY PIC S9(09) USAGE COMP
05 WS-ADDRESS
10 WS-STREET PIC X(10)
10 WS-DOORNO PIC 9(05)
10 WS-POST PIC X(10)

Here, I wanted to calcualte the total length (in byte) from WS-EMP-ID till WS-DOORNO without calculating manually.
i think, now the requirement is clear.

Thanks,
Manju Jacob

Have you also considered what if the COBOL source has REDEFINES in it

Yes...we need to consider redefine & occurs clause also.

Thanks,
Manju jacob

Hello,

I am new to Rexx.

Here, I wanted to calcualte the total length (in byte) from WS-EMP-ID till WS-DOORNO without calculating manually.
i think, now the requirement is clear.

This is not really a task for someone new to rexx. It is actually not a task for most people who are rexx experts unless they are willing to re-create a major portion of the COBOL compiler. . .

If this is something you want running anytime soon, suggest you consider using the output from a compile and manipulating the lengths provided by the compiler to produce the result you want. . .

And the logic of the REXX would also have to take into consideration the different coding methods for defining the same thing

I am not a Cobol user, but some language compilers have some information in their listings. I suggest you have a small program that uses that record layout and then examine the compiler listing. You might also read about the debugging options of the compiler which might give you more information.

Manju Jacob,
Iam also facing the same isssue.Can you figure out my doubt regarding the same, if you have a willingness to help on the same topic, REXX tool to calculate total byte length of record layout.I have mailed detail to Your inbox, but its pending i think... Please help.
Regards,
Stephen Jacob.

Assuming that you want to be able to pass a copybook and have the 'tool' work out the lengths, then expat's solution is the one to go with. If you want to get even more clever, use the ADATA output from the compiler - this is specifically designed to be used by debugging and post-processing tools and saves you having to parse the listing file.