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

 
[문제 12]
 [ACCEPT ... FROM] 문을 사용하여, 시스템에서 날짜와 시간을 입력받아 화면에 표시하는 프로그램의 예를 보이시오.
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. T12.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01 DATE-REC.
03 YY PIC 99.
03 MM PIC 99.
03 DD PIC 99.
01 TIME-REC.
03 T-HH PIC 99.
03 T-MM PIC 99.
03 T-SS PIC 99.
03 T-MS PIC 99.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY   " "   ERASE.
ACCEPT-DATE.
ACCEPT   DATE-REC  FROM  DATE.
DISPLAY YY LINE  15 POSITION  10
" YEAR " POSITION  0
MM POSITION  0
" MONTH " POSITION  0
DD POSITION  0
" DAY" POSITION  0.
ACCEPT-TIME.
ACCEPT   TIME-REC  FROM  TIME.
DISPLAY T-HH  LINE 18 POSITION  10
" HH " POSITION  0
T-MM POSITION  0
" MM " POSITION  0
T-SS POSITION  0
" SS " POSITION  0
T-MS POSITION  0
" MS" POSITION  0.
END-RTN.
STOP RUN.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞