Skip to content

Instantly share code, notes, and snippets.

@vcsjones
Created April 9, 2020 18:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vcsjones/87b703ed71eaa3a054665c4c2c571fb5 to your computer and use it in GitHub Desktop.
Save vcsjones/87b703ed71eaa3a054665c4c2c571fb5 to your computer and use it in GitHub Desktop.
IDENTIFICATION DIVISION.
PROGRAM-ID. HelloWorld.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEXT-INPUT PIC X(20).
01 SAY-TIMES USAGE BINARY-LONG VALUE 0.
01 ITER USAGE BINARY-LONG VALUE 0.
PROCEDURE DIVISION.
Main.
DISPLAY "Gimme a name!".
ACCEPT TEXT-INPUT.
DISPLAY "How many times should I say hello?".
ACCEPT SAY-TIMES.
PERFORM Say WITH TEST BEFORE UNTIL ITER=SAY-TIMES.
STOP RUN.
Say.
DISPLAY ITER, " Hi, ", TEXT-INPUT
ADD 1 TO ITER.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment