Memorex LOCK - VERSION 2-24 Información técnica Pagina 406

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 568
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 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.
Vista de pagina 405
1 2 ... 401 402 403 404 405 406 407 408 409 410 411 ... 567 568

Comentarios a estos manuales

Sin comentarios