000100*A---B--+----2----+----3----+----4----+----5----+----6----+----7--
000200 ID DIVISION.
000300 PROGRAM-ID. HELLOWORLD.
000400 AUTHOR. CHANJIN CHUNG, WSU, DETROIT.
000500 PROCEDURE DIVISION.
000600 MAIN-PARA.
000700     DISPLAY 'HELLO, WORLD'.
000800     STOP RUN.

000100*A---B--+----2----+----3----+----4----+----5----+----6----+----7--
000200 ID DIVISION.
000300 PROGRAM-ID. HELLO.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 YYMMDD.
000700    05 YY    PIC     99.
000800    05 MM    PIC     99.
000900    05 DD    PIC     99.
001000 PROCEDURE DIVISION.
001100 MAIN-PARA.
001200     ACCEPT YYMMDD FROM DATE.
001300     DISPLAY 'HELLO, WORLD'.
001400     DISPLAY 'TODAY IS ' YY '-' MM '-' DD.
001500     STOP RUN.

000100 ID DIVISION.
000200 PROGRAM-ID.  ACCEPT1.
       AUTHOR. CHAN
000300 DATA DIVISION.
000400 WORKING-STORAGE  SECTION.
000500 01  WS-FIRST-NUMBER      PIC 9(3).
000600 01  WS-SECOND-NUMBER     PIC 9(3).
000700 01  WS-TOTAL             PIC ZZZ9.
000800*
000900 PROCEDURE DIVISION.
001000 0000-MAINLINE.
001100     DISPLAY 'ENTER A NUMBER: '.
001200     ACCEPT WS-FIRST-NUMBER.
001300*
001400     DISPLAY 'ANOTHER NUMBER: '.
001500     ACCEPT WS-SECOND-NUMBER.
001600*
001700     COMPUTE WS-TOTAL = WS-FIRST-NUMBER +
001800                        WS-SECOND-NUMBER.
001900     DISPLAY 'THE TOTAL IS: ' WS-TOTAL.
002000     STOP RUN.