KEEP7380オプション指定時のメッセージ表示差異について
Article ID: 264102
Updated On:
Products
JCLCheck Workload Automation
UNICENTER JCLCHECK COMMON COMPONENT
Issue/Introduction
EDCHEKで73カラム以降の文字列を検証するためにはKEEP7380オプション指定が必要ですが、当オプションを指定した場合、どのようなメッセージ表示差異がありますか？
Environment
Release : 12.0
Component : JCLCheck Workload Automation (JCLCheck Workload Automation)
Resolution
JCLCheckは、EDCHEK実行時に、73～80カラムをJCLステートメントシーケンス保持のために使用します。
しかしながら、KEEP7380オプション指定時は、当情報を使用せずユーザーEXITやREXXインターフェースに情報を渡しているため、メッセージは行間ではなく上部へ表示される仕様となります。
EDCHEK実行メッセージ表示例：
DDEXIT CAZ1XDDにて、カラム73～80に数字データがあった場合「CAY6700E COL 73-80 HAS "NUMERIC"」メッセージを表示する仕様をコードし、カラム73～80に数字データがあるJCLを検証。
KEEP7380オプション指定無し
==MSG> CAY6000 2 STATEMENTS FLAGGED IN JOB "TSTUSR1X" MAXIMUM SEVERITY WAS 8
==MSG>
==MSG>
==MSG>
000001 //TSTUSR1X JOB (10000000),'TSTUSR1',CLASS=A,MSGCLASS=X,
==MSG> //TSTUSR1X JOB (10000000),"TSTUSR1",CLASS=A,MSGCLASS=X,
000002 // NOTIFY=TSTUSR1,MSGLEVEL=(1,1),USER=TSTUSR1
==MSG> // NOTIFY=TSTUSR1,MSGLEVEL=(1,1),USER=TSTUSR1
==MSG> CAY6320I USER "TSTUSR1 /TSTUSR1" VIRTUAL SIGNON TO CAISSF COMPLETE
==MSG>
000003 //**------------------------------------------------------------------*
000004 //S1 EXEC PGM=IEFBR14,DPRTY=8
000005 //SYSUTAB DD DISP=SHR,UNIT=VTAPE,
==MSG> //SYSUTAB DD DISP=SHR,UNIT=VTAPE,
000006 // DSNAME=TEST.JCK.O00X
==MSG> // DSNAME=TEST.JCK.O00X
==MSG> CAY6079E DATA SET "TEST.JCK.O00X" SPECIFIED AS OLD OR SHR, BUT CANNOT
==MSG> BE FOUND
==MSG> CAY6700E COL 73-80 HAS "NULL"
==MSG>
検証結果
＊KEEP7380オプション未指定のため「CAY6700E COL 73-80 HAS "NULL"」メッセージが表示され、73カラム以降のデータが正しく認識されない状況
＊メッセージは行間に表示
KEEP7380オプション指定有
==MSG> //TSTUSR1X JOB (10000000),"TSTUSR1",CLASS=A,MSGCLASS=
==MSG> // NOTIFY=TSTUSR1,MSGLEVEL=(1,1),USER=TSTUSR1
==MSG> CAY6320I USER "TSTUSR1 /TSTUSR1" VIRTUAL SIGNON TO CAISSF COMPLETE
==MSG>
==MSG> //SYSUTAB DD DISP=SHR,UNIT=VTAPE,
==MSG> // DSNAME=TEST.JCK.O00X
==MSG> CAY6079E DATA SET "TEST.JCK.O00X" SPECIFIED AS OLD OR SHR, BUT CANNOT
==MSG> BE FOUND
==MSG> CAY6700E COL 74 IS "NUMERIC"
==MSG>
==MSG> CAY6000 2 STATEMENTS FLAGGED IN JOB "TSTUSR1X" MAXIMUM SEVERITY WAS 8
==MSG>
==MSG>
==MSG>
000001 //TSTUSR1X JOB (10000000),'TSTUSR1',CLASS=A,MSGCLASS=X,
000002 // NOTIFY=TSTUSR1,MSGLEVEL=(1,1),USER=TSTUSR1
000003 //**------------------------------------------------------------------*
000004 //S1 EXEC PGM=IEFBR14,DPRTY=8
000005 //SYSUTAB DD DISP=SHR,UNIT=VTAPE,
000006 // DSNAME=TEST.JCK.O00X
000007 //
検証結果
＊「CAY6700E COL 73-80 HAS "NUMERIC"」メッセージが表示され、73カラム以降のデータを正しく認識
＊メッセージは上部に表示
Additional Information
Old Japanese Knowledge document ID: JTEC003196
JCLCheckのその他のFAQについては、以下のリンクからご確認ください。
Feedback
Yes
No
Powered by
