COBOL+CICS文件操作

1.输入输出数据
非CICS：
ACCEPT数据来源：终端输入和系统接收。
一般系统接收数据为日期或者时间。
DATE--YYMMDD.
DAY---YYDDD.
DAY-OF-WEEK--- PIC 9. 范围1-7.
TIME---HHMMSSHH,最后HH表示hundredths from midnigth.
如：DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 INPUT-DATE.
       05 INPUT-YEAR  PIC 99.
       05 INPUT-MONTH PIC 99.
       05 INPUT-DAY   PIC 99.
   *
    PROCEDURE DIVISION.
       ...
       ACCEPT TEST-DATE.
       DISPLAY TEST-DATE. ---终端输入的数据
       ACCEPT TEST-DATE FROM DATE. --系统产生的数据
       DISPLAY TEST-DATE. --输出
CICS下：
如：DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 INFLDS.
       05 INLEN       PIC 9(4) COMP.
    01 INPUT-NAME.
       05 INPUT-FIRST  PIC X(10).
       05 INPUT-MIDDLE PIC X(10).
       05 INPUT-LAST   PIC X(10).
   *PROCEDURE DIVISION.
       ...
       MOVE 15 TO INLEN.
       EXEC CICS RECEIVE INTO(INPUT-NAME)
                         LENGTH(INLEN) --所接收的最大长度，小于为实际，大于为异常
       END-EXEC.
       EXEC CICS SEND    FROM(INPUT-NAME)
                         LENGTH(20) --为实际长度，并非变量。输出位置为当前光标位置
       END-EXEC.
       ...
       GOBACK.
       
2.文件操作
普通文件非CICS:
如：ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL
     SELECT CUSTOMER-FILE ASSIGN TO S-SYSIN.   --定义对应到COBOL文件名
     SELECT PRINT-FILE    ASSIGN TO S-SYSOUT.
   *
    DATA DIVISION.
    FILE SECTION.
    FD CUSTOMER-FILE   --定义FD记录
       RECORD MODE IS F.
    01 CUSTOMER-RECORD.
       05 CUST-NO   PIC 9(5).
       05 CUST-NAM