Quelle  as400sample.cob   Sprache: Cobol

      * PROGRAM.. PLS SOME ONE HELP ME.. THANK YOU. JOE
      * von shamrea am 7.2.2007
        IDENTIFICATION DIVISION.
        PROGRAM-ID. GETTINGSTARTED.
        AUTHOR.

      *THIS PROGRAM ACCPETS TWO NUMBERS AND AN OPERATOR FROM THE USER AND
      *DEPENDING ON THE TYPE OF THE OPERATOR EITHER ADDS THE NUMBER OR MULTIPLY
      *THEM TOGETHER AND DISPLAYS THE RESULTS

        DATA DIVISION.

        WORKING-STORAGE SECTION.
        01 NUM1 PIC 999 VALUE ZERO.
        01 NUM2 PIC 999 VALUE ZERO.
        01 RESULT PIC 999 VALUE ZERO.
        01 OPERATOR PIC X VALUE SPACE.
        01 SELECTOR PIC X VALUE SPACE.

        PROCEDURE DIVISION.
        CALCULATOR.
        PERFORM UNTIL SELECTOR = "N"
          DISPLAY "INPUT FIRST NUMBER :"
          ACCEPT NUM1
          DISPLAY "INPUT SECOND NUMBER :"
          ACCEPT NUM2
          DISPLAY "INPUT OPERATOR (+ OR *) :"
          ACCEPT OPERATOR
          EVALUATE OPERATOR
          WHEN "+"
           COMPUTE RESULT = NUM1 + NUM2
           DISPLAY "RESULT IS = " , RESULT

          WHEN "*"
           COMPUTE RESULT = NUM1 * NUM2
           DISPLAY "RESULT IS = " , RESULT

          WHEN OTHER
           DISPLAY "INVALID INPUT !!!"
          END-EVALUATE
          DISPLAY "TRY AGAIN? (Y/N)"
          ACCEPT SELECTOR
        END-PERFORM.
        STOP RUN.