Question

我在读到Cobol支持Report Writer之后写了这篇文章，只是后来发现我们在学校使用的z / OS版本实际上并不支持它。

我想知道是否有一种方法可以轻松地将其转换为基本的Cobol，或者我是否可以找到并使用任何类型的编译器。

感谢您提供的任何帮助。

Answer 1

看过REPORT SECTION；是的，它很容易转换。

对于转换，需要在POSITIONING语句中使用IBM ADVANCING或标准COBOL WRITE之间进行选择；和END-OF-PAGE异常或编写自己的代码以移至下一页。

我调整了一些间距，并对原件进行了一些更正。我为测试数据生成了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

Answer 2

IBM COBOL系列确实提供了Report Writer。您只需要一个编译器“插件”即可。寻找产品5798-DYR COBOL Report writer预编译器。它可以无缝运行。无需转换任何代码。索取免费的在线用户手册。

我已经编写了Cobol Report Writer程序，但是无法编译

2 个答案: