You are mentioning TELL .... ages ago I wrote some execs to enable my
wife -and kids- to chat with me when I was writing a redbook in
Poughkeepsee. They logged on to my Belgian VM user where an exec was
started, some window was input to be sent to my VM user in the US,
another window displayed what I sent. I'll dig that up.
In a later redbook residency, I wrote GUITELL for that purpose, a
CMS/GUI appl, available on VM's download lib.
Why do you run with SET CMSTYPE HT? That's the best way to hide **all** errors.
And: use ADDRESS COMMAND, it will hide VSCREEN error messages too, to
enable selected errormessage, run with ADDRESS COMMADN, but preceede
these commands with CMDCALL. Example:
'VSCREEN DELETE MyScreen' /* We don't want emsgs here */
'CMDCALL VSCREEN DEFINE myScreen xxx' /* tells me when things go wrong*/
2008/4/23, Ken Vance <[EMAIL PROTECTED]>:
>
> 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
--
Kris Buelens,
IBM Belgium, VM customer support
