| ■ カラム指定でレポートを作成するには |  |
EX)＜サンプル１＞通常のレポートでカラム指定する場合
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA
I-MISE 2 2 P HEADING('ﾐｾ') MASK('999')
I-NUMBER 5 4 P HEADING('ﾊﾞﾝｺﾞｳ') MASK('9999999')
I-ID 9 4 P HEADING('ID') MASK('9999999')
*
JOB INPUT FILEA
PRINT
REPORT REPT1 NOADJUST NODATE ← NOADJUST･NODATEを記述
TITLE 1 COL 10 '### TEST ###'
LINE 1 COL 5 I-MISE COL 15 I-NUMBER COL 25 I-ID COL 40 '@#%*?'
↑ ↑
カラムを指定する 固定文字
↓実行結果
----+----1----+----2----+----3----+----4----+----5-
********************************* データの始め ****
### TEST ###
ﾐｾ ﾊﾞﾝｺﾞｳ ID
100 3800281 0103625 @#%*?
100 3800292 0103636 @#%*?
100 3800306 0103647 @#%*?
100 3800317 0103658 @#%*?
100 3800328 0103669 @#%*?
102 0100054 0100105 @#%*?
|
EX)＜サンプル２＞例えばファイル転送のデータを作成したい場合
//STEP1 EXEC PGM=EZTP00
//SYSPRINT DD DSN=TEST.DOWNLOAD.DATA,DISP=(,CATLG,CATLG), ←ファイル転送用データ
// UNIT=SYSDA,DCB=(RECFM=FB,LRECL=137,BLKSIZE=13700)
//FILEA DD DSN=TEST.INPUT.DATA,DISP=SHR
//SYSLIN DD *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA
I-MISE 2 2 P
I-NUMBER 5 4 P
I-ID 9 4 P
*
JOB INPUT FILEA
PRINT
REPORT REPT1 NOADJUST NODATE ← NOADJUST･NODATEを記述
LINE 1 COL 5 I-MISE COL 15 I-NUMBER COL 25 I-ID COL 40 '@#%*?'
↑ ↑
カラムを指定する 固定文字
↓実行結果
表示 TEST.DOWNLOAD.DATA
コマンド ===>
----+----1----+----2----+----3----+----4----+--
********************************* データの始め
100 3800281 0103625 @#%*?
100 3800292 0103636 @#%*?
100 3800306 0103647 @#%*?
100 3800317 0103658 @#%*?
100 3800328 0103669 @#%*?
102 0100054 0100105 @#%*?
|