
Processing Requirements
10-12 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
Processing Requirements
Description To process the TSIDCHK subroutines:
Example The following is an example of a TSIDCHK subroutine.
WORKING-STORAGE SECTION.
01 EVENT.
02 EVENT-NAME PIC X(08).
02 EVENT-RETURN-CODE PIC X(01).
88 SUCCESS VALUE 'Y'.
88 FAILURE VALUE 'N'.
02 EVENT-POWER-MESSAGE PIC X(60)
PROCEDURE DIVISION.
MOVE 'PAY' TO EVENT-NAME.
EXEC CICS
LINK PROGRAM ('TSIDCCHK')
COMMAREA (EVENT)
LENGTH (69)
END EXEC.
IF SUCCESS
GOTO PERFORM
ELSE
GOTO WAIT.
...
This example checks to determine if an event has been posted with
TSIDCCHK. If the event has been posted, TSIDCCHK performs the
dependent task. If the event has not been posted, TSIDCCHK goes to the
WAIT routine.
Step Action
1 Move the event name to the EVENT–NAME field. See "Job
Scheduling Activities" in this chapter for details describing
event–name limitations.
2 Link to the subroutine.
3 Check the return code passed and process accordingly.
Komentáře k této Příručce