RexxArp Help
Bob –
One more try at this. Here is the actual code I used to try to test the
screentoback function. If there is nothing obviously wrong with this code,
I'm just going to assume that Superplan does not set up the screen
properly vis a vis Arexx.
BTW as you and Larry Shanahan suggested I did download ARTM and it
shows the screen name as Superplan
/* try to find splan screen name */
if ~show('l','rexxsupport.library') then
addlib('rexxsupport.library',0,-30,0)
if ~show('l','rexxarplirary') then
addlib('rexxarplib.library',0,-30,0)
/* make sure multiple copies aren't running */
if show('P','SpRexx') then do
say 'Superplan is already running, Please close it'
say 'I need to open it myself'
exit
end
else do
pragma('d','finance:splan') /* Superplan has to find its ini file */
pragma('s',20000) /* and a larger stack */
address command 'run sp -sc3 <nil: >nil:'
address command "WaitForPort 'SpRexx'"
address 'SpRexx'
'=c3>ent' /* check port exists (move cursor to cell c3) */
call delay 100 /* let me see cursor movement */
end
if screentoback('Superplan') then /* tried quoted and unquoted */
say 'screentoback worked' /* never see this */
else do
y = screentofront()
say 'screentofront worked' /* result ALWAYS */
end
'/qy>ent' /* tell splan to quit */
exit
Thanks again.
// RSL Finally entering the 20th century
\\// Via Autopilot