我已经编写了一个Cobol报告编写程序,但无法编译它
我在读到Cobol支持ReportWriter之后写了这篇文章,后来才发现我们学校的z/OS版本实际上并不支持它 我想知道是否有一种方法可以轻松地将其转换为基本Cobol,或者是否有任何类型的编译器可以找到并使用我已经编写了一个Cobol报告编写程序,但无法编译它,cobol,Cobol,我在读到Cobol支持ReportWriter之后写了这篇文章,后来才发现我们学校的z/OS版本实际上并不支持它 我想知道是否有一种方法可以轻松地将其转换为基本Cobol,或者是否有任何类型的编译器可以找到并使用 感谢您提供的任何帮助。已经看过报告部分;是的,它可能很容易转换 对于转换,需要在WRITE语句中选择使用IBMPOSITIONING或标准COBOLadvanced;和页面结尾异常或编写自己的代码以移动到下一页 我调整了一些间距,对原稿做了一些修改。我为测试数据生成了120条记录,都是
感谢您提供的任何帮助。已经看过
报告部分
;是的,它可能很容易转换
对于转换,需要在WRITE
语句中选择使用IBMPOSITIONING
或标准COBOLadvanced
;和页面结尾
异常或编写自己的代码以移动到下一页
我调整了一些间距,对原稿做了一些修改。我为测试数据生成了120条记录,都是随机数
REPORT SECTION.
RD PRODUCT-REPORT
PAGE LIMIT 59
HEADING 1
FIRST DETAIL 6
LAST DETAIL 59.
01 HEAD1 TYPE PH.
03 LINE 1.
05 COLUMN 1 PIC X(5) VALUE 'DATE:'.
05 COLUMN 8 PIC 9(2) SOURCE WS-CD-MONTH.
05 COLUMN 10 PIC X VALUE '/'.
05 COLUMN 11 PIC 9(2) SOURCE WS-CD-DAY.
05 COLUMN 13 PIC X VALUE '/'.
05 COLUMN 14 PIC 9(2) SOURCE WS-CD-YEAR.
05 COLUMN 33 PIC X(19) VALUE 'MASTER PRODUCT LIST'.
05 COLUMN 72 PIC X(5) VALUE 'PAGE:'.
05 COLUMN 77 PIC ZZ9 SOURCE PAGE-COUNTER.
03 LINE 2.
05 COLUMN 1 PIC X(5) VALUE 'TIME:'.
05 COLUMN 9 PIC 9(2) SOURCE WS-CD-HOURS.
05 COLUMN 11 PIC X VALUE ':'.
05 COLUMN 12 PIC 9(2) SOURCE WS-CD-MINUTES.
05 COLUMN 72 PIC X(8) VALUE 'PRODLIST'.
03 LINE 4.
05 COLUMN 1 PIC X(5) VALUE 'CODE:'.
05 COLUMN 8 PIC X(5) VALUE 'TYPE:'.
05 COLUMN 18 PIC X(12) VALUE 'DESCRIPTION:'.
05 COLUMN 66 PIC X(6) VALUE 'PRICE:'.
03 LINE 5.
05 COLUMN 1 PIC X(80) VALUE ALL '='.
01 PRODLINE TYPE DE.
03 LINE PLUS 1.
05 COLUMN 1 PIC X(5) SOURCE PRODCODE.
05 COLUMN 8 PIC X(8) SOURCE PRODTYPE.
05 COLUMN 18 PIC X(32) SOURCE PRODDESC.
05 COLUMN 66 PIC $ZZZ,ZZZ,ZZ9 SOURCE PRODCOST.
运行程序并得到了部分输出
DATE: 11/08/18 MASTER PRODUCT LIST PAGE: 1
TIME: 15:54 PRODLIST
CODE: TYPE: DESCRIPTION: PRICE:
================================================================================
47638 54784935 48116892 $ 1,461,160
26450 06251370 81421270 $ 7,765,877
IBMCOBOL系列确实提供了报告编写器。您只需要一个编译器“插件”。查找产品5798-DYR COBOL报告编写器预编译器。它可以无缝地工作。不需要转换任何代码。索取免费的在线用户手册。如果看不到
报告部分
就很难同意“轻松”。您应该看看GnuCOBOL,它是一个免费的编译器,支持报表编写器。谢谢!我只是在下载。。。我觉得我必须重写这该死的东西,我踢自己学习新东西,给报告作者一个机会…@RedScofield你为什么踢自己尝试学习新技能?是的,您可能需要重写,但这并不是一件坏事,原始代码就在这里