| //SORT2 | EXEC | SORT | | |
| //SORTIN | DD | * | | |
| AAAAAAAAAABBBBBBBBBB |
| /* | | | | |
| //SORTOUT | DD | DSN=OUTFILE,DISP=(,KEEP),… | | |
| //SYSIN | DD | * | | |
| | OPTION COPY,VLSHRT |
| | OUTFIL FNAMES=SORTOUT, |
| | INCLUDE=(1,2,CH,EQ,C'01'), |
| | OUTREC=(21,20,C'@',3,3,PD,EDIT=(TTT),LENGTH=3,C'@',1,2, |
| | 6,5,PD,EDIT=(TTTTTTT),LENGTH=7,C' 19890501 19981030',60:10,11,80:X) |
| /* | | ↑ |
| |
このサンプルは、
ＩＮＰＵＴの２１～４０バイトをＯＵＴＰＵＴの１～２０バイトへ、
'＠'をＯＵＴＰＵＴの２１バイト目へ、
ＩＮＰＵＴの３～５バイトのＰａｃｋの下３桁をキャラクターに編集してをＯＵＴＰＵＴの２２～２５バイトへ、
'＠'をＯＵＴＰＵＴの２６バイト目へ、
ＩＮＰＵＴの１～２バイトをＯＵＴＰＵＴの２６～２７バイトへ、
ＩＮＰＵＴの６～１０バイトのＰａｃｋの下７桁をキャラクターに編集してをＯＵＴＰＵＴの２８～３４バイトへ、
' 19890501 19981030'をＯＵＴＰＵＴの３５～５３バイト目へ、
ＩＮＰＵＴの１０～２０バイトをＯＵＴＰＵＴの６０～７１バイトへ、
上記以外はスペース
をセットするロジックです。
※VLSHRTは比較するポジションがセグメント長を越える場合、そのセグメントを無視する指定。
OUTFILオプションで有効。通常のINCLUDE CONDステートメントでは指定より短いレコードがある場合ＡＢＥＮＤします。
|
