My code has:
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.
100-KEY-TO-DISPLAY.
MOVE '-' TO PASSED-DBCONV-DASH
MOVE PASSED-DBCONV-X TO HOLD-KEYS
IF HOLD-DBKEY > ZERO
CONTINUE
ELSE
MOVE ZERO TO HOLD-DBKEY
END-IF.
DIVIDE HOLD-DBKEY BY 256 GIVING PASSED-DBCONV-PAGE-N
REMAINDER PASSED-DBCONV-POS-N.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
