Integrated compiler DB2 V8 for Zos

PAUL WALTERS

Integrated compiler DB2 V8 for Zos
Usage questions with the integrated compiler with COBOL.

We are a legacy cobol shop and have done a couple of things that we would not recommend doing.

One is putting non-character data in character columns.

10 WS-FME-APPLD-AMT-TXT.
49 FME-APPLD-AMT-TXT-LEN PIC S9(4) USAGE COMP.
49 FME-APPLD-AMT-TXT-TEXT PIC X(420).

Where in the program the column is moved into a structure like this
10 QME-APPLD-AMT-TXT.
49 QME-APPLD-AMT-TXT-LEN
PIC S9(4) COMP.
49 QME-APPLD-AMT-TXT-TEXT
PIC X(420).
10 QME-ETH-REDEF REDEFINES QME-APPLD-AMT-TXT.
13 FILLER OCCURS 2 TIMES
PIC X.
13 QME-ETH-LOAN-ALLOC OCCURS 20 TIMES.
16 QME-ETH-APPLIED-AMT-1
PIC S9(7)V99 COMP-3.
.........

We have read that the integrated compiler may not like this and could corrupt the non character data.

We also have columns that contain bit data - for example
FE_LON_MAP_CD CHAR(3) NOT NULL.

We actually expand the out to 24 flags that are either on or off.

Does anyone have any experience good or bad with the integrated compiler with usage like this.

Thanks in advance.




______________________________________________________________________

* IDUG 2009 Rome, Italy * 5-9 October * http://IDUG.ORG/Events *
______________________________________________________________________



IDUG.org was recently updated requiring members to use a new password. You should have gotten an e-mail with the temporary password assigned to your account. Please log in and update your member profile. If you are not already an IDUG.org member, please register at http://www.idug.org/component/juser/register.html

Binyamin Dissen

Re: Integrated compiler DB2 V8 for Zos
(in response to PAUL WALTERS)
On Fri, 9 Jan 2009 09:11:21 -0500 "Walters, Paul"
<[login to unmask email]> wrote:

:>Usage questions with the integrated compiler with COBOL.

:>We are a legacy cobol shop and have done a couple of things that we would not recommend doing.

:>One is putting non-character data in character columns.

:>10 WS-FME-APPLD-AMT-TXT.
:> 49 FME-APPLD-AMT-TXT-LEN PIC S9(4) USAGE COMP.
:> 49 FME-APPLD-AMT-TXT-TEXT PIC X(420).

:>Where in the program the column is moved into a structure like this
:>10 QME-APPLD-AMT-TXT.
:> 49 QME-APPLD-AMT-TXT-LEN
:> PIC S9(4) COMP.
:> 49 QME-APPLD-AMT-TXT-TEXT
:> PIC X(420).
:>10 QME-ETH-REDEF REDEFINES QME-APPLD-AMT-TXT.
:> 13 FILLER OCCURS 2 TIMES
:> PIC X.
:> 13 QME-ETH-LOAN-ALLOC OCCURS 20 TIMES.
:> 16 QME-ETH-APPLIED-AMT-1
:> PIC S9(7)V99 COMP-3.
:>.........

:>We have read that the integrated compiler may not like this and could corrupt the non character data.

Can't imagine why. Standard CHAR columns are not restricted to printable
characters.

:>We also have columns that contain bit data - for example
:>FE_LON_MAP_CD CHAR(3) NOT NULL.

:>We actually expand the out to 24 flags that are either on or off.

:>Does anyone have any experience good or bad with the integrated compiler with usage like this.

No experience with the compiler, but time to get out the ruler and rap the
knuckles of the folk who converted the programs and files to DB2 without
fixing the data.

--
Binyamin Dissen <[login to unmask email]>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

______________________________________________________________________

* IDUG 2009 Melbourne, Australia * 18-20 March * http://IDUG.ORG/Events *
______________________________________________________________________




IDUG.org was recently updated requiring members to use a new password. You should have gotten an e-mail with the temporary password assigned to your account. Please log in and update your member profile. If you are not already an IDUG.org member, please register at http://www.idug.org/component/juser/register.html