RE: Debug an RPG program in batch. QHTTPSVR sub system.

You may want to put some sort of interrupt code in your RPG. Something
like checking a data area (the QWCRDTAA API is pretty quick) and, if it
is set to debug you send a request message. While the program waits on
the request message you can start a service job against the job running
the RPG program, put the program in debug and then answer the request
message.

Gary Monnier

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom Deskevich
Sent: Tuesday, February 22, 2011 8:12 AM
To: IBM System
Subject: Debug an RPG program in batch. QHTTPSVR sub system.

I found these instructions in the archives for debugging a program in
batch.

1. Submit job to run in batch with HOLD(*YES).
2. Use WRKSBMJOB to obtain information about the job you want to
debug,that is: ? Job Id ? User Name ? Job Number
3. Enter the command STRSRVJOB for the Job above using the information
thatyouretrieved via WRKSBMJOB.
4. Enter the STRDBG command for the program that the batch job is
running.Thesource view of the program is displayed.
5. Press F21 to obtain a command line.
6. Enter WRKSBMJOB from the command line to release the batch job -
aSystemMessage will appear allowing you to press F10 to enter Debug
commands orEnter to run the program.
7. Press F10 - a Command Entry screen will appear.
8. Use DSPMODSRC from the Command Entry display and set breakpoints
wheredesired.
9. Exit DSPMODSRC (F3).
10. Exit the Command Entry screen (F12) - the System Message from Step
6). willappear again.
11. Press enter to run the program.
12. Program will now halt at breakpoint.
13. Debug program as normal.14. When the program/Job has completed
execution, close out the processwithENDDBG and ENDSRVJOB.

But my job is running in a thread under the QHTTPSVR sub system.

The user will request to view an image using an internet application,
which will trigger RPG programs to execute.
I want to debug those RPG programs when they run.

Should the above instructions work for me also?

Tom Deskevich
INFOCON
814-472-6066
Fax 814-472-5019