Memorex LOCK - VERSION 2-24 Informações Técnicas Página 406

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 568
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 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 página 405
1 2 ... 401 402 403 404 405 406 407 408 409 410 411 ... 567 568

Comentários a estes Manuais

Sem comentários