RE: User presses Esc/Attn to "copy screen" -- MIDRANGE-L

Doug, thanks for pointing the way to the HARDCOPY utility from the January
1992 News/400.  I found it last night.  Yeah, it looks pretty old, eh?
TESTBs, BITONs, BITOFs, ouch.

Albert, this looks pretty familiar...  Oh, yeah, your DSPINTJOB utility!

Questions:
1) Why a length of only 1782? A 24x80 screen is 1920 and a 27x132 screen is
3564.  Doing the math, I see that 2*1782 is 3564, but you've got both fields
defined starting in row 1 position 2.  I noticed that the HARDCOPY utility
uses a single 2048-byte hidden field (it was built for 24x80 only).

2) What's with the CHGVAR   VAR(&R1DATA1) VALUE(X'00021518730462')
incantation?  What does this do?  And what reference did you use to find
this?  (Are there other goodies in there?)  Reviewing the DSPINTJOB source,
it looks like you're using VALUE(X'00021518730462') to "retrieve the current
screen" and VALUE(X'00021518730472') to "retrieve the cursor location".

TIA,
Dan Bale

> -----Original Message-----
> From: York, Albert [SMTP:albert.york@nissan-usa.com]
> Sent: Thursday, May 11, 2000 5:19 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: User presses Esc/Attn to "copy screen"
> 
> Here's an easy way to capture the screen. 
> 
> Define a display file like this:
>       A          R XU0391R1                                          
>       A                                      OVERLAY CLRL(*NO)       
>       A            R1DATA1     1782   B  1  2                        
>       A            R1DATA2     1782   B  1  2                        
>   
> 
> Another display file like this:
> 
>       A                                      DSPSIZ(*DS3 *DS4)  
>        *                                                        
>        * USER DEFINED FORMAT                                    
>       A          R XU0391R1                  USRDFN             
>        *                                                        
>        * INSERT DUMMY FORMAT SO BUFFER SIZE WILL BE CORRECT     
>       A          R XU0391R2                                     
>       A            FILLER1     1782   B  1  2                   
>       A            FILLER2     1782   B  1  2 
> 
>  
> And a CL like this:
> 
> PGM
>               DCL        VAR(&SCREENDATA) TYPE(*CHAR) LEN(3564)   
>               DCLF       FILE(XU0391F1)     
>  
> /* RETRIEVE CURRENT SCREEN */                                          
>               OVRDSPF    FILE(XU0391F1) TOFILE(XU0391F2) LVLCHK(*NO)    
>               CHGVAR     VAR(&R1DATA1) VALUE(X'00021518730462')         
>               SNDRCVF    RCDFMT(XU0391R1)                               
>               CHGVAR     VAR(&SCREENDATA) VALUE(&R1DATA1 *CAT +
> &R1DATA2)
> 
>  
> 
> 
> -----Original Message-----
> From: Bale, Dan [SMTP:DBale@lear.com]
> Sent: Thursday, May 11, 2000 12:14 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: User presses Esc/Attn to "copy screen"
> 
> Bob, I am interested; please send source code privately.
> 
> I'm surprised that you're not getting the highlighting and underlines.
> Are
> you sure it's not there?  Could it be that the attributes are there but
> you're just not translating them?
> 
> Anybody else out there getting the display attributes?
> 
> TIA,
> Dan Bale
> 
> > -----Original Message-----
> > From:       Bob Crothers [SMTP:bob@cstoneindy.com]
> > Sent:       Thursday, May 11, 2000 1:05 PM
> > To: MIDRANGE-L@midrange.com
> > Subject:    RE: User presses Esc/Attn to "copy screen"
> > 
> > Dan,
> > 
> > I have some code that will do what you are looking for, except it does
> not
> > get the highlighting & underlines.
> > 
> > Let me know if you are interested.
> > 
> > Regards,
> > Bob Crothers
> > Cornerstone Communications
> > Business: www.theunifier.com and www.faxserver401.com
> > Personal:  www.cstoneindy.com/bob (Don't go here if you aren't a dog
> > person!)
> > Email: Bob@CStoneIndy.com
> > Voice: 317-802-0107 Ext 103
> > Fax:    317-803-3450
> > 
> > If a messy desk is a sign of a messy mind,
> > What does an empty desk say?
> > 
> > 
> > 
> > -----Original Message-----
> > From: owner-midrange-l@midrange.com
> > [mailto:owner-midrange-l@midrange.com]On
> > Behalf Of Bale, Dan
> > Sent: Thursday, May 11, 2000 11:19 AM
> > To: 'MIDRANGE-L@midrange.com'
> > Subject: User presses Esc/Attn to "copy screen"
> > 
> > I'm sure this has been covered before, but since I _still_ do not _yet_
> > have
> > internet access here, I am unable to search the archives...
> > 
> > I am looking for an attention program (activated by the user pressing
> the
> > Attn key) which reads the user's current display with all the display
> > attributes.  It then either prints it out with the highlighting and
> > underlining or copies it somewhere; doesn't matter which.
> > 
> > Anybody know where I can find it?  If someone can give me a direct link,
> I
> > might be able to get somebody else here to download it for me.
> > 
> > TIA,
> > Dan Bale
+---
| 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
+---