vscreen

[Ken Vance]

Hi,

Is there a nice vscreen demo exec available?  I am trying to write a front 
end for an application, and I have some problems getting the vscreens to 
work.  I can get the screen to display information, etc, but I have an 
issue with displaying a file, and with routing TELL information to a 
vscreen.  When I use the VSCREEN GET to display a file, it adds several 
blank lines in between each line from the file.  I was also going to have 
a vscreen displayed on the main screen for TELL messages.  I tried to use 
VSCREEN ROUTE, but the messages just get queued "behind" the screen, and I 
do not see them until I press the clear key.


Here is a simple exec


/********************************************************************/ 
trace off 
'set cmstype ht' 
'CLRSCRN' 
'vscreen delete vs_main' 
'vscreen define vs_main 20 40  4 4 (protect user' 
'window delete wn_main' 
'window define wn_main 21 41 4 4 (user fixed pop' 
'set border wn_main  on (top _ bottom _ pink' 
'window show wn_main on vs_main' 
 Source = 'MPJ' ; Set = 'C1' ; CDate = '20080416190803' ; Dest = 'MBGB'
'vscreen write vs_main  2 02 11 (reserved Green Field Source -->' 
'vscreen write vs_main  2 13 04 (reserved Blue  Field 'Source 
'vscreen write vs_main  2 24 08 (reserved Green Field Set -->' 
'vscreen write vs_main  2 33 03 (reserved Blue  Field 'Set 
'vscreen get vs_main TEST FILE A' 
'window pop wn_main ' 
'vscreen route * vs_main ( notify' 
 Continue = 1 
 Do While Continue 
   'vscreen waitread vs_main' 
    parse var waitread.1 type what . 
    select 
       when type = ('PFKEY') 
       then do 
          select 
             when (what = 3) 
             then do 
                continue = 0 
             end 
             Otherwise NOP 
          End 
       End 
       Otherwise NOP 
    End 
 End 
* * * End of File * * * 

The displayed screen. 
    ________________________________________ 
 
      Source --> MPJ        Set -->  C1 
 
 
      Line 1 
 
 
      Line 2 
 
 
      Line 3 
 
 
 
Any hints would be appreciated.


Thanks,

Ken Vance
System Programmer/Analyst, Operating System Services - Support Platforms
Software Services
Amadeus Data Processing GmbH
Erding
Germany
T: +49 (0) 8122 - 43 40 62
F: +49 (0) 8122 - 43 32 60
[EMAIL PROTECTED]




IMPORTANT  -  CONFIDENTIALITY  NOTICE  - This e-mail is intended only for 
the use of the individual or entity shown above as addressees. It may 
contain information which is privileged, confidential or otherwise 
protected from disclosure under applicable laws.  If the reader of this 
transmission is not the intended recipient, you are hereby notified that 
any dissemination, printing, distribution, copying, disclosure or the 
taking of any action in reliance on the contents of this information is 
strictly prohibited.  If you have received this transmission in error, 
please immediately notify us by reply e-mail or using the address below 
and delete the message and any attachments from your system. 

Amadeus Data Processing GmbH 
Geschäftsführer: Eberhard Haag 
Sitz der Gesellschaft: Erding 
HR München 48 199 
Berghamer Strasse 6 
85435 Erding 
Germany

<<image/gif>>