|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.