-
For the first definition (EXIT-STATUS) specify PIC 9(8) COMPUTATIONAL. When using 88 levels to define exit status codes, specify values 00, 04, and 08.
-
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 of your variable-length records leaving Phase 3 (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 you will pass 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. This area is used for the “work” area.
-
For the fourth definition (IN-BUF) define records in the output area. Code an OCCURS clause with the DEPENDING ON data-name option specifying (1) the minimum and maximum number of bytes for variable-length records in the output data set (do not include 4-bytes for the RDW) and (2) DEPENDING ON data-name PIC X. Data-name is defined as the eighth definition in the LINKAGE SECTION.
-
For the fifth definition define a dummy area with PIC X(4).
-
For the sixth definition (LEN-RU) specify PIC 9(8) COMPUTATIONAL. MFX will pass the length of the record leaving Phase 3 in this area.
-
For the seventh definition (LEN-WK) specify PIC 9(8) COMPUTATIONAL. The E35 routine passes MFX the length of the record in the work area in this section.
-
For the eighth definition (LEN-IB) specify PIC 9(8) COMPUTATIONAL. MFX passes the length of the record in the output area in this section.
-
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.