-
For the first definition (EXIT-STATUS) specify PIC 9(8) COMPUTATIONAL. (This area defines exit status codes.)
-
For the second definition (RECORD-UP) code an OCCURS clause with the DEPENDING ON data-name option specifying (1) The minimum and maximum number of bytes the variable SORTIN records contain (do not include 4 bytes for the RDW) and (2) DEPENDING ON data-name PIC X. Data-name is defined in the sixth definition in the LINKAGE SECTION.
-
For the third definition (WORK) code an OCCURS clause with the DEPENDING ON data-name option specifying (1) The minimum and maximum number of bytes for variable-length records to be passed to MFX (do not include 4 bytes for the RDW) and (2) DEPENDING ON data-name PIC X. Data-name is defined as the seventh definition in the LINKAGE SECTION.
-
For the fourth definition specify a dummy level 01 data-name of any number of bytes. (IN-BUF is the data-name used in this example.) Note that the level 01 data-name, used here as a dummy address, has no effect on the E15 routine for variable-length records. The address is usually used as a buffer pointer in the COBOL E35 exit routine. By using it in the E15 LINKAGE SECTION, MFX is able to use the same parameter list for both COBOL exits E15 and E35.
-
For the fifth definition specify a dummy area.
-
For the sixth definition (LEN-RU) specify data-name PIC 9(8) COMPUTATIONAL. This is where MFX passes the length of the SORTIN record to the COBOL exit.
-
For the seventh definition (LEN-WK) specify data-name PIC 9(8) COMPUTATIONAL. This is where the E15 routine passes the length of the work area record to MFX.
-
For the eighth definition define a dummy area.
-
For the ninth definition (COMM-LEN) specify PIC 9(4) COMPUTATIONAL. This area defines the communication area length.
-
For the tenth definition (COMMUNICATION-AREA) code an OCCURS clause DEPENDING ON data-name PIC X.