Memorex LOCK - VERSION 2-24 Informations techniques Page 406

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 568
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 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.
Vue de la page 405
1 2 ... 401 402 403 404 405 406 407 408 409 410 411 ... 567 568

Commentaires sur ces manuels

Pas de commentaire