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

 
[Example 6]
 다음의 입력 형식과 같이 DATA를 읽어들여 출력 형식과 같이 출력하는 프로그램을 작성하시오.
 
입력 설계 :
IN-F (입력 파일명)
IN-R (입력 레코드명)
 
번호
이름
과 목
국어
영어
수학
9(3)
X(7)
9(3)
9(3)
9(3)
 
출력 설계 :
OUT-F (출력 파일명)
OUT-R (출력 레코드명)
 
X(80)
 
 
입력 형식입니다.
0        1         2  
12345678901234567890123456789 
001김 성수089099100  
002이 영희097088098  
003원 기석088095075  
004이 영만088098075  
005이 원기078095083 
 
 
출력 형식입니다.
0        1         2         3         4         5   
1234567890123456789012345678901234567890123456789012345678
                     **성적표**  
  
     번호      이   름      국어     영어     수학  
        1      김 성수        89       99      100  
        2      이 영희        97       88       98  
        3      원 기석        88       95       75  
        4      이 영만        88       98       75  
        5      이 원기        78       95       83 
 
 
< MEMORY MAP (기억 장소 배치도) >
 
   IN-R 
NUM
NAME
KUM
KOR
ENG
MAT
9(3)
X(7)
9(3)
9(3)
9(3)
 
   OUT-R 
X(80)
 
   HEAD-R 
 
"**성적표**"
  
X(22)
X(10)
X(48)
 
   TIT-R 
 
"번호"
  
"이 름"
  
"국어"
  
"영어"
  
"수학"
X(5)
X(4)
X(6)
X(7)
X(6)
X(4)
X(5)
X(4)
X(5)
X(4)
 
   LIST-R 
 
L-NUM
  
L-NAME
  
L-KOR
  
L-ENG
  
L-MAT
X(6)
ZZ9
X(6)
X(7)
X(7)
ZZ9
X(6)
ZZ9
X(6)
ZZ9
 
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE6.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-F  ASSIGN  TO   INPUT  "SAMPLE6.DAT"
ORGANIZATION  IS  LINE  SEQUENTIAL.
SELECT OUT-F  ASSIGN  TO  OUTPUT  "SAMPLE6.OUT"
ORGANIZATION  IS  LINE  SEQUENTIAL.
*
DATA DIVISION.
FILE SECTION.
FD IN-F   LABEL  RECORD  IS  STANDARD.
01 IN-R.
03 NUM PIC 9(3).
03 NAME PIC X(7).
03 KOR PIC 9(3).
03 ENG PIC 9(3).
03 MAT PIC 999.
FD OUT-F  LABEL  RECORD  IS  STANDARD.
01 OUT-R PIC X(80).
*
WORKING-STORAGE SECTION.
*
01 HEAD-R.
03 FILLER PIC X(22)  VALUE  SPACE.
03 FILLER PIC X(10)  VALUE  "**성적표**".
01 TIT-R.
03 FILLER PIC X(5)    VALUE  SPACE.
03 FILLER PIC X(4)    VALUE  "번호".
03 FILLER PIC X(6)    VALUE  SPACE.
03 FILLER PIC X(7)    VALUE  "이 름".
03 FILLER PIC X(6)    VALUE  SPACE.
03 FILLER PIC X(4)    VALUE  "국어".
03 FILLER PIC X(5)    VALUE  SPACE.
03 FILLER PIC X(4)    VALUE  "영어".
03 FILLER PIC X(5)    VALUE  SPACE.
03 FILLER PIC X(4)    VALUE  "수학".
01 LIST-R.
03 FILLER PIC X(6)    VALUE  SPACE.
03 L-NUM PIC ZZ9.
03 FILLER PIC X(6)    VALUE  SPACE.
03 L-NAME PIC X(7).
03 FILLER PIC X(7)    VALUE  SPACE.
03 L-KOR PIC ZZ9.
03 FILLER PIC X(6)    VALUE  SPACE.
03 L-ENG PIC ZZ9.
03 FILLER PIC X(6)    VALUE  SPACE.
03 L-MAT PIC ZZ9.
*
PROCEDURE DIVISION.
OPEN-RTN.
OPEN INPUT IN-F
OUTPUT OUT-F.
WRITE OUT-R FROM   HEAD-R.
WRITE OUT-R FROM   TIT-R.
READ-RTN.
READ IN-F AT END  GO TO  CLOSE-RTN.
MOVE NUM TO L-NUM.
MOVE NAME TO L-NAME.
MOVE KOR TO L-KOR.
MOVE ENG TO L-ENG.
MOVE MAT TO L-MAT.
WRITE OUT-R FROM    LIST-R.
GO TO READ-RTN.
CLOSE-RTN.
CLOSE IN-F OUT-F.
STOP    RUN.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞