[문제 7] A에서 Z까지의 알파벳을 한 줄에 나타내며, 다음 줄에는 앞의 한 글자를 맨 뒤로 보내어 화면에 표시하는 프로그램을 작성하시오.

경고	박우범의 허락 없이는 상업적 사용을 금합니다.

[문제 7]

A에서 Z까지의 알파벳을 아래와 같이 화면에 표시하는 프로그램을 작성하시오.


*
	IDENTIFICATION						DIVISION.
	PROGRAM-ID.						T7.
*
	ENVIRONMENT						DIVISION.
	CONFIGURATION						SECTION.
	SOURCE-COMPUTER.						SAMSUNG.
	OBJECT-COMPUTER.						SAMSUNG.
*
	DATA						DIVISION.
	WORKING-STORAGE						SECTION.
*
	77		I	PIC	99		VALUE 0.
	77		J	PIC	99		VALUE 0.
	77		K	PIC	99		VALUE 0.
	77	TEMP		PIC	XX.
	01	DATA-REC			PIC	X(26) VALUE
			"ABCDEFGHIJKLMNOPQRSTUVWXYZ".
	01	DATA-ENTRY			REDEFINES DATA-REC.
		03	A	PIC	X	OCCURS 26 TIMES.
	01	DIS-REC.
		03	D	PIC	XX	OCCURS 26 TIMES.
*
	PROCEDURE						DIVISION.
	START-RTN.
		DISPLAY " " ERASE.
		PERFORM PROC-1
				VARYING I FROM 1 BY 1 UNTIL I > 26.
		DISPLAY DIS-REC.
		PERFORM PROC-2
				VARYING I FROM 1 BY 1 UNTIL I > 25.
	END-RTN.
		STOP " ".
		STOP RUN.
	PROC-2.
		MOVE D(1) TO TEMP.
		PERFORM PROC-3
				VARYING J FROM 1 BY 1 UNTIL J > 25.
		MOVE TEMP TO D(26).
		DISPLAY DIS-REC.
	PROC-3.
		ADD 1 J GIVING K.
		MOVE D(K) TO D(J).
	PROC-1.
		MOVE A(I) TO D(I).

지적 소유권을 보호합시다.