Memorex LOCK - VERSION 2-24 Technical Information Page 406

  • Download
  • Add to my manuals
  • Print
  • Page
    / 568
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 405
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.
Page view 405
1 2 ... 401 402 403 404 405 406 407 408 409 410 411 ... 567 568

Comments to this Manuals

No comments