IF COND(&SCREENVALUE *NE ‘Y’) THEN(DO)
GOTO CMDLBL(ENDPGM)
ENDDO

SBMJOB CMD(CALL PGM(CUCYFLSWG) +
PARM(&SCREENVALUE)) JOB(FLS_WAGE)

ENDDO

to this:

IF COND(&SCREENVALUE *EQ ‘Y’) THEN(DO)
SBMJOB CMD(CALL PGM(CUCYFLSWG) +
PARM(&SCREENVALUE)) JOB(FLS_WAGE)
ENDDO

GOTO CMDLBL(ENDPGM)


ENDDO

IMHO, positive checks (*EQ) are better, and easier to read, than negative checks (*NE). Also, this positively ends your program after submitting the job (assuming that there is no processing going on between the ENDPGM label and the ENDPGM command. However, you might try putting a RCLRSC in-between the ENDPGM label and the ENDPGM command.

CALL CUCYFLSWG PARM(&SCREENVALUE)

PGM PARM(&SCREENVALUE)

DCL VAR(&ENV) TYPE(*CHAR) LEN(1)
DCL VAR(&SCREENVALUE) TYPE(*CHAR) LEN(1)

DCLF FILE(CUPYFLSER) RCDFMT(CURYFLSER)

RTVJOBA JOB(&JOB) USER(&USER) TYPE(&ENV)
/*******************************************************/
/* INTERACTIVE PROCESSING (&ENV = ’1′) */
/*******************************************************/
IF COND(&ENV *EQ ’1′) THEN(DO)

CALL PGM(CUGYFLSWG) PARM(&SCREENVALUE) << this rpg subfile pgm builds
file CUPYFLSER, returns a ‘Y”
the sbmjob runs
the batch process runs thru the
file CUPYFLSER creatng reports
the screen from the rpg hangsup

the CUPY file is manually opened
and closed in the RPG.
IF COND(&SCREENVALUE *NE ‘Y’) THEN(DO)
GOTO CMDLBL(ENDPGM)
ENDDO

SBMJOB CMD(CALL PGM(CUCYFLSWG) +
PARM(&SCREENVALUE)) JOB(FLS_WAGE)

ENDDO
/**************************************************/
/* BATCH PROCESSING (&ENV = ’0′) */
/**************************************************/

IF COND(&ENV *EQ ’0′) THEN(DO)

LOOP: RCVF RCDFMT(CURYFLSER)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDREAD))
/* Monitor for End-Of-File */

RUNQRY QRY(REPORT)
GOTO CMDLBL(LOOP)

ENDREAD: ENDDO

ENDPGM

is this in the calling or submitted job?

from your question, I’m supposing something like the following outline.
or is the subfile program doing the SBMJOB?

There is no bug in the operating system. This isn’t a PC.

- – - – - – - – - – -

PGM

start:
CALL subfile pgm

IF return = option 99
SBMJOB Call ABCDE JOBD(*JOBD) blah blah
endif

IF return = option 45
blah blah
endif

If return = Option F03
goto exit
endif

GOTO start

exit:

endpgm

To Gilly, thank you also, It is a non-ILE cl program, I have renamed the program, compiled it to create a new object, and still had the screen hang up during the batch processing. We were told to get out of the system for upgrades until 1 p.m. so i won’t be able to post the code until 1:30ish.

Thank you both. I will upload the code about 1.5 hours from now. I really think IBM has an OS error here, I will post the question to IBM this afternoon also.

Steve

Just another thought – can you post the (CL) code here? Maybe there’s something else that we haven’t thought of.

Regards,

Martin Gilbert.

If it’s a non-ILE CL program maybe it’s an idea to do a RTVCLSRC to make sure the source matches the object. Quite often programmers (myself included) code an interactive call and a submitted call in their program to help while debugging. Maybe the interactive call is still in the program?

Are you sure that a job gets submitted? Try changing the logging level of your job and check the joblog.

Regards,

Martin Gilbert.