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

 
[Example 3]
 어느 회사 사원의 소속과 성명 직위를 읽어들인 다음에 출력하는 프로그램입니다.
 
입력 설계 :
C-F (입력 파일명)
C-R (입력 레코드명)
 
C-SOSOK (소속)
C-NAME (이름)
C-JIGWI (직위)
X(10)
X(20)
X(15)
 
출력 설계 :
P-F (출력 파일명)
P-R (출력 레코드명)
 
X(80)
 
SAMPLE3.DAT 파일의  입력 형식입니다.
0        1         2         3         4         5   
1234567890123456789012345678901234567890123456789012345
woosung01 kim sung hie        woosung_001  
woosung02 ie king suk         woosung_002  
woosung03 jung dong jae       woosung_003 
 
SAMPLE3.OUT 파일의  출력 형식입니다.
0        1         2         3         4         5  
1234567890123456789012345678901234567890123456789012345678
     woosung01          kim sung hie          woosung_001  
     woosung02          ie king suk           woosung_002  
     woosung03          jung dong jae         woosung_003 
 
 
 
SAMPLE3.CBL 파일의 코딩입니다..
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE3.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT  C-F  ASSIGN TO  INPUT   "SAMPLE3.DAT"
ORGANIZATION  IS  LINE  SEQUENTIAL.
SELECT  P-F  ASSIGN TO  OUTPUT  "SAMPLE3.OUT"
ORGANIZATION  IS  LINE  SEQUENTIAL.
*
DATA DIVISION.
*
FILE SECTION.
FD C-F   LABEL  RECORD  IS  STANDARD.
01 C-R.
03 C-SOSOK PIC X(10).
03 C-NAME PIC X(20).
03 C-JIGWI PIC X(15).
FD P-F  LABEL  RECORD  IS  STANDARD.
01 P-R PIC X(80).
*
WORKING-STORAGE SECTION.
*
77 I PIC 9(2) VALUE  ZERO.
01 LIST-R.
03 FILLER PIC  X(5)   VALUE  SPACES.
03 L-SOSOK PIC  X(10).
03 FILLER PIC  X(5)   VALUE  SPACES.
03 L-NAME PIC  X(20).
03 FILLER PIC  X(5)   VALUE  SPACES.
03 L-JIGWI PIC  X(15).
03 FILLER PIC  X(20)  VALUE  SPACES.
*
PROCEDURE DIVISION.
OPEN-RTN.
OPEN INPUT C-F
OUTPUT P-F.
DISPLAY    " "   ERASE.
READ-RTN.
READ   C-F  AT END  GO TO  END-RTN.
MOVE C-SOSOK TO   L-SOSOK.
MOVE C-NAME TO   L-NAME.
MOVE C-JIGWI TO   L-JIGWI.
WRITE  P-R  FROM  LIST-R  AFTER  1  LINES.
DISPLAY-RTN.
ADD   1  TO  I.
DISPLAY L-SOSOK LINE  I  POSITION  6
L-NAME LINE  I  POSITION  30
L-JIGWI LINE  I  POSITION  50.
GO TO  READ-RTN.
END-RTN.
CLOSE  C-F  P-F.
STOP   RUN.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞