Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
IDENTIFICATION DIVISION.
PROGRAM-ID. ReverseString.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STR PIC X(10) VALUE 'HELLO'.
01 REV PIC X(10).
01 INDEX1 PIC 9(2) VALUE 5.
01 INDEX2 PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING INDEX2 FROM 1 BY 1 UNTIL INDEX2 > 5
MOVE STR (INDEX1:1) TO REV (INDEX2:1)
SUBTRACT 1 FROM INDEX1
END-PERFORM
DISPLAY 'Reversed: ' REV
STOP RUN.Coding works best on desktop or with an external keyboard.