Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 21 Coding TIBCO Object Service Broker Access Statements : Coding the Access Statements

Coding the Access Statements
Where Do You Code the Access Statements?
Code the access statements in the Working Storage Section and Procedure Division of your COBOL program. Each line of an access statement must start with the dollar sign symbol ($) in column 7, followed by the statement itself starting in column 12.
Coding the Working Storage Section
The first statement in the Working Storage Section must be:
$ Include Huron;
You then define the table or tables for your use. If table, parameter, or field names are invalid for COBOL, you must also define valid COBOL names in these statements. The following example defines the TDS table EMPLOYEE and re-assigns a valid COBOL name (mgrno) to a TIBCO Object Service Broker field (mgr#):
$ Define Table Employee = #ED_EMPLOYEES
$ Field mgrno = MGR#,
Refer to Coding Considerations for more information about assigning COBOL names to TIBCO Object Service Broker objects.
Coding the Procedure Division
In the Procedure Division, your first statement must be:
$ Entry;
Coding the Action Statements
The action statements must be at the end of the program, for example:
 
$ Forall Employee(USER-ID-77,LOCATION-77)
$ where mgrno = 84021 :
DISPLAY EMPLOYEE-LNAME.
$ end;

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved