Friday, March 11, 2005

Howzz HP Tandem Cobol is different from Other standard Cobol?

Since I worked in COBOL language is HP Tandem , IBM and in PC side too. I would like to brief the HP Tandem Cobol Features here.

Feature 1:-
------------
Receive Control paragraph is in input-output section of environmental division.

RECEIVE-CONTROL : -

To define the two tables used by $RECEIVE, include a RECEIVE-CONTROL paragraph in the Environment Division of your server process.

In the CRE, the RECEIVE-CONTROL paragraph used for a run unit is the one for the program that first opens $RECEIVE.

In the non-CRE environment, the RECEIVE-CONTROL paragraph used for a run unit is the one in the main program.

Here's the Syntax
.RECEIVE-CONTROL
EXTERNAL .
TABLE OCCURS phrase
SYNCDEPTH LIMIT phrase
REPLY CONTAINS phrase
ERROR CODE phrase
MESSAGE SOURCE phrase
REPORT phrase

Receive-Control Table: -

The receive-control table, an internal table, is required for $RECEIVE operation. Its purpose is to identify, by the PROCESS-ID, which requesting processes have opened the server process.
---------------------------------
Receive-Control Table Example
----------------------------------

Entry Number Requesting Process
1 REQUESTER PROCESS 1
2 REQUESTER PROCESS 2
3 REQUESTER PROCESS 3
……
100* REQUESTER PROCESS 100
--------------------------------
* The number of entries in the receive-control table is defined by table-length.

Reply TABLE: -

When reply messages are sent back to the requesting processes, the COBOL compiler constructs a second internal table in which to save the replies. The reply message includes the sync-idand the contents of the reply. In the COBOL85 environment, if the RECEIVE-CONTROL paragraph’s TABLE OCCURS phrase includes EXTENDED-STORAGE, the reply table is in the Extended-Storage Section.

No comments: