Hello

Omschrijving
Omsc
hrij
ving
Omsc hrij ving

Met de MOVE 'data' TO Variable wordt
een nieuwe waarde aangebracht

Nieuwe waarde is : 'Aangepast'

2056AABB
WS-RENAME : 56AABB

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
AUTHOR. Egestas.
*> Een comment begint hier met *> en niet met * of /

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Beschrijving.
	02 Beschrijf1 PIC X(4) VALUE 'Omsc'.
	02 Beschrijf2 PIC X(4) VALUE 'hrij'.
	02 Beschrijf3 PIC X(4) VALUE 'ving'.
	
01 WS-NUMMER.
	05 WS-NUM.
		10 WS-NUM1 PIC 9(2) VALUE 20.
		10 WS-NUM2 PIC 9(2) VALUE 56.
	05 WS-CHAR.
		10 WS-CHAR1 PIC X(2) VALUE 'AA'.
		10 WS-CHAR2 PIC X(2) VALUE 'BB'.

66 WS-RENAME RENAMES WS-NUM2 THRU WS-CHAR2.

PROCEDURE DIVISION.
	DISPLAY Beschrijving.
	DISPLAY Beschrijf1.
	DISPLAY Beschrijf2.
	DISPLAY Beschrijf3.
	DISPLAY Beschrijf1 SPACE Beschrijf2 SPACE Beschrijf3.

	DISPLAY SPACE.

	DISPLAY "Met de MOVE 'data' TO Variable wordt".
	DISPLAY "een nieuwe waarde aangebracht".
	MOVE 'Aang' TO Beschrijf1.
	MOVE 'epas' TO Beschrijf2.
	MOVE "t'"    TO Beschrijf3.
	DISPLAY SPACE.
	DISPLAY "Nieuwe waarde is : '" Beschrijving.

	DISPLAY SPACE.

	DISPLAY WS-NUMMER.
	DISPLAY "WS-RENAME : " WS-RENAME.

STOP RUN.