Pull & Enter

[rajesh082]

I am calling a External function as below:-
Char = #rdparms(ENVI CHA Instltr)
Pull MSG1

In the #rdparms I am setting the value of MSG1. The problem is while executing the Exec, I have to hit an extra "Enter" to pull the MSG1.

How can I avoid this?

 

[rexxhead]

What does #rdparms look like?

In any case, I would do it this way:

address TSO
"NEWSTACK"
Char = #rdparms(ENVI CHA Instltr)
do queued()
   Pull MSG1
end /* queued */
"DELSTACK"

You only expect one line to come back, right? If #rdparms sends back n lines, this discards n-1 lines and keeps one.


Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com