| ■ ワークフィールドＷとＳの違い |  |
ＴＥＲＭＩＮＡＴＩＯＮプロシージャーを使って、なおかつ、 レポートにＳＥＱＵＥＮＣＥを使った場合にカウンター等を表示させると正しくない値が表示される ことがあります。
下記の例はレコード件数を表示させる簡単なサンプルですが、 ＳＥＱＵＮＣＥを入れた場合と入れない場合で、件数が違って 表示されています。
EX)
//FILEA DD * ←ＩＮＰＵＴファイル（６件）
991126REC1
991129REC2
991130REC3
991130REC4
991129REC5
991126REC6
//SYSLIN DD *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA ←ＩＮＰＵＴファイル定義
I-DAY 1 6 N
I-NAME * 10 A
*
CNT W 5 P 0 VALUE 0 ←ワークエリアをＷタイプで定義
*
JOB INPUT FILEA FINISH LAST-PROC
CNT = CNT + 1
PRINT REPT1
LAST-PROC. PROC
DISPLAY SKIP 2 'LAST-PROC = ' RECORD-COUNT ' ｹﾝ' ←ＥＡＳＹのシステムフィールド(=RECORD-COUNT)
DISPLAY ' CNT = ' CNT ' ｹﾝ' ←ユーザー定義のフィールド(=CNT)
END-PROC.
REPORT REPT1 SPACE 1 TITLESKIP 1
*SEQUENCE I-DAY
TITLE 1 '***** TEST *****'
LINE 1 I-DAY I-NAME
TERMINATION. PROC
DISPLAY 'TERMINATION = ' RECORD-COUNT ' ｹﾝ' ←ＥＡＳＹのシステムフィールド(=RECORD-COUNT)
DISPLAY ' CNT = ' CNT ' ｹﾝ' ←ユーザー定義のフィールド(=CNT)
END-PROC.
/*
//
↓実行結果例
＜実行結果１＞…ＳＥＱＵＥＮＣＥをコメントにした場合
９９年１２月０１日 ***** TEST *****
I-DAY I-NAME
991126 REC1
991129 REC2
991130 REC3
991130 REC4
991129 REC5
991126 REC6
LAST-PROC = 6 ｹﾝ ←全て正しい件数
CNT = 6 ｹﾝ
TERMINATION = 6 ｹﾝ
CNT = 6 ｹﾝ
＜実行結果２＞…ＳＥＱＵＥＮＣＥがある場合
LAST-PROC = 6 ｹﾝ ←ＦＩＮＩＳＨでの表示件数は正しいが
CNT = 6 ｹﾝ
９９年１２月０１日 ***** TEST *****
I-DAY I-NAME
991126 REC1
991126 REC6
991129 REC2
991129 REC5
991130 REC3
991130 REC4
TERMINATION = 4 ｹﾝ ←ＴＥＲＭＩＮＡＴＩＯＮでは正しくない件数
CNT = 4 ｹﾝ
|
※このような場合は、ワークの定義をＷでなくＳにすればＯＫです。
ＳＥＱＵＥＮＣＥ処理するとＶＦＭ（ＥＡＳＹの仮想ファイル）を使って処理されますが、 ＷタイプはＶＦＭ上にスプールされますが、ＳタイプはＶＦＭ上にスプールされないという違いがあります。