-
For the first definition (EXIT-STATUS) specify PIC 9(8) COMPUTATIONAL. (This area defines exit status codes.) When using 88 levels to define the exit status codes, specify values 00, 04, and 08.
-
For the second definition (RECORD-UP) define the SORTIN record.
-
For the third definition (WORK) define the record that will be passed to MFX. (This is the "work area.")
-
For the fourth through the eighth definitions define dummy areas.
-
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.