Re: MIDRANGE-L and Doug Handy's DSPDSPATR program

[Dave Schnee <DSchnee@xxxxxxxxxxxxxxxxxxx>]

Douglas Handy should be knighted (at least) for his DSPDSPATR program.  I 
simply copied it directly from the email to a stream file, compiled it and 
found it GREAT!

Thanks, Doug.

Dave Schnee
Barsa Consulting Group, LLC

- - - - - - - - -  Douglas Handy wrote  - - - - - - - - - -

date: Thu, 11 Nov 2004 10:38:57 -0500
from: Douglas Handy <dhandy@xxxxxxxxx>
subject: Re: Display file attributes
Simon,

My solution was conceptually similar, but used DSM instead of USRDFN
data streams.  In addition, instead of clearing the unit and
displaying the image as one output field, I leave the input fields
intact and just overwrite the attribute bytes.  Then instead of simply
waiting for an AID key and exiting, I loop while Enter is pressed,
displaying the hex value of the cursor location until some other AID
key is pressed (eg F3 or F12).

I wasn't sure I should put a 200 line source directly in a reply, but
for the sake of comparison, here is a RPG alternative to the CL
program.  Once upon a time I used USRDFN, but now consider DSM much
more readable.

Here is my source, which I called DspDspAtr:

     H Option( *SrcStmt : *NoDebugIO )
     . . . . .
        (snip - refer to MIDRANGE-L Digest, Vol 3, Issue 1773 for the rest 
of the program)