search cancel

Why does the Intertest batch DEMO program CAMRCOB2 generate COMPILE Warning messages IGYPA3228-W and  IGYOP3091?

book

Article ID: 189851

calendar_today

Updated On:

Products

InterTest - Batch

Issue/Introduction

The client just installed Intertest and Symdump r 11. When the client compiles the Intertet batch Demo program CAMRCOB2 they receive the compile warning messages below for  Enterprise COBOL 4.2.

PP 5655-S71 IBM Enterprise COBOL for z/OS  4.2.0 V4R2          CAMRCOB2  

  
1060  IGYPA3228-W   High order digit positions in the sender may be truncated in the move to receiver "CHEQUE-AMOUNT
                       (NUMERIC-EDITED)".

1101  IGYPA3228-W   High order digit positions in the sender may be truncated in the move to receiver "BILL-YTD (NUMERIC-EDITED)".

1192  IGYPA3228-W   High order digit positions in the sender may be truncated in the move to receiver "STATE-NUMBER (NUMERIC
                       INTEGER)".

1192  IGYPA3228-W   High order digit positions in the sender may be truncated in the move to receiver "COUNTY-NUM1 (NUMERIC
                       INTEGER)".

1195  IGYPA3228-W   High order digit positions in the sender may be truncated in the move to receiver "COUNTY-NUM2 (NUMERIC
                       INTEGER)".

1196  IGYOP3091-W   Code from "procedure name SET-VAR-REC" to "GO (line 1207.01)" can never be executed and was therefore
                       discarded.

1296  IGYOP3091-W   Code from "procedure name ERROR-RTN" to "GO (line 1300.01)" can never be executed and was therefore discarded.

1310  IGYOP3091-W   Code from "procedure name 990-INITIALISE" to "MOVE (line 1312.01)" can never be executed and was therefore
                       discarded.

Environment

Z/OS
InterTest Batch

Resolution

The client had to  override the default compile options on the LPAR with the following options in the compile step which resolved the eight warning messages listed below.

//COB2INT PROC LOADMEM=CAMRCOB2,
// OPTIONS='APOST,RENT,DYN,NODTR,NOOPTIMIZE',

The NOOPTIMIZE compile option override resolved the three warning messages below.

The  default OPTIMIZE compile parameter was causing the warning messages below

OPTIMIZE(STD)

1196 IGYOP3091-W Code from "procedure name SET-VAR-REC" to "GO (line 1207.01)" can never be executed and was therefore
discarded.

1296 IGYOP3091-W Code from "procedure name ERROR-RTN" to "GO (line 1300.01)" can never be executed and was therefore discarded.

1310 IGYOP3091-W Code from "procedure name 990-INITIALISE" to "MOVE (line 1312.01)" can never be executed and was therefore
discarded.


The NODTR default override option resolved the five warning message below.

The DIAGTRUNC default option was causing the warning message below.

DIAGTRUNC


1060 IGYPA3228-W High order digit positions in the sender may be truncated in the move to receiver "CHEQUE-AMOUNT
(NUMERIC-EDITED)".

1101 IGYPA3228-W High order digit positions in the sender may be truncated in the move to receiver "BILL-YTD (NUMERIC-EDITED)".

1192 IGYPA3228-W High order digit positions in the sender may be truncated in the move to receiver "STATE-NUMBER (NUMERIC
INTEGER)".

1192 IGYPA3228-W High order digit positions in the sender may be truncated in the move to receiver "COUNTY-NUM1 (NUMERIC
INTEGER)".

1195 IGYPA3228-W High order digit positions in the sender may be truncated in the move to receiver "COUNTY-NUM2 (NUMERIC
INTEGER)".