COBOL program to find the sum of the digits of a number

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUMD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       77 NUM    PIC   9(5).
       77 N    PIC   Z(5).
       77 R      PIC   9.
       77 SUM    PIC   9(5) VALUE 0.
       77 RESULT PIC   Z(5).
       PROCEDURE DIVISION.
       P1.
           DISPLAY "ENTER A NUMBER".
           ACCEPT NUM.
           MOVE NUM TO N.
           PERFORM SUM-PARA UNTIL NUM = 0.
           MOVE SUM TO RESULT.
           DISPLAY "THE SUM OF THE DIGITS OF NUMBER " N " IS :" RESULT.
           STOP RUN.
       SUM-PARA.
           DIVIDE NUM BY 10 GIVING NUM REMAINDER R.
           COMPUTE SUM = SUM + R.