
Executing Standard Processing Subroutines
10-8 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
Executing Standard Processing Subroutines
Description TSIDREL, TSIDLOC, TSIDCHK, and TSIDUNL are callable
subroutines for non-CICS programs. Standard linkage conventions apply
to all four subroutines.
Processing
Requirements
To process requirements for TSIDREL, TSIDLOC, and TSIDUNL:
Examples The following example calls TSIDUNL. The CALL deletes the PAY
event after PAYROLL checks have been processed.
...
WORKING-STORAGE SECTION.
01 EVENT-NAME PIC X(8) VALUE SPACES.
PROCEDURE DIVISION.
PERFORM PAYROLL-CHECKS.
MOVE 'PAY' TO EVENT-NAME.
CALL 'TSIDUNL' USING EVENT-NAME.
...
Processing
Requirements
To process the TSIDCHK requirements:
The following example calls TSIDCHK, with PAY as the
EVENT-NAME. If that event is posted, the task performs
PAYROLL-CHECKS.
...
WORKING-STORAGE SECTION.
01 EVENT-NAME PIC X(8) VALUE SPACES.
PROCEDURE DIVISION.
MOVE 'PAY' TO EVENT-NAME.
CALL 'TSIDCHK' USING EVENT-NAME.
...
Step Action
1 Perform the event task.
2 Move the event name to the EVENT-NAME field. See "Job
Scheduling Activities" in this chapter for additional information
on event name limitations.
3 Issue a call to the appropriate subroutine.
Step Action
1 Move the event name to the EVENT-NAME field. See "Job
Scheduling Activities" in this chapter for details about
event-name limitations.
2 Issue a call to TSIDCHK.
3 Perform the dependent task.
Comentarios a estos manuales