[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sas-l
Subject:    SAS Forum: Selecting a Table Using a Prompt
From:       Roger DeAngelis <rogerjdeangelis () GMAIL ! COM>
Date:       2017-06-29 20:02:12
Message-ID: 8828838290518332.WA.rogerjdeangelisgmail.com () listserv ! uga ! edu
[Download RAW message or body]

SAS Forum: Selecting a Table Using a Prompt

related post

I use the classic(1980) editor not knowledgeable on enterprise level programming

see
https://goo.gl/yJUHsZ
https://communities.sas.com/t5/SAS-Enterprise-Guide/Selecting-a-Table-Using-a-Prompt/m-p/371759

/* T0099290 Simple user interface to execute programs

Creates a pull down menu with a list of programs to execute

  WORKING CODE
  ===========

     menu main;
        item 'file' menu=file;
        item 'TaxPrograms'  menu=tax;
     menu tax;
        item 'Tax by Region' selection=tax100;
        item 'Tax by State'  selection=tax110;
        selection tax100 "end;note;include &pth\tax_100rgn.sas; notesubmit;";
        selection tax110 "end;note;include &pth\tax_110fip.sas; notesubmit;";
     menu file;
        item 'End';

     window observe menu=sasuser.pmenu.main columns=65
       #5 @18 'Choose Tax Report for Regions and States'
       #6 @18 'See options on top menu bar';


HAVE Two programs
=================

    c:/utl/tax_100Rgn.sas
    c:utl/tax_110Fip.sas

WANT Pull down menu to execute one or both of the programs
==========================================================

+--------------------------------------------+
| [ File  TaxPrograms  Windows ]             |
|                                            |
| Click TaxPrograms for a list of programs   |
|                                            |
| Click end on File to leave                 |
|                                            |
+--------------------------------------------+


*                _
 _ __ ___   __ _| | _____   _ __  _ __ ___   __ _ _ __ __ _ _ __ ___  ___
| '_ ` _ \ / _` | |/ / _ \ | '_ \| '__/ _ \ / _` | '__/ _` | '_ ` _ \/ __|
| | | | | | (_| |   <  __/ | |_) | | | (_) | (_| | | | (_| | | | | | \__ \
|_| |_| |_|\__,_|_|\_\___| | .__/|_|  \___/ \__, |_|  \__,_|_| |_| |_|___/
                           |_|              |___/
;

%let pth=c:/utl;

* create 1st programs;
data _null_;
   file "&pth\tax_100Rgn.sas";
   input;
   put _infile_;
cards4;
proc printto print="&pth\tax_100rgn.lst"
             log="&pth\tax_100rgn.log" ;
run;
proc print data=sashelp.class(where=(sex='M'));
Title "Tax by Region";
proc printto;run;
run;
;;;;
run;quit;


* create 2nd programs;
data _null_;
   file "&pth\tax_110Fip.sas";
   input;
   put _infile_;
cards4;
proc printto print="&pth\tax_100rgn.lst"
             log="&pth\tax_100rgn.log" ;
proc print data=sashelp.class(where=(sex='F'));
run;
proc printto;run;
;;;;
run;quit;

*          _       _   _
 ___  ___ | |_   _| |_(_) ___  _ __
/ __|/ _ \| | | | | __| |/ _ \| '_ \
\__ \ (_) | | |_| | |_| | (_) | | | |
|___/\___/|_|\__,_|\__|_|\___/|_| |_|

;

* compile this once;
proc pmenu catalog=sasuser.pmenu;
menu main;
   item 'file' menu=file;
   item 'TaxPrograms'  menu=tax;
menu tax;
   item 'Tax by Region' selection=tax100;
   item 'Tax by State'  selection=tax110;
   selection tax100 "end;note;clear;include &pth\tax_100rgn.sas; notesubmit;";
   selection tax110 "end;note;clear;include &pth\tax_110fip.sas; notesubmit;";
menu file;
   item 'End';
run;

data _null_;
window observe menu=sasuser.pmenu.main columns=65
  #5 @18 'Choose Tax Report for Regions and States'
  #6 @18 'See options on top menu bar';
display observe;
run;


The log and list will be in

    &pth\tax_100rgn.log
    &pth\tax_100rgn.lst
[prev in list] [next in list] [prev in thread] [next in thread]