MVSFORUMS.com

[bade_miya]

Hi All,

I am trying to call a cobol date routine from a Rexx program. The parameters passed to the cobol program are

1. Current date format (from 2nd position 3 byte long)
2. Current date
3. Date format to which convertion is to be done.

There are lots of other parameters in the copy book (including the output date) but we need to initialize them and pass the parameters.

For unknown reasons, the code is not working. The cobol code is in production in perfect working condition and hundreds of programs are accessing it. I also dont have access to the source code for the cobol program as it is handled by another team. I am assuming that there should be some problem with my Rexx. I used Trace command and no errors are displayed during execution. I dont know whether the cobol program is getting successfully called or not. Is there any way i can know this. I havent done much of rexx programing. I am attaching my rexx code below

[kolusu]

bade_miya,

When you run a COBOL program from a REXX exec, you need to be aware of the differences in the parameter list formats for using the different "address" options. When you use 'Address TSO' (the default) or 'Address ATTCHMVS', both program parameters and Language Environment run-time options are processed. When using 'Address LINKMVS', run-time options are not processed, but they are passed as program parameters to the COBOL program.

So change your call statement

[Nic Clouston]

Why not use the Rexx Date(0 function to do the conversion for you?
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[Nic Clouston]

Sorry - DATE() not date(0 - these early mornings!
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[bade_miya]

Hi Kolusu, Nic

Thanks for your replies.

Kolusu, I tried your suggestion. but it returned the following error code while execution.

[Nic Clouston]

to get the days since 01/01/1900 is easy enough date(b) of 01/01/1900 subtracted from date(b) of today. By DF9 do you mean FIXED DECIMAL(9) (ie PACKED DECIMAL)? you can do that with a small routine. 9's complement - do not know.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[kolusu]

[bade_miya]

Hi Nic, Kolusu

Thanks for your replies.

Nic, DF9 is a date format just like your mm/dd/yy format. To get this we will first find the number of days from the year 1900 which is 39148. Now we have to get the 9's complement of this. For getting 9's complement of any number just substract the number from as many 9's. In this example 9's complement of 39148 is 99999 - 39148 which is 60851. So the DF9 date for today is 60851.

Kolusu, Thanks for that Rexx code, Eventhough i didnt get the desired results, i tweeked the code to get the DF9 date. You are right, we are only 39147 days away from 1900-01-01. But we have to calculate the number of days from 1900 th year (which include 1900-01-01). So that makes it 39147 + 1 . I am submiting the Rexx code which i tweeked so that it might be useful for some one else in the future.

[bade_miya]

Hi Kolusu,

I was searching in the manuals to find what Date('B',Currdate, 's') does. Couldnt get it. What exactly does the parameters "B" and "S" stand for?

Thanks & Regards
bade_miya

[Nic Clouston]

just to make it more unreadable you can skip the calculation of CURRDATE and use DATE(S) inside the the date function:

DATE('B',DATE('S'),'S')
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[kolusu]

[bade_miya]

Thanks Kolusu.