■ ストリーム外カタプロサンプル
■まず、プロシージャだけのメンバーを作成します。
(例えば、TEST.MYLIBというライブラリーにSRTというメンバーを作った例)
//SRT PROC FL= //S1 EXEC PGM=SORT //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(10)) //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&FL,DISP=SHR //SORTOUT DD DSN=&FL.NEWFL,DISP=(,KEEP),… //SYSIN DD DDNAME=SRTCARD ←カード パラメータを外出しにする例 // PEND
※このメンバーの中に/*や//だけの行があってはなりません!
■上記プロシージャを呼び出します。
//job JOB … //PROCLIB JCLLIB ORDER=TEST.MYLIB ←私用ライブラリーの指定 //STEP1 EXEC SRT,FL=MYDAT.FILE01 //SRTCARD DD * ←カタプロのSYSINカードの中身です SORT FIELDS=(1,1,CH,A) /* //
※MYDAT.FILE01は入力ファイルの例です。このJOBを実行すると、
//SORTIN DD DSN=MYDAT.FILE01,DISP=SHR
//SORTOUT DD DSN=MYDAT.FILE01.NEWFL,DISP=KEEP
というJCLが生成されます。