2015-10-01 22 views
0

是否有可能用選項STARTPOS,ENDPOS替換FINDREP與DFSORT或MFSORT中的其他選項?模擬z/OS FINDREP

例子:OUTREC|INREC FINDREP=(IN=C'CHARS',OUT=C'CHARS')

+0

你能澄清你的問題嗎?在您的示例中,您不指定STARTPOS或ENDPOS,將CHARS更改爲CHARS毫無意義。你想用什麼替代它,爲什麼? –

+0

我在z/OS遷移上工作,並且FINDREP在MFSORT(microfocus)中不受支持我想用somthigs替換它在SORT中嗎? – nourhero

回答

0

從Micro Focus公司文檔與MFSORT和MFJSORT:

注:MFJSORT和MFSORT與新的功能更新,定期,但他們沒有提供一個完整的仿真的第三方排序工具。如果您需要使用特定功能,請聯繫SupportLine以確定它們是否可用於MFJSORT或MFSORT。

推測Micro Focus或其他人已經參與計劃從z/OS遷移?這應該包括對提供等同於SORT/ICETOOL步驟所需的工作的分析。否則,可能會有相當多的工作沒有預算。

如果FINDREP在MFSORT或MFJSORT中不可用(如Micro Focus建議檢查SupportLine),並且無法使用它們(如果Micro Focus錯過了這一點,可能會對此問題施加壓力)你確實需要另一種選擇。

如果是可能的,特別是因爲你提到使用STARTPOS和ENDPOS,這種變化,根據這個臨客它可以從一個Micro Focus公司產品: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 

注你有MFSORT/MFJSORT(如usegive和程序名。

從上面的代碼來看列入,Micro Focus公司還沒有做出IFTHEN用。這將有實質性的影響需要「額外」的命令任何遠程「複雜」的東西目前正在使用DFSORT步驟或使用USING的ICETOOL步驟完成。

Micro Focus支持E15和E35「出口」。這意味着您可以編寫一個程序在輸入階段和輸出階段進行更改。您告訴MFSORT/MFJSORT使用該程序並實現缺失的功能。在大型機上,可以使用Enterprise COBOL編寫這些出口。我假設在你的新環境中,他們可以用Micro Focus COBOL編寫。如果是這樣,FINDREP可以通過INSPECT完成。但是,鑑於您想要使用STARTPOS和ENDPOS,您將需要大量的退出程序。

如果您的系統使用ICETOOL,您還應該檢查您使用的所有操作員是否可以在Micro Focus的「仿真」下使用。

好消息是,您正在遷移到的操作系統將有很多工具可以影響不支持的編碼,但確實需要進行評估和編制預算。

DFSORT異常快速,特別是在IO上,但不僅限於此。您可能會期望替換的相對時間不同,尤其是當您需要退出程序或在新操作系統上使用「shell」程序進一步處理時。在這一點之前,這應該再次考慮,但擔心的是它沒有。

如果您的系統不是小型z/OS系統,請注意,由於新的分佈式系統無法「縮放」您的想象,因此您會受到很多衝擊。

如果您正在遷移自己,而不是Micro Focus項目團隊,您幾乎肯定需要其他專家的支持。即使有一個Micro Focus項目團隊,如果您有「複雜」的SORT步驟,額外的專家支持將爲您帶來巨大的收益。