Question

是否可以用DFSORT或MFSORT中的其他选项STARTPOS，ENDPOS替换FINDREP？

示例：OUTREC|INREC FINDREP=(IN=C'CHARS',OUT=C'CHARS')

Answer 1

关于MFSORT和MFJSORT的Micro Focus文档：

注意：MFJSORT和MFSORT会定期更新新功能，但它们不提供第三方排序实用程序的完整模拟。如果您需要使用特定功能，请联系SupportLine以确定它们是否可用于MFJSORT或MFSORT。

据推测，Micro Focus或其他人参与了从z / OS迁移的规划？这应该包括对提供与SORT / ICETOOL步骤等效的工作的分析。如果没有，可能会有相当多的工作没有预算。

如果MFSORT或MFJSORT中没有FINDREP（请参阅SupportLine，如Micro Focus建议的那样），并且如果它们无法使用（如果Micro Focus错过了此项，则可能会施加压力那个问题）你需要一个替代方案。

如果可能的话，特别是因为你提到使用STARTPOS和ENDPOS，可以从Micro Focus产品中获得的CHANGE：http://documentation.microfocus.com/help/index.jsp?topic=%2Fcom.microfocus.eclipse.infocenter.edtest%2FHRFLRHSORT2U.html，它显示了这段代码：

Sort C'cyymmdd' 
     SORT FIELDS=(1,7,BI,A)        * sort C'cyymmdd' 
     use mfs110a.in org ls record (f 40)
    * Transform C'cyymmdd' to C'yyyymmdd' 
     OUTFIL OUTREC=(1,1,CHANGE=(2, * change C'c' as follows:
                      C'0',C'19',  *   C'0' to C'19' 
                      C'1',C'20',  *   C'1' to C'20' 
                      C'2',C'21'), *   C'2' to C'21' 
                      NOMATCH=(C'99')
                    2,6)           * copy C'yymmdd' 

     give sortout.dat

请注意，您有＆＃34;额外＆＃34; MFSORT / MFJSORT所需的命令（如use和give以及程序名称。

根据上述代码判断，Micro Focus尚未提供IFTHEN。这将对任何远程和复杂的东西产生重大影响。目前正在使用USING进行DFSORT步骤或ICETOOL步骤。

Micro Focus支持E15和E35＆＃34;退出＆＃34; s。这意味着您可以编写程序以在输入阶段和输出阶段进行更改。您告诉MFSORT / MFJSORT使用该程序并实现缺少的功能。在大型机上，这些出口可以用Enterprise COBOL编写。我假设在新环境中，它们可以用Micro Focus COBOL编写。如果是这样，可以使用INSPECT完成FINDREP。但是，鉴于您想使用STARTPOS和ENDPOS，您将需要/可能需要许多退出程序。

如果您的系统使用ICETOOL，您还应该检查您使用的所有操作员是否都可以在Micro Focus＆＃34;仿真＆＃34;。

下使用。

好消息是，您迁移到的操作系统将拥有许多工具，这些工具能够影响不受支持的编码，但确实需要对其进行评估和预算。

DFSORT特别快，特别是在IO，但不限于此。您可能期望替换的不同相对时间，特别是如果您需要退出程序或进一步处理＆＃34; shell＆＃34;新操作系统上的程序。在此之前应该考虑这个问题，但担心的是它没有。

如果您的系统不是小型z / OS系统，请注意，由于新的分布式系统无法“缩放”，因此您将面临许多冲击。你怎么想象。

如果您正在迁移自己，而不是Micro Focus项目团队，您几乎肯定需要其他专家的支持。即使有Micro Focus项目团队，如果你有复杂的＆＃34; SORT步骤，额外的专家支持将为您带来巨大的利益。

Answer 2

AHLSORT 是 MFSORT 的替代方案，完全支持 DFSORT FINDREP 命令。

模拟z / OS FINDREP

2 个答案: