sorting - 如何使用 JCL 将单个数据集中的报表拆分为多个数据集
问题描述
一个数据集里面有很多报告。我需要将第一份报告单独发送到另一个数据集。我们如何使用 JCL 来实现?
下面是数据集的样例。我的要求是只整理R0A报告下的记录。
---Report - R0A---
List of Payments
Date : 23/07/2021
Name Payment-Amt Due-Date
AAAA 233.04 15/08/2021
BBBB 38.07 16/08/2021
---Report - R0B---
List of Payments
Date : 23/07/2021
Name Payment-Amt Due-Date
AAAA 233.04 15/08/2021
BBBB 38.07 16/08/2021
---Report - R0C---
List of Payments
Date : 23/07/2021
Name Payment-Amt Due-Date
AAAA 233.04 15/08/2021
BBBB 38.07 16/08/2021
解决方案
如果报告的大小是固定的,您可以使用带有COPY
和STOPAFT=
选项的排序:
SORT FIELDS=COPY,STOPAFT=6
如果您需要第一个报告之外的报告,您可以添加该SKIPREC=
选项。例如,要获得第三份报告,请指定:
SORT FIELDS=COPY,SKIPREC=12,STOPAFT=6
如果报告的长度不同,您可以运行一个简单的 REXX。
/* REXX - NOTE This is only a skeleton. Error checking must be added. */
/* This code has not been tested, so thorough testing is due. */
"ALLOC F(INP) DS('your.fully.qualed.input.data.set.name') SHR"
"EXECIO * DISKR INP ( STEM InpRec. FINISH"
"FREE F(INP)"
TRUE = 1
FALSE = 0
ReportStartIndicator = "---Report"
ReportName = "- R0B---"
ReportHeader = ReportStartIndicator ReportName
ReportCopy = FALSE
do ii = 1 to InpRec.0 while ReportCopy = FALSE
if InpRec.ii = ReportHeader
then ReportCopy = TRUE
end
if ReportCopy
then do
OutRec.1 = InpRec.ii
Outcnt = 1
do jj = ii + 1 to InpRec.0 while ReportCopy = TRUE
if word( InpRec.jj, 1 ) = ReportStartIndicator /* Start of next report? */
then ReportCopy = FALSE
else do
OutCnt = OutCnt + 1
OutRec.Outcnt = InpRec.jj
end
end
"ALLOC F(OUT) DS('your.fully.qualed.output.data.set.name')" ,
"NEW CATLG SPACE(......) RECFM(....) LRECL(....)"
"EXECIO" OutCnt "DISKW OUT ( STEM OutRec. FINIS"
"FREE F(OUT)"
say "Done copying report." OutCnt "records have been copied."
end
else do
say "Report" ReportName "not found."
exit 16
end
正如 REXX 中的评论所写,我没有测试过这段代码。此外,还需要添加错误检查,尤其是对于 TSO HOST 命令(ALLOC、EXECIO、FREE)。
所有解决方案都将单个报告复制到另一个数据集。在标题中,您写入了多个数据集。我相信您会使用上述单一报告解决方案找到解决方案。
推荐阅读
- php - 无需用户参与的 Laravel 护照身份验证
- arrays - C中数组的动态内存分配
- r - 如何在系统发育树或地图中显示梯度
- ruby-on-rails - Rails 6.0 在为一种用户创建和更新时验证密码是否存在,但只为另一种用户更新
- .net-core - dotnet watch run blazor wasm 加载 pdb 符号
- javascript - 为移动/桌面加载不同 div 标签的条件
- r - 用 apply 替换 for 循环以获得更快的应用程序
- python - 对 config.py 使用类继承可能有哪些缺点?
- python - 在 pycharm 中使用 Tesseract 进行文本识别时出错(Windows)
- r - 如何删除 R 中 DEM 的像素值的设定范围?