Negative Numbers

I think you can forget some of the more complex solutions you've been
offered, looks to me like you've got a real easy solution available.  The
following may need a few changes for you situation but the principal is
sound.  As you can see I tried it with your examples and it works just
fine.  This also works just fine in RPG III (the DS remapping that is) but
I just hate programming in RPG III.

Anyway - the following works just fine:

 D                 DS                                  <<<< This bit does

 D Input                          6                    <<<<  all the work

 D Output                         6S 2 Overlay(Input)  <<<<  by itself !!


 D ShowMe          S             40

 C                   Move      '  509L'      Input
 C                   Eval      ShowMe = 'Input = /' + Input
 C                                 + '/  Output = /' + %EditC(Output:'J')
 C     ShowMe        Dsply
 C                   Move      ' 4000}'      Input
 C                   Eval      ShowMe = 'Input = /' + Input
 C                                 + '/  Output = /' + %EditC(Output:'J')
 C     ShowMe        Dsply

 C                   Eval      *InLr = *On


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---