Here's my test program. I'm just wondering what the @4 means when it
displays the value of long-nbr - which you say is an address. I'd have
expected some large value pointing to an area of memory like I'd get in
C.
*$CONTROL DYNAMIC
IDENTIFICATION DIVISION.
PROGRAM-ID. JRCHPEXTIN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-STRING PIC -(18)9.
01 WIDTHX PIC S9(4) COMP.
01 BIN-NBR PIC S9(18) COMP.
01 LONG-NBR PIC X(8).
01 REAL-NBR PIC X(4).
01 PLACES PIC S9(4) COMP.
01 ERR-FLAG PIC S9(4) COMP.
01 SCALE PIC S9(4) COMP
VALUE 0.
01 RETURN-TYPE-LONG PIC S9(4) COMP
VALUE -2.
01 RETURN-TYPE-REAL PIC S9(4) COMP
VALUE 1.
01 BLANK-FLAG PIC S9(4) COMP
VALUE 1.
01 PAUSE-TIME PIC 9(17)9 COMP
VALUE 200.
01 PAUSE-REAL PIC S9(9) COMP
VALUE 0.
01 PAUSE-DEC PIC 9(4) COMP
VALUE 1.
01 PAUSE-RESULT PIC 9(4) COMP
VALUE 0.
PROCEDURE DIVISION.
Main Section.
MOVE PAUSE-TIME TO BIN-NBR.
MOVE PAUSE-REAL TO LONG-NBR.
MOVE PAUSE-DEC TO PLACES.
MOVE PAUSE-RESULT TO ERR-FLAG.
DISPLAY "PAUSE TIME = " PAUSE-TIME.
DISPLAY "PAUSE REAL = " PAUSE-REAL.
DISPLAY "PAUSE DEC = " PAUSE-DEC.
MOVE BIN-NBR TO INPUT-STRING.
MOVE 19 TO WIDTHX.
CALL "HPEXTIN" USING @INPUT-STRING
WIDTHX
\PLACES\
\RETURN-TYPE-LONG\
\SCALE\
\BLANK-FLAG\
LONG-NBR
ERR-FLAG.
MOVE LONG-NBR TO PAUSE-REAL.
MOVE ERR-FLAG TO PAUSE-RESULT.
DISPLAY "CALC PAUSE REAL = " PAUSE-REAL.
DISPLAY "PAUSE RESULT = " PAUSE-RESULT.
display ">" long-nbr "<".
Exit Program.
Stop run.
--
http://www.beluga.freeserve.co.uk
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
