You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
278 B
Plaintext
15 lines
278 B
Plaintext
5 years ago
|
IDENTIFICATION DIVISION.
|
||
|
PROGRAM-ID. eeeeeeeee.
|
||
|
|
||
|
DATA DIVISION.
|
||
|
WORKING-STORAGE SECTION.
|
||
|
01 e PIC X VALUE 0.
|
||
|
|
||
|
PROCEDURE DIVISION.
|
||
|
MAIN-PROCEDURE.
|
||
|
PERFORM UNTIL e > e
|
||
|
DISPLAY 'e'
|
||
|
END-PERFORM.
|
||
|
STOP RUN.
|
||
|
|