IDENTIFICATION DIVISION.
       PROGRAM-ID. MINROUT.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       01  ACCUMULATORS.
           05  MINOR-ONHAND-ACC    PIC 9(4)     VALUE 0.
           05  FINAL-ONHAND-ACC    PIC 9(6)     VALUE 0.
           05  MINOR-VALUE-ACC     PIC 9(6)V99  VALUE 0.
           05  FINAL-VALUE-ACC     PIC 9(8)V99  VALUE 0.
       01  MINOR-TOTAL-LINE.
           05  FILLER              PIC X(10) VALUE SPACES.
           05  FILLER              PIC X(17) VALUE "TOTALS FOR DEPT: ".
           05  DEPT-ML             PIC 99    VALUE 0.
           05  FILLER              PIC X(9)  VALUE SPACES.
           05  MINOR-ONHAND-ACC-ML PIC Z,ZZ9.
           05  FILLER              PIC X(15) VALUE SPACES.
           05  MINOR-VALUE-ACC-ML  PIC $$$$,$$9.99.
           05  FILLER              PIC X(11) VALUE SPACES.
       01  HOLD-AREAS.
           05  HOLD-DEPT-WS        PIC XX       VALUE SPACES.
       PROCEDURE DIVISION.
       ENTRY-POINT.
           PERFORM B-100-MINOR-ROUT.
       B-100-MINOR-ROUT.
           MOVE HOLD-DEPT-WS TO DEPT-ML.
           MOVE MINOR-ONHAND-ACC TO MINOR-ONHAND-ACC-ML.
           MOVE MINOR-VALUE-ACC TO MINOR-VALUE-ACC-ML.