FW: Screen Scraper

["York, Albert" <albert.york@xxxxxxxxxxxxxx>]

It uses UDDS (user defined data stream) to send a request to the workstation
to return the current screen.

Here are the display file descriptions:


** DIJ005D2
** DISPLAY FILE FOR READING CURRENT DISPLAY SCREEN        
      **                                                        
     A                                      DSPSIZ(*DS3 *DS4)   
     A                                      PRINT               
      *                                                         
      * USER DEFINED FORMAT                                     
     A          R DIJ005R1                  USRDFN              
      *                                                         
      * INSERT DUMMY FORMAT SO BUFFER SIZE WILL BE CORRECT      
     A          R DIJ005R2                                      
     A            FILLER1     1783   B  1  2                    
     A            FILLER2     1783   B  1  2

** DIJ005D1                                                    
      ** DUMMY DISPLAY FILE FOR COMPILING DIJ005C                    
      **                                                             
     A          R DIJ005R1                                           
     A                                      OVERLAY CLRL(*NO)        
     A            R1DATA1     1783   B  1  2                         
     A            R1DATA2     1783   B  1  2


Here is the code to do it:
PGM 
              DCLF       FILE(DIJ005D1)

/* RETRIEVE CURRENT SCREEN */                                          
             OVRDSPF    FILE(DIJ005D1) TOFILE(DIJ005D2) LVLCHK(*NO)    
             CHGVAR     VAR(&R1DATA1) VALUE(X'00021518730462')         
             SNDRCVF    RCDFMT(DIJ005R1)                               
             CHGVAR     VAR(&SCREENDATA) VALUE(&R1DATA1 *CAT +         
                          &R1DATA2)                                    
                                                                       
/* RETRIEVE CURSOR LOCATION */                                         
             CHGVAR     VAR(&R1DATA1) VALUE(X'00021518730472')         
             SNDRCVF    RCDFMT(DIJ005R1)                               
             CHGVAR     VAR(&DQDATA) VALUE(&SCREENDATA *CAT &R1DATA1)  

&R1DATA2)                                     
                                                                        
/* RETRIEVE CURSOR LOCATION */                                          
             CHGVAR     VAR(&R1DATA1) VALUE(X'00021518730472')          
             SNDRCVF    RCDFMT(DIJ005R1)                                
             CHGVAR     VAR(&DQDATA) VALUE(&SCREENDATA *CAT &R1DATA1)   


        -----Original Message-----
        From:   Steve Richter [SMTP:srichter@AutoCoder.com]
<mailto:[SMTP:srichter@AutoCoder.com]> 
        Sent:   Thursday, July 12, 2001 11:03 AM
        To:     MIDRANGE-L@midrange.com <mailto:MIDRANGE-L@midrange.com> 
        Subject:        Re: Screen Scraper


        >This causes the break handling program
        >to fire off which grabs the screen and sends it back in a data
queue.


        how does the break handling pgm grab the screen?

        thanks again,
        Steve Richter



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