Program hang with REXX

[jivetrky]

I have a REXX using panels to gather information from the user to build JCL for them. I'm running into a problem. After the user enters their information, they have to press the enter key twice to have it to go on. I've tried to use the following:

"ISPEXEC CONTROL DISPLAY LOCK"

before I display the panel. This causes my program to go into a loop.

Does anyone know what causes this? What do I need to do to have the user to press the enter key once to go to the next step?

 

[rexxhead]

Are you using EXECIO to build the JCL or a skeleton?

If EXECIO, this may be your problem: you've queued the lines of JCL and you write them by

EXECIO * DISKW ....

Unless you have queued a null line at the bottom of the queue, EXECIO writes all your text and then opens the keyboard for more input.

The easiest fix is to queue a null line, but the BEST fix is to

"EXECIO" queued() "DISKW ...."

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[anv2005]

Do you want to post your REXX code? It seems like an error within your REXX exec.

The sample code below displays three ISPF panels:

/* rexx */
panels = 'panel1 panel2 panel3'
Do i = 1 to Words(panels)
the_panel = subword(panels, i, 1)
address ISPEXEC "display panel("the_panel")"
If Rc > 0 then /* Did user want to exit? */
Return 4 /* Yes, Exit immediately */
end

/*** process collected data here ***/

Return 0

 

[jivetrky]

That was it rexxhead. I knew it was something simple. Thanks for everyones help.