Passing a variable/value to Rexx

ug123 · New User Joined: 01 Mar 2007 Posts: 39 Location: Chennai

Hi all,

this is not as usual but something different.

I have a rexx program which submits the jcl. And in the JCL i have written an eazytrieve where I have introduced a count variable to find the total number of records in a dataset.

Now i have to pass this eazytrieve variable again to the same rexx code for further processing.

Could anyone help me out to pass the variable/value to the rexx program.

This is my eazytrieve

FILE INPUT1
*
WS-RECCOUNT W 15 N VALUE 0
*
JOB INPUT INPUT1 FINISH PRINT-PARA
WS-RECCOUNT = WS-RECCOUNT + 1
GOTO JOB
PRINT-PARA. PROC
DISPLAY 'NO OF RECORDS:' WS-RECCOUNT
END-PROC.

Thanks,
Ugandar

Craq Giegerich · Posted: Wed Jun 24, 2009 1:29 am

You can't. What happens if the job you submitted doesn't run for 4 hours.

prino · Posted: Wed Jun 24, 2009 1:29 am

dick scherrer · Posted: Wed Jun 24, 2009 1:35 am

Hello,

Hopefully, you do not intend for an online rexx to wait for the batch job to run. . .

Suggest you end the first rexx when the job is submitted and at the end of the batch easytrieve, invoke rexx in batch. The easytrieve process would write the count into a dataset to be read/used by the batch rexx.

ug123 · New User Joined: 01 Mar 2007 Posts: 39 Location: Chennai

Wow!!! I hope calling rexx in batch will help me. thanks for your info... i will try and let you know. once again thank you very much...

regards,
Ugandar

superk · Posted: Wed Jun 24, 2009 2:00 am

ug123 · New User Joined: 01 Mar 2007 Posts: 39 Location: Chennai

Hi,

I am not able to display the value in the screen when I run the rexx in batch mode.

I could see only in the spool. Is there any other way to display the value in screen.

Thanks,
Ugandar

expat · Posted: Wed Jun 24, 2009 11:20 am

Robert Sample · Posted: Wed Jun 24, 2009 5:09 pm

expat, maybe through a scheduler -- something like CA-7 or Zeke or ... ?

dick scherrer · Posted: Wed Jun 24, 2009 8:40 pm

Hello,

d_pansare · New User Joined: 25 Apr 2009 Posts: 20 Location: Pune

If you just want to count the records in Ezytrv and then display it on screen using rexx then in such scenario why don't you let rexx do both the things for you.. get the count from rexx itself and use it further down the lane for whatever process you want....

expat · Posted: Thu Jun 25, 2009 5:54 pm

For a start REXX is one of the slowest and highest resouce comsumers for heavy IO. So would use far more resource and take longer than most other methods.

In addition as the OP is talking about getting the result back to the screen it would appear that this REXX will be processed in foreground, thus locking the terminal from being used by anything else for the duration of this process.

Had you have bothered to search the forum before answering you would have found that this topic has been discussed numerous times before and as always is given the thumbs down as a method of doing what the OP wants. Although REXX can invoke many other programs or utilities to perform the count and return the value, this still locks the terminal and prevents work.

d_pansare · New User Joined: 25 Apr 2009 Posts: 20 Location: Pune

dick scherrer · Posted: Fri Jun 26, 2009 2:24 am

Hello,

ug123 · New User Joined: 01 Mar 2007 Posts: 39 Location: Chennai

Hi all,

I tried to count the total number of records using REXX program. But it helps only if the dataset has less than 2 lakhs of records. If the dataset has more number of records, REXX variable is not able to store and throwing an error message as 'unable to obtain storage'.

Thanks,
Ugandar

dick scherrer · Posted: Fri Jun 26, 2009 2:40 am

Hello,

You should not be running this in rexx. . . .

d_pansare · New User Joined: 25 Apr 2009 Posts: 20 Location: Pune

enrico-sorichetti · Posted: Fri Jun 26, 2009 1:54 pm

expat · Posted: Fri Jun 26, 2009 2:06 pm

And also pay attention to the comment of Dick above.

I await your reply to Enricos request eagerly, having processed files of over 10Mb in the past.

d_pansare · New User Joined: 25 Apr 2009 Posts: 20 Location: Pune

Apologies.. I quoted the wrong figure..

Here is the snapshot of what is mentioned in TSO/E REXX reference manual..

<<<<<<<<<<<<<<<<<<<<<<

There is no limit to the length of the values of variables, as long as all variables fit
into the storage available.
Implementation maximum: No single request for storage can exceed the fixed
limit of 16 MB. This limit applies to the size of a variable plus any control
information. It also applies to buffers obtained to hold numeric results.

>>>>>>>>>>>>>>>>>>>>>>>>

Here is the link ...

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/IKJ4A370/2.0?DT=20060626210253

So if this true then one cannot write the whole file to array if the size is more than 16MB....

Again sorry for the confusion as far as actual storage is concerned...

[/url]

enrico-sorichetti · Posted: Fri Jun 26, 2009 4:36 pm

do a bit of rereading, please
the 16MB limit is for a single variable, not for an array ( wrong term anyway ) as a whole
each entry of an array ( as You call it ) is a variable

( the right term would be a STEMMED variable )

each [stemmed] variable ( apart a few bytes of control info ) can be up to 16 MB

how many variables You can define and use depends on the virtual storage avilable

ug123 · New User Joined: 01 Mar 2007 Posts: 39 Location: Chennai

Dick, I appologies for not responding. Please let me know other than rexx how can we do that...

This is what I am doing currently.
DSN='HLQ.XXXX'
"ALLOC DA('"DSN"') F(OUTDD) SHR"
"EXECIO 0 DISKR OUTDD(OPEN"
"EXECIO * DISKR OUTDD(STEM I."

COUNT = 0
DO LIN = 1 TO I.0
COUNT = COUNT + 1
END
ZEDLMSG = 'TOTAL RECORDS:' || COUNT
"ISPEXEC SETMSG MSG(ISRZ001)"

"EXECIO 0 DISKR OUTDD(FINIS"
"FREE F(OUTDD)"

Please give some code if anything is wrong in the above code.

Thanks,
Ugandar...

enrico-sorichetti · Posted: Fri Jun 26, 2009 8:09 pm

edited to correct my first wrong impression