DFSORTを使用してレポートを生成する

Question

ICETOOL/DFSORTを呼び出すJCLジョブを作成してレポートを生成するタスクがあります。このレポートはVSAM KSDSを入力として受け取り、銀行支店のリストを生成します。

KSDSの形式のものであるのブランチに各レコード

•4バイトの6桁の小数分岐sortcodeを表すバイナリ符号なし整数（例えば、420101）

•1バイトのEBCDICフラグ：◦EBCDIC 「」ブランチを意味

◦

ZeusBankによって所有されており、そのすべてのアカウントがACCOUNTS KSDSで開催されているEBCDIC「B」は、我々がACCOUNTS KSDS

でそのアカウント情報を持っていないので、ブランチがZeusBankによって所有されていないこと

•32バイトのEBCDIC文字ブランチ名（例： "ZEUSBANK FOOFORD BAR STREET"または "OTHERBANK QUUXHAM BAZ ROAD"）、右側に空白が埋め込まれています。質問はシンプルであれば

報告書は、この

のようになります。私は、JCLにかなり新しいですので、ご容赦下さい。ありがとう。

Answer 1

あなたはこれを試すことができます。

//STEPSORT EXEC PGM=SORT 
//SYSOUT DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SORTIN DD DSN=DATASETNAME 
//SORTOUT DD SYSOUT=* 
//SYSIN DD * 
SORT FIELDS=(5,1,CH,A) 
OUTFIL HEADER2=(1:C'LIST OF WHATEVER BANK',4/, 
1:C'SORTCODE',10:C'FLAG',15:C'BRANCH',/, 
1:C'--------',10:C'----',15:C'------'), 
BUILD=(1:1,4,BI,TO=ZD,LENGTH=6,10:5,1,15:6,32) 
/*