Date:         Wed, 14 May 2003 10:58:03 -0400
Reply-To:     Don Burklo <dwburklo@COPELAND-CORP.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Don Burklo <dwburklo@COPELAND-CORP.COM>
Subject:      Re: Ending SAS AF Application

On Tue, 13 May 2003 17:19:20 -0400, Richard A. DeVenezia
<radevenz@IX.NETCOM.COM> wrote:

>"Don Burklo" <dwburklo@COPELAND-CORP.COM> wrote in message
>news:200305132010.h4DKAWQ02671@listserv.cc.uga.edu...
>> What is the best way to end a SAS AF Application and still remain in
SAS?
>> Using endsas in a submit block end the application and SAS. I have
>> tried "Call Execcmd('END')" outside of a submit bloce in the term
section
>> with no sucess.
>>
>> Thanks,
>>
>> Don
>
>The term: section only runs when an ending action has occurred (such as
END
>or CANCEL commands or user clicking X button in the window).
>
>The simplest might be to have a push button control in the frame and set
the
>.label = 'End'
>.commandOnClick = 'END'
>
>You can set a controls attributes using either the Properties Editor or
>programmatically in the frame's INIT section.
>
>You could also put
>  call execcmd ('END') _after_ the endsubmit; statement
>
>What you do depends on what you want to happen.
>
>--
>Richard A. DeVenezia,
>http://www.devenezia.com/downloads/sas/af

Richard,

Thanks for the reply. I am using a program entry to do this and the 'Call
EXECCMD('END')' I conditionally based on user name want to exit to SAS or
endsas. This is the code I am using.

Any Thoughts?

Don

INIT:
CONTROL ALWAYS;
RETURN;

MAIN:

IF DEPT IN ('BUD') THEN DO;
   CALL EXECCMD('END');
                        END;


IF DEPT NOT IN ('BUD') THEN DO;

SUBMIT;
ENDSAS;
ENDSUBMIT;
                            END;
RETURN;

TERM:

SUBMIT TERMINATE;
ENDSUBMIT;

RETURN;