使用P4QFOCUS生成Excel报告

时间:2016-03-02 07:05:12

标签: focus mainframe jcl

我需要使用P4QFOCUS生成Excel报告。 如果输入文件有数据,则在excel表中打印数据, 如果输入文件中没有记录,则在Excel工作表中仅打印消息“文件为空”。

例如:

input file:
01 james 25
05 john  18

如果输入文件有记录,则应生成Excel表格,如下所示

RollNo  Name   Age
01      james  25
05      john   18

如果输入文件中没有记录,那么应该生成Excel表格, “文件是空的”

我期待Focus步骤的逻辑,如果焦点步骤准备就绪,那么我将有一个邮件步骤将报告作为excel格式发送到邮件ID。

请找到我尝试过的以下代码。

TABLE FILE <Table name>                          
COUNT <Roll No> NOPRINT                
IF COUNT NE 0                                
PRINT Roll-No  AS  'Roll No'  
      Name     AS  'NAME'
      Age      AS  'Age'
ELSE
IF COUNT EQ 0  
PRINT          
 HEADING CENTER
  "File is empty"

0 个答案:

没有答案