The "WRITE OPERATOR" function calls a "stub" named ExternWriteOperator.

ExternWriteOperator receives all parameters of the WRITE OPERATOR and simply returns zero in the return code and nothing else.

It can be replaced by a customer function that respects the interface described below. The WRITE OPERATOR passes the following parameters and expects a return code in signed int format.

Listing WRITE OPERATOR Parameters

     TEXT             pic x(1024). 
     TEXTLENGTH       PIC S9(9) COMP-5. 
     ROUTECODES       pic x(1024). 
     NUMROUTES        PIC S9(9) COMP-5. 
     ACTION           PIC X(2). 
     REPLY            pic x(1024). 
     MAXLENGTH        PIC S9(9) COMP-5. 
     REPLYLENGTH      PIC S9(9) COMP-5.
     TIMEOUT          PIC S9(9) COMP-5.

S9(9) COMP-5 is equivalent to a signed int.

The parameters REPLY and REPLYLENGTH may be returned to the WRITE OPERATOR function if requested, that is to say, if MAXLENGTH > zero.

• Example COBOl Code for ExternWriteOperator