MVSFORUMS.com

computer

Hi Everybody,

My requirement is, a REXX program that can convert a cobol copybook into a variables list with there offset position value and length( as we have in Easytrieve program variable declaration).

But the constraint is that I can't submit a job and it's an VSE environment.

Thanks in advance.

CraigG · Posted: Mon Aug 04, 2008 7:27 am Post subject:

I hope you are very familiar with COBOL and REXX!

computer · Posted: Mon Aug 04, 2008 8:06 am Post subject:

Hi,

I am comfortable with Cobol and related to REXX, dont have an expert hand experience.

Please help me.

Thanks

dbzTHEdinosauer · Posted: Mon Aug 04, 2008 8:57 am Post subject:

easy job, you are basically mimicing the compiler.

your constrainst are unrealistic.

do you have access to compile listings that contain these copybooks?
_________________
Dick Brenholtz
American living in Varel, Germany

kolusu · Posted: Mon Aug 04, 2008 10:06 am Post subject:

computer,

Check "Create DFSORT Symbols from COBOL COPYs" in the DFSORT smart tricks which uses a rexx routine to create the symbols from cobol copybook

https://www-304.ibm.com/systems/support/storage/software/sort/mvs/tricks/index.html
_________________
Kolusu
www.linkedin.com/in/kolusu

computer · Posted: Thu Aug 07, 2008 8:09 am Post subject:

Hi,

Kolusu, sorry to say that I have earlier mentioned that 'i can't submit a job'
Thanks for the reply. I got my answer.....and now able to generate variable list with offset and length.

I am facing one more problem, how to read a READERLIST (in VSE env.) if i have been given with JOB name(sorry this question doesn't belong to this group).

Thanks in advance for any help

Santlou · Posted: Sun Aug 31, 2008 1:29 pm Post subject:

computer,

Here is a shortcut that I used in a few of my REXX routines to access offsets.

In your REXX, you can invoke the FileAid Record Layout function. This will provide you with everything you need including datanames, starting position, length, etc.

Then you can read the FileAid record layout report into your REXX. I developed a REXX process that will actually convert the cobol layout to Eztrieve using this method. However, the code is to elaborate to post here.

I hope this helps

acevedo · Posted: Mon Sep 01, 2008 2:07 am Post subject:

computer · Posted: Mon Nov 10, 2008 4:12 am Post subject:

hi,

Santlou, can u please provide the code,
by which u are handling the FILE-AID.....

Acevedo, i dont know how to invoke a batch compiler in rexx in forground mode...please help

Thanks,
Manoj

Santlou · Posted: Thu Nov 13, 2008 6:20 pm Post subject:

Manoj,

Here is what your code should look like to invoke the FileAid Record Layout:

Of course you should tailor the code to meet your own needs, but it should give you the idea.

Nic Clouston · Posted: Fri Nov 14, 2008 2:00 pm Post subject:

Invoking the compiler is the sme as invoking any other program - allocate the files and run the program i.e. have rexx pass it to the command environment which is what rexx does if it does not understand the value - e.g. on PC if you ask rexx to 'CLS' it does not know 'CLS' so it passes it to the operating system which then does a clear screen.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.