■  SuperCで文字列サーチJCLサンプル


//STEP1 EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'ANYC')  
//NEWDD DD DSN=MYLIB,DISP=SHR  
//OUTDD DD SYSOUT=*  
//SYSIN DD *  
CMPCOLM  1:72
SRCHFOR  'WORD1'
SRCHFORC  'WORD2'
DPLINE  'AAA'
DPLINEC  'ZZZ'
SELECT  MEM001,MEM002,MEM003

※上記例はSuperCを使ってライブラリーのMEM001・MEM002・MEM003のメンバーから1〜72カラム目に「WORD1」と「WORD2」を文字列を両方含んでいて、 かつ、「AAA」と「XXX」の両方含まれていない行を検索します。

※ライブラリー全体を検索するには、SELECTの行をはずします。

※処理オプションの説明は、このマニュアルのP.452以降に記載されています。
  でもっ!調べるより、TSOのSEARCH-FOR(=3.14)か拡張SEARCH-FORE(=3.15)のユーティリティメニューをバッチモードで
  実行する際に出てくるパラメータをそのまま盗んだほうが早いと思います。



BEFORE PAGE

TOP PAGE