■  キャラクターをパックに変換する方法

//STEP1		EXEC	PGM=ICEGENER
//SYSPRINT		DD	SYSOUT=*
//SYSUT1		DD	DSN=INFILE,DISP=SHR
//SYSUT2		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	GENERATE MAXFLDS=4,MAXLITS=1
	RECORD	FIELD=(1,X'00',,1),		←OUTの1ﾊﾞｲﾄ目にX'00'
		FIELD=(3,1,ZP,2),		←OUTの2ﾊﾞｲﾄ目からINPUTの1〜3桁をパックにしてセット
		FIELD=(2,4,,4),		←OUTの4ﾊﾞｲﾄ目からINPUTの2〜3桁をセット
		FIELD=(9,6,ZP,6)		←OUTの6ﾊﾞｲﾄ目からINPUTの6〜9桁をパックにしてセット
/*
//STEP2		EXEC	PGM=ICEGENER
//SYSPRINT		DD	SYSOUT=*
//SYSUT1		DD	*
あああ				←このレコードに意味はない
//SYSUT2		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	GENERATE MAXFLDS=5,MAXLITS=50
	RECORD	FIELD=(10,'0000000000',ZP,1),		←OUTの1〜5ﾊﾞｲﾄ目にパックのゼロをセット
		FIELD=(10,'0000000000',ZP,11),		←OUTの11〜15ﾊﾞｲﾄ目にパックのゼロをセット
		FIELD=(10,'0000000000',ZP,21),		←OUTの21〜15ﾊﾞｲﾄ目にパックのゼロをセット
		FIELD=(10,'0000000000',ZP,31),		←OUTの31〜15ﾊﾞｲﾄ目にパックのゼロをセット
		FIELD=(10,'0000000000',ZP,41),		←OUTの41〜15ﾊﾞｲﾄ目にパックのゼロをセット
/*

BEFORE PAGE

TOP PAGE