Unconfigured Ad Widget

Collapse

Announcement

Collapse
No announcement yet.

Interrupt Handling

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Interrupt Handling

    Hi All, We are migrating an application from Unisys Cobol to AS400 Cobol and in Unisys Cobol it supports the interrupt ie. I can specify in the declarative section USE XXXX AS INTERRUPT PROCEDURE and in Main Program I can ATTACH a event to it. If this EVENT occurs then the INTERRUPT section will be executed. Is there a way to do the same on AS400 or thru mechanism can something equivalent be done. Example on Unisys my declaritive will look like DECLARATIVES. 119760 HIROUTINE SECTION. USE AS INTERRUPT PROCEDURE. 119820 HIROUTINE-DEBUT. 119880 MOVE ZERO TO NBMSG. 119940 IF ATTRIBUTE TASKVALUE OF MYSELF = 6 120000 CHANGE ATTRIBUTE TASKVALUE OF MYSELF TO 0 120060 MOVE 1 TO FLG-BREAK, FLG-HI6 120120 ELSE 120180 MOVE 1 TO FLG-TRACE 120240 MOVE 8 TO CPT-TRACE. 120300* * 120360 HIROUTINE-FIN. 120420 EXIT. 120480 END DECLARATIVES. In the procedure division I would have ATTACH HIROUTINE TO ATTRIBUTE EXCEPTIONEVENT OF MYSELF. Now if during the processing of this program I type jobnumber and HI it will take the control directly to the above interrupt section.
Working...
X