These are quesses.
Perhaps the CL that you think is submitting the batch job is actually calling it.
or perhaps submitted version is also calling the RPG screen program.
or the RPG program is not actually reaching the *INLR command
The first call to the CL should continue processing after it submits the job
Since this cl is called in both the batch and interative mode, I would expect to see code like this
in this CL is:
DCL &TYPE *char 1
/* only call the RPG Screen program when the type is interactive */
if ( &type = ’1′ ) then do
Sbmjob cmd(call myCl)
… processing to be done by batch
Don’t see it either
Which program hangs ?
the unnamed one which issues
– CALL CUCYFLSWG PARM(&SCREENVALUE)
You must have shortened this code because it seems like
CUCYFLSWG is missing DCL &USER, DCL &JOB and label ENDPGM:
I suspect that ‘0′ the opening and closing quotes are just another figment of the posting code to the board process.
When the RPG (and input screen) returns control to the CL program, the CL program submits itself.
The CL program CUCYFLSWG should go back to the users menu waiting for Job Completed message.
Instead, while the CL program is running in Batch, the screen goe’s black with “X system” displayed (as if it’s running interactively), when the job is done running in batch, the user now is release back to his menu.
remember the code you posted couldn’t be compiled – so I’m assuming that the code you are running looks about the same.
I think you are saying
1. The interactive version running pgm CUCYFLSWG hangs
2. The interactive version running pgm CUGYFLSWG and it’s screen are locked
We are not back at the menu program??? waiting for the message.
If you were to hold the batch process you could check the interactive processes locks and it has this stuff
If you were to check the open files for the intractive job – it’s still using the display file and other files???? Even after program CUGYFLSWG turned on the *INLR and issued a return.
Program CUGYFLSWG issued a close file on the file CUPYFLSER and didn’t receive an error.