|
View previous topic :: View next topic
|
| Author |
Message |
deepak.kec
New User
Joined: 26 Feb 2007
Posts: 71
Location: bangalore
|
|
|
|
Hi,
How to debug a online program in ADSO.
Is it possible using adsalive? |
|
| Back to top |
|
 |
vijayakumar.yellala
New User
Joined: 19 Apr 2006
Posts: 63
Location: Chennai
|
|
|
|
Yes Deepak,
We can debug ADSO Dailogs using ADSAlive.
Please find attached ADSAlive doc.....it wll help you on Debug.
Copyright attachment deleted - do not post copyright material or links to same
Regards
Vjay |
|
| Back to top |
|
|
deepak.kec
New User
Joined: 26 Feb 2007
Posts: 71
Location: bangalore
|
|
|
|
| i need to debug the batch-online program not the dialog. |
|
| Back to top |
|
|
nelson.pandian
Active User
.jpg)
Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ
|
|
|
|
Hi Deepak Singh,
You cont debug online programs using ADSALIVE. Instead of that you can add a queue in the online program for debug. |
|
| Back to top |
|
|
deepak.kec
New User
Joined: 26 Feb 2007
Posts: 71
Location: bangalore
|
|
|
|
Hi Nelson,
Thanks for the update. Could you please elobrate more on debugging online program using a queue. |
|
| Back to top |
|
|
nelson.pandian
Active User
Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ
|
|
|
|
Hi Deepak,
Queue in online program just same as we give display statement in general cobol. In online programs we use to move the display statements to the queue. After the execution completes, We can just check the queue for the flow, as we check the sysout for the display statements in general cobol program
| Code: |
01 WS-DEBUG PIC X(100). --> Diclare a variable
*Move the display statements to the variable diclared and call the queue para.
MOVE '<display statements>' TO WS-DEBUG.
PERFORM 1111-DEBUG THRU 1111-EXIT.
*Here the displayed value which is moved to the variable will be written to the queue.
*<queue id> --> should be of 8 char long or lesser than that
1111-DEBUG.
PUT QUEUE ID '<queue ID>' FROM WS-DEBUG LENGTH 100
ON ANY-STATUS MOVE '0000' TO ERROR-STATUS.
COMMIT TASK
ON ANY-STATUS MOVE '0000' TO ERROR-STATUS.
MOVE SPACES TO WS-DEBUG.
1111-EXIT.
EXIT.
|
This is command we use to view the queue
Give this command in the online region.
Hope this helps you  |
|
| Back to top |
|
|
|
|
