ACCEPT语句2

来源：互联网发布：淘宝网变形金刚编辑：程序博客网时间：2024/05/16 08:17

使用ACCEPT语句通常主要用于接收系统相应的时间或日期，有如下几种格式：
DATE：月份计算的日期，格式为YYMMDD。
YY：年份 MM:月份 DD：月中对应的天数
若是接收8位长度的日期，使用格式YYYYMMDD
TIME：具体时间，格式为HHMMSSHH。
DAY-OF-WEEK：一周的星期数，格式为PIC 9，范围1~7。
DAY：一年中的绝对天数，格式为YYDDD。

IDENTIFICATION DIVISION.
PROGRAM-ID. ACCEPT2.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-DATE.
     05 TEST-DATE-YEAR PIC 99.
     05 TEST-DATE-MONTH PIC 99.
     05 TEST-DATE-DAY PIC 99.
01 TEST-TIME PIC 9(8).
01 TEST-DAY-OF-WEEK PIC 9.
01 TEST-DAY PIC 9(5).
PROCEDURE DIVISION.
             ACCEPT TEST-DATE FROM DATE.
             ACCEPT TEST-TIME FROM TIME.
             ACCEPT TEST-DAY-OF-WEEK FROM DAY-OF-WEEK.
             ACCEPT TEST-DAY FROM DAY.
             DISPLAY ' TEST-DATE = ' TEST-DATE.
             DISPLAY ' TEST-TIME = ' TEST-TIME.
             DISPALY ' TEST-DAY-OF-WEEK = ' TEST-DAY-OF-WEEK.
             DISPLAY ' TEST-DAY = ' TEST-DAY.

执行后：
TEST-DATE = 120514
TEST-TIME = 06412002
TEST-DAY-OF-WEEK = 3
TEST-DAY = 10118