高分求一个cobol的读写程序

因为你没有说具体的数据，我就只是假定了是一个普通文件，里面的记录有两个项一个为ID,一个为NAME输入文件放在名为S-SYSIN,（dasd)的磁盘文件里，而输出到名为S-SYSOUT的磁盘（dasd）文件里。

编写了一个程序，编译通过了，但是没有具体的数据，就没有真的运行。

赚点分数不容易啊。

IDENTIFICATION DIVISION

PROGRAM-ID  FILE-READ-WRITE

ENVIRONMENT    DIVISION

IDENTIFICATION DIVISION

PROGRAM-ID  FILE-READ-WRITE

ENVIRONMENT    DIVISION

INPUT-OUTPUT   SECTION

FILE-CONTROL

SELECT  IN-FILE  ASSIGN TO  S-SYSIN

SELECT  OUT-FILE ASSIGN TO  S-SYSOUT

DATA           DIVISION

FILE           SECTION

FD    IN-FILE

LABEL   RECORD    IS  STANDARD

01    IN-RECORD

05  IN-ID      PIC   9(11)

05  IN-NAME    PIC   X(20)

FD    OUT-FILE

LABEL   RECORD    IS  STANDARD

01    OUT-RECORD

05  OUT-ID     PIC   9(11)

05  OUT-NAME   PIC   X(20)

WORKING-STORAGE      SECTION

01      EOF-FLAG           PIC    X  VALUE  'N'

PROCEDURE       DIVISION

OPEN   INPUT   IN-FILE

OUTPUT  OUT-FILE

PERFORM    100-WRITE-RECORDS

UNITL   FOF-FLAG = 'Y'

CLOSE      IN-FILE

OUT-FILE

STOP RUN

100-WRITE-RECORDS

READ   IN-FILE

AT  END   MOVE 'Y' TO EOF-FLAG

END-READ

MOVE IN-ID   TO OUT-ID

MOVE IN-NAME TO OUT-NAME

WRITE  OUT-RECORD

本来我截图两张的，但是第二章不知道怎么传上来了。就这样吧。

首先要看你所用COBOL编译器的帮助文档，对于这个问题是怎么解决的。

Micro Focus公司的COBOL产品对此有完整的解决方案，我这儿有一个Micro Focus Net Express 51 Personal Edition版的下载地址，有兴趣，你可以下载安装并研究研究。

>

Q1) Name the divisions in a COBOL program

A1) IDENTIFICATION DIVISION,

ENVIRONMENT DIVISION,

DATA DIVISION,

PROCEDURE DIVISION

Q2) What are the different data types available in COBOL

A2) Alpha-numeric (X), alphabetic (A) and numeric (9)

Q3) What does the INITIALIZE verb do - GS

A3) Alphabetic, Alphanumeric fields & alphanumeric edited items are set to SPACES Numeric, Numeric edited items set to ZERO FILLER , OCCURS DEPENDING ON items left untouched

Q4) What is 77 level used for

A4) Elementary level item Cannot be subdivisions of other items (cannot be qualified), nor can they be subdivided themselves

Q5) What is 88 level used for

A5) For condition names

Q6) What is level 66 used for

A6) For RENAMES clause

Q7) What does the IS NUMERIC clause establish

A7) IS NUMERIC can be used on alphanumeric items, signed numeric & packed decimal items and unsigned numeric & packed decimal items IS NUMERIC returns TRUE if the item only consists of 0-9 However, if the item being tested is a signed item, then it may contain 0-9, + and -

Q8) How do you define a table/array in COBOL

A8) ARRAYS

05 ARRAY1 PIC X(9) OCCURS 10 TIMES

05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEX

Q9) Can the OCCURS clause be at the 01 level

A9) No

Q10) What is the difference between index and subscript - GS

A10) Subscript refers to the array occurrence while index is the displacement (in no of bytes) from the beginning of the array An index can only be modified using PERFORM, SEARCH & SET Need to have index for a table in order to use SEARCH, SEARCH ALL

Q11) What is the difference between SEARCH and SEARCH ALL - GS

A11) SEARCH - is a serial search

SEARCH ALL - is a binary search & the table must be sorted ( ASCENDING/DESCENDING KEY clause to be used & data loaded in this order) before using SEARCH ALL

以上就是关于高分求一个cobol的读写程序全部的内容，包括:高分求一个cobol的读写程序、如何在COBOL程序中调JAVA方法、如何创建一个cobol程序以及如何编译等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！