■ ソートフィールドにレーベルを指定する方法
SYMNAMESのDDを指定するとソートフィールドにレーベルを使うことができます。
//SORT EXEC SORT //SYSPRINT DD SYSOUT=* //SORTIN DD DSN=MYFILE.INPUT,DISP=SHR //SYMNAMES DD * ←このDDを指定 NAME,1,10,CH ←レーベル,位置,長さ,属性を指定 ID1,*,10,CH ID2,*,10,CH ID3,31,3,CH //SORTOUT DD DSN=MYFILE.OUTPUT,DISP=(,KEEP),・・・ //SYSIN DD * SORT FIELDS=(NAME,D,ID1,D,ID3,A) /* ↑ SORT FIELDS=(1,10,CH,D,11,10,CH,D,31,3,CH,A)と同じです。
//SYMNOUT DD SYSOUT=x,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=12100)のDDを 追加するとSYMNAMESで指定したテーブルの内容を確認することができます。※DFSORTの全バージョンでこの指定が可能かどうかわかりません・・・(^_^);
↓こんな感じ ------- ORIGINAL STATEMENTS FROM SYMNAMES ------- NAME,1,10,CH ID1,*,10,CH ID2,*,10,CH ID3,31,3,CH ------------------ SYMBOL TABLE ----------------- NAME,1,10,CH ID1,11,10,CH ID2,21,10,CH ID3,31,3,CH