Re: Max integer in an 8 byte COMP field?

From: Howard Brazee <howard@xxxxxxxxxx>
Date: Fri, 20 Apr 2007 13:24:41 -0600

On Fri, 20 Apr 2007 13:00:58 -0600, Howard Brazee <howard@xxxxxxxxxx>
wrote:

In IDMS, we have dbkeys that are larger than what CoBOL recognizes. So
I have the following program to convert them:

Oops, I forgot the all-important copy:

01 PASSED-DBCONV-RECORD.
02 PASSED-DBCONV-DISPLAY-DBKEY.
03 PASSED-DBCONV-PAGE PIC X(08).
03 PASSED-DBCONV-PAGE-N REDEFINES PASSED-DBCONV-PAGE

PIC 9(08).
03 PASSED-DBCONV-DASH PIC X(01).
03 PASSED-DBCONV-POS PIC X(03).
03 PASSED-DBCONV-POS-N REDEFINES PASSED-DBCONV-POS

PIC 9(03).
02 PASSED-DBCONV-X.
03 FILLER PIC X(4).
03 PASSED-DBCONV-DBKEY PIC S9(08) COMP.
.

References:
- Max integer in an 8 byte COMP field?
  - From: Graham Hobbs
- Re: Max integer in an 8 byte COMP field?
  - From: Roger While
- Re: Max integer in an 8 byte COMP field?
  - From: Howard Brazee

Prev by Date: Re: Max integer in an 8 byte COMP field?
Next by Date: Re: Max integer in an 8 byte COMP field?
Previous by thread: Re: Max integer in an 8 byte COMP field?
Next by thread: Re: Max integer in an 8 byte COMP field?
Index(es):
- Date
- Thread