IDENTIFICATION DIVISION.
PROGRAM-ID. PLANTER.

   DATA DIVISION.
   WORKING-STORAGE SECTION.

   01 PARAMETRE.
      05 P-RC          PIC X(5).
      05 FILLER        PIC X(76).

   77 TILT             PIC X            VALUE SPACES.

   77 IX               PIC XX           VALUE SPACE.
   77 I9               REDEFINES IX
                       PIC S9(3) COMP-3.

   01 TABLEAU.
      05 T-IND         PIC S99          VALUE ZERO.
      05 T-OCC                          OCCURS 10.
         10 T-LIGNE    PIC X(8).

   77 CEE3DMP          PIC X(8)         VALUE 'CEE3DMP'.
   77 CEE3ABD          PIC X(8)         VALUE 'CEE3ABD'.

   01 ABEND-CODE          PIC S9(7) BINARY VALUE 2011.
   01 ABEND-TYPE          PIC S9(7) BINARY VALUE 1.

   PROCEDURE DIVISION.

       ACCEPT PARAMETRE

       EVALUATE P-RC
       WHEN 'ABEND'
          CALL CEE3ABD USING ABEND-CODE ABEND-TYPE

       WHEN 'RC04'
          MOVE  4                TO RETURN-CODE

       WHEN 'RC08'
          MOVE  8                TO RETURN-CODE

       WHEN 'RC12'
          MOVE 12                TO RETURN-CODE

       WHEN 'RC16'
          MOVE 16                TO RETURN-CODE

       WHEN 'S806'
          CALL TILT

       WHEN 'S0C4'
          PERFORM VARYING T-IND FROM 1 BY -1 UNTIL T-IND = 12
             MOVE T-LIGNE(T-IND) TO TILT
          END-PERFORM

       WHEN 'S0C7'
          ADD 1                  TO I9

       WHEN 'S0CB'
          MOVE 1                 TO I9
          DIVIDE I9 BY T-IND GIVING T-IND

       WHEN 'U4087'
          CALL CEE3DMP

       WHEN OTHER
          MOVE ZERO              TO RETURN-CODE

       END-EVALUATE

       STOP RUN.