■  入力ファイルをコンバートするする方法

▲その１（ただのコピー）

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=INFILE,DISP=SHR
//SORTOUT		DD	DSN=…,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION  COPY
	OUTFIL FNAMES=SORTOUT,
		OUTREC FIELDS=(11,30)
/*			↑
			ＩＮＰＵＴの１１から３０バイトをコピー

---

▲その２（複雑なコンバート）

//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ステートメントでは指定より短いレコードがある場合ＡＢＥＮＤします。

---

▲その３（スペース・Ｎｕｌｌをセット）

;

//SORT3		EXEC	SORT
//SORTIN		DD	*
AAAAAAAAAA
/*
//SORTOUT		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOUT,
	OUTREC=(1,5,5X,5Z)
/*			↑
	このサンプルは、 ＩＮＰＵＴの１〜５バイトをＯＵＴＰＵＴの１〜５バイトへ、 スペース５桁をＯＵＴＰＵＴの６〜１０バイト目へ、 ＮＵＬＬ５桁をＯＵＴＰＵＴの１１〜１５バイトへ、 をセットするロジックです。

※その１では「OUTREC FIELDS=」、その２・その３では、「OUTREC=」であることに注意！

BEFORE PAGE

TOP PAGE