INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STUDENT ASSIGN TO OUT1 ORGANIZATION IS INDEXED ACCESS IS RANDOM RECORD KEY IS STUDENT-ID FILE STATUS IS FS. DATA DIVISION. FILE SECTION. FD STUDENT 01 STUDENT-FILE. 05 STUDENT-ID PIC 9(4). 05 NAME PIC A(12). 05 CLASS PIC X(3). WORKING-ST...
INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STUDENT ASSIGN TO IN1 ORGANIZATION IS INDEXED ACCESS IS RANDOM RECORD KEY IS STUDENT-ID FILE STATUS IS FS. DATA DIVISION. FILE SECTION. FD STUDENT. 01 STUDENT-FILE. 05 STUDENT-ID PIC 9(5). 05 NAME PIC A(25). WORKING-STORAGE SECTION. 01 WS-...
本地存储节(Local-Storage section)是类似于工作存储节。唯一的区别是每次程序开始执行时都会分配和初始化变量。 连接节(Linkage section)用于描述从外部程序接收到的数据名称。 COBOL程序 IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILEN ASSIGN TO...
INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT InputFile ASSIGN TO 'input.dat' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD InputFile. 01 InputRecord PIC X(100). WORKING-STORAGE SECTION. 01 ProcessedData PIC X(100). PROCEDURE DIVISION. OPEN INPUT InputFile. READ InputFile INT...
输入输出节(Input-Output section)提供有关程序中要使用的文件的信息。它由两个段组成: 文件控制(file control):提供在程序中使用的外部数据集的信息。 IO控制(I-O control):提供在程序中使用的文件的信息。 3)数据部(Data Division) 数据部用于定义程序中使用的变量。它由四个节组成: ...
在以下示例中,INPUT 是需要按升序排序的输入文件 - IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT ASSIGN TO IN. SELECT OUTPUT ASSIGN TO OUT. SELECT WORK ASSIGN TO WRK. DATA DIVISION. FILE SECTION. FD INPUT. 01 INPUT-STUDENT. ...
INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT OutputFile ASSIGN TO 'report.txt' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD OutputFile. 01 OutputRecord PIC X(80). WORKING-STORAGE SECTION. 01 WS-Report PIC X(80).
INPUT-OUTPUTSECTION.FILE-CONTROL.SELECTBASSIGNTOCBCB*是外部文件名,其实是文件的外部地址FILESTATUSISSTATUS-CB*status-cb是文件状态字,打开成功的话这个值为00,这个字作为一个变量是需要在数据部的本地工作节中进行定义ACCESSMODEISDYNAMIC*文件的访问方式,顺序,随机和动态,顺序文件只允许顺序访问ORGANIZATIONISINDEXED...
INPUT-OUTPUT SECTION。 FILE-CONTROL。 SELECT IN-FILLE ASSIGN TO 外部文件名。 为了存储读入的记录,必须在内存开辟一个与文件记录长度相等的存储区,即’输入文件纪录区’。每一个输入文件都有相应的’输入文件纪录区’,与之一一对应。亦即在数据部中描述文件的数据结构。
input-output section。selectout-filleassignto打印机名。也要在数据部中定义输出记录区 :datadivision。fd 12、out-filelablerecordisomitte。d01 out-reco。rd02 prod-codepic9(4) 。02prod-quantitypic9(5) 。02prod-price pic9(6) 。02manu-date05date-ccyy pic9(4) 。05date-mm pic9(2) 。05date...