I took everyone's suggestions.

  01 DISP-STR             PIC S9(4) COMP.
  01 DISP-STR-RDF         REDEFINES DISP-STR.
       05 DISP-1            PIC X.
       05 DISP-2            PIC X.
 01 SCR-DATA             PIC X.
  01 DISP-HOLD-INT        PIC 999.

       PROCEDURE DIVISION.
       MAIN-LINE.
         ACCEPT SCR-DATA.
         MOVE SCR-DATA TO DISP-2.
         DISPLAY "[", DISP-STR, "]".
         STOP RUN.

However, using reflections, I sent a x80 or dec 128.  I did this by holding
alt then 0128. I got a  +0032.  A dec 127 I got  +0127.  So I threw in the
towel and placed a call to HP.  As usual I got, in my opinion the best HP
has to offer in this area, Susan.  If you know her you know what I mean.
Any who she suggested I try inputting the data from a file.  So I built a
file with a dec 128 in it and ran the program
:RUN SOMEPROG < SOMEFILE.  It returned a +128.  So now the problem seems to
reside with Reflections.  As a side note this was done using NS-VT.  Thought
it might help.  I will contact WRQ tomorrow.

Thanks to all for the help.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *