Skip to content

Commit

Permalink
There's an easier way to initialize all '*'
Browse files Browse the repository at this point in the history
  • Loading branch information
rzuckerm committed Jan 12, 2025
1 parent 4273c6a commit 40f42b5
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion archive/c/cobol/baklava.cbl
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
01 NUM-SPACES PIC 9(2).
01 NUM-STARS PIC 9(2).
01 BAKLAVA-SPACES PIC X(10) VALUE SPACES.
01 BAKLAVA-STARS PIC X(21) VALUE "*********************".
01 BAKLAVA-STARS PIC X(21) VALUE ALL "*".

PROCEDURE DIVISION.
PERFORM VARYING NUM FROM 0 BY 1 UNTIL NUM > 20
Expand Down

0 comments on commit 40f42b5

Please sign in to comment.