如何解决如何在COBOL程序的SYSOUT假脱机中打印输出时纠正此逻辑错误?
这是cobol代码
*-----------------------
IDENTIFICATION DIVISION.
*-----------------------
PROGRAM-ID. TOPACCTS
AUTHOR. otto B. Boolean.
*--------------------
ENVIRONMENT DIVISION.
*--------------------
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRINT-LINE ASSIGN TO PRTLINE.
SELECT CUST-RECS ASSIGN TO CUSTRECS.
*-------------
DATA DIVISION.
*-------------
FILE SECTION.
FD PRINT-LINE RECORDING MODE F.
01 PRINT-REC.
05 FILLER PIC X(02) VALUE SPACES.
05 LAST-NAME-O PIC X(25).
05 FILLER PIC X(02) VALUE SPACES.
05 ACCT-BALANCE-O PIC X(18).
05 FILLER PIC X(33) VALUE SPACES.
*
FD CUST-RECS RECORDING MODE F.
01 CUSTOMER-REC.
05 LAST-NAME PIC X(25).
05 FILLER PIC X(10) VALUE SPACES.
05 FirsT-NAME PIC X(15).
05 FILLER PIC X(10) VALUE SPACES.
05 ACCT-BALANCE PIC X(18).
05 FILLER PIC X(02) VALUE SPACES.
*
WORKING-STORAGE SECTION.
01 Filler.
05 LASTREC PIC X VALUE SPACE.
05 TOTL PIC 9(2) VALUE ZEROS.
05 SUB1 PIC 9(2) VALUE 01.
05 S PIC X(12) VALUE "8,500,000.00".
*
01 OVERLIMIT.
03 FILLER OCCURS 20 TIMES.
05 OL-ACCT-NO PIC X(8).
05 OL-ACCT-LIMIT PIC S9(7)V99 COMP-3.
05 OL-ACCT-BALANCE PIC S9(7)V99 COMP-3.
05 OL-LASTNAME PIC X(20).
05 OL-FirsTNAME PIC X(15).
*
01 HEADER-1.
05 FILLER PIC X(20)
VALUE 'Financial Report for'.
05 FILLER PIC X(01) VALUE SPACES.
05 FILLER PIC X(14)
VALUE "Account holder".
05 FILLER PIC X(45) VALUE SPACES.
*
01 HEADER-2.
05 FILLER PIC X(05) VALUE 'Year '.
05 HDR-YR PIC 9(04).
05 FILLER PIC X(02) VALUE SPACES.
05 FILLER PIC X(06) VALUE 'Month '.
05 HDR-MO PIC X(02).
05 FILLER PIC X(02) VALUE SPACES.
05 FILLER PIC X(04) VALUE 'Day '.
05 HDR-DAY PIC X(02).
05 FILLER PIC X(56) VALUE SPACES.
*
01 HEADER-3.
05 FILLER PIC X(08) VALUE 'No.'.
05 FILLER PIC X(02) VALUE SPACES.
05 FILLER PIC X(10) VALUE 'Cust Name '.
05 FILLER PIC X(15) VALUE SPACES.
05 FILLER PIC X(08) VALUE 'Balance '.
05 FILLER PIC X(40) VALUE SPACES.
*
01 HEADER-4.
05 FILLER PIC X(08) VALUE '--------'.
05 FILLER PIC X(02) VALUE SPACES.
05 FILLER PIC X(10) VALUE '----------'.
05 FILLER PIC X(15) VALUE SPACES.
05 FILLER PIC X(10) VALUE '----------'.
05 FILLER PIC X(02) VALUE SPACES.
05 FILLER PIC X(13) VALUE '-------------'.
05 FILLER PIC X(40) VALUE SPACES.
*
01 WS-CURRENT-DATE-DATA.
05 WS-CURRENT-DATE.
10 WS-CURRENT-YEAR PIC 9(04).
10 WS-CURRENT-MONTH PIC 9(02).
10 WS-CURRENT-DAY PIC 9(02).
05 WS-CURRENT-TIME.
10 WS-CURRENT-HOURS PIC 9(02).
10 WS-CURRENT-MINUTE PIC 9(02).
10 WS-CURRENT-SECOND PIC 9(02).
10 WS-CURRENT-MILLISECONDS PIC 9(02).
*
*------------------
PROCEDURE DIVISION.
*------------------
OPEN-FILES.
OPEN INPUT CUST-RECS.
OPEN OUTPUT PRINT-LINE.
disPLAY HEADER-1.
PERFORM WRITE-HEADERS.
disPLAY 'PREPARED ON ' HDR-DAY '.' HDR-MO '.' HDR-YR.
disPLAY '# OF RECORDS: ' TOTL.
disPLAY '==========================================='.
PERFORM READ-NEXT-RECORD.
*
WRITE-HEADERS.
MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-DATA.
MOVE WS-CURRENT-YEAR TO HDR-YR.
MOVE WS-CURRENT-MONTH TO HDR-MO.
MOVE WS-CURRENT-DAY TO HDR-DAY.
MOVE SPACES TO PRINT-REC.
WRITE PRINT-REC AFTER ADVANCING 1 LInes.
MOVE SPACES TO PRINT-REC.
*
*
READ-NEXT-RECORD.
PERFORM READ-RECORD
PERFORM UNTIL LASTREC = 'Y'
PERFORM THE-RICH
PERFORM WRITE-RECORD
PERFORM READ-RECORD
END-PERFORM.
EXIT.
*
*
READ-RECORD.
READ CUST-RECS
AT END MOVE 'Y' TO LASTREC
END-READ.
EXIT.
*
THE-RICH.
IF FUNCTION NUMVAL-C(S) < FUNCTION NUMVAL-C(ACCT-BALANCE)
THEN
disPLAY LAST-NAME ACCT-BALANCE
MOVE ACCT-BALANCE TO ACCT-BALANCE-O
MOVE LAST-NAME TO LAST-NAME-O
ADD 1 TO SUB1
MOVE SUB1 TO TOTL
END-IF.
EXIT.
*
WRITE-RECORD.
MOVE ACCT-BALANCE TO ACCT-BALANCE-O.
MOVE LAST-NAME TO LAST-NAME-O.
* MOVE FirsT-NAME TO FirsT-NAME-O.
WRITE PRINT-REC.
EXIT.
*
这是SYSOUT输出
Financial Report for Account holder
PREPARED ON 24.09.2020
no OF RECORDS: 00
===========================================
Maggie Bignell 8,670,838.00
Saw Eckart 8,668,500.00
Dede Quickenden 8,667,260.00
Allison Oxshott 8,593,183.00
Ambrose Inch 8,557,403.00
Leann Lob 8,656,689.00
Nevile Roswarn 8,579,721.00
Hedda Littrell 8,598,965.00
KonstantineMerner 8,306.00
Heddie Atwel 8,674,813.00
Torie Gimenez 8,662,345.00
Lorraine Van Hault 8,390.00
Javier Coltan 8,534,879.00
Kissee Kidston 8,650,707.00
Benedikta Spitell 8,589,633.00
Niles Garnson 8,649,886.00
Alair Sturrock 8,576,908.00
Tandy Pilgram 8,626,022.00
Elfrida Bamlet 8,540,474.00
IGZ0020S A logic error occurred. Neither FILE STATUS nor a declarative was specified for file CUSTRECS in program
TOPACCTS at relative location X'414'. The status code was 46.
From compile unit TOPACCTS at entry point TOPACCTS at compile unit offset +00000414 at entry offset +00000414
at address 1B800414.
解决方法
如果使用大型机COBOL编译器,请转到documentation并选择您的版本。然后,您搜索“文件状态密钥”并查看文件状态46表示什么。
尝试在输入中打开的文件上执行顺序READ语句 或I-O模式,并且由于以下原因未建立有效的下一条记录:
- 前面的READ语句不成功,但没有导致结束条件。
- 前面的READ语句导致结束条件。
请注意,在OPEN-FILES
段落中,您PERFORM READ-NEXT-RECORD
然后在到达文件末尾后进入代码的其余部分。
您可能希望在第一段末尾使用STOP RUN
或GOBACK
。
有关打印记录计数的编辑:确实没有一种好方法可以使记录计数显示在报告的顶部,因为在读取整个输入文件之前,您不知道记录计数,但是重新打印报告行。大多数时间控制总计(如记录计数)都是DISPLAY
(默认情况下进入SYSOUT DD),而报告则进入FILE-CONTROL
中定义的其他DD(通过{{1 }},就像您在做什么)。
关于打印记录计数的第二次编辑:正如@GilbertLeBlanc指出的那样,您可以将输出行存储在表中,直到您读取了输入文件中的所有记录。您的表中确实必须有足够的空间来处理所有输出记录,并且有许多不同的方法可以做到这一点。
- 您的表可以用足够大的
WRITE
子句进行静态定义,以处理告诉您的记录数量合理的情况。这过去很普遍,并且会有代码检查是否超出了合理数量,如果超过了合理数量,则退出。 - 您的表可能会随
UNBOUNDED
短语而变化,但要受其限制,并使用ALLOCATE
语句和FREE
语句来管理存储。 - 您可以使用LE Callable Services CEEGTST,CEEFRST和CEECZST进行自己的分配和重新分配。
Gilbert还指出,您可以读取文件两次,一次获取记录计数,然后关闭然后重新打开以进行正常处理。只要您不对JCL做一些棘手的事情,它就可以工作...
OCCURS
...每次关闭并打开CUST-RECS和PRINT-LINE时,您将获得下一个DD。但这是一个更高级的JCL主题,您在实践中可能不会经常遇到。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。