IBM Mainframe Forum

Hi,
I have this requirement to create a tool using REXX wherein user will provide Header Variables and then REXX will calculate its length and provide to output.

Input:


Output should be


where, WS-HEADER AND WS-HDR* variables will be constant.

I am new to REXX. Kindly assist.

Thank you in advance!

Code'd

I think you'll have to provide a number of worked examples, and explain why this is needed.

does not seem overly complicated to me



to obtain

But what is going to be done with that, and how will it be used?

It gets a piece of data like this, for the example:



For a different user, different output:



Without knowing the data-layout for each case, how will the data be used? If it is just some static data to mark the owner of a program, it can just be done as comments. If it is to be used, how will it be used without tortuous code?

my understanding is that the TS has some constants to be spread into some cobol declares
so no reason to investigate further

Looks to me like an ill-thought waste of time, but at least they got some nice code from it

There can only be one of these per program (the names cannot be made unique, so the data can't be referenced), so must be for different programs. Since they can't be used programatically in a sensible way as they stand, there seems little point. If they are just to assign personnel, better as generated comments.

Anyway, they've put such effort into it, I suspect the Tool will make it, whatever it is supposed to do.

what I find odd is the need to ask on a forum how to solve such a simple problem!

re: the need to ask

FYI: from the page title: "IBM MAINFRAME FORUM, A Help & Support Forum for Mainframe Beginners and Students"

As a beginner, the OP probably does not understand the problem well enough to ask the right question.

My guess is he wants to use the field names as the labels and to use a max length of the field:

My guess is he wants to use the field names

I beg to disagree

the output sample posted seemed clear enough

Output should be

Select all

01 WS-HEADER.
05 WS-HDR1 PIC X(04) VALUE 'Name'.
05 WS-HDR2 PIC X(07) VALUE 'Contact'.
05 WS-HDR3 PIC X(12) VALUE 'AddressLine1'.
05 WS-HDR4 PIC X(12) VALUE 'AddressLine2'.

the output sample posted seemed clear enough

Yeah, you guys answered the question that was asked. but you also belittled him for even asking the question. My assumption is that he is not experienced enough to ask the right question, nor to give the right sample results.