Re: Max integer in an 8 byte COMP field?

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.
.