Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 79
Program
Menu bar with dialog boxes

---

PROC PMENU CAT=WINDOW.MENUBARS;
   MENU DMR;
   ITEM 'Window' MENU=W;
   ITEM 'Command' MENU=C;
   ITEM 'Find' MENU=S;

   * Window menu;
   MENU W;
   ITEM 'Activate' DIALOG=W1;
   ITEM 'Command line' SELECTION=W2;
   ITEM 'All command lines' SELECTION=W3;
   ITEM 'Color' DIALOG=W4;
   ITEM 'Close' SELECTION=W5;
   SELECTION W2 'COMMAND';
   SELECTION W3 'PMENU';
   SELECTION W5 'END';
   * Activate dialog box;
   DIALOG W1 'NEXT @1';
      TEXT #1 @1 'Activate window:';
      TEXT #2 @1 LEN=17;
   * Color dialog box;
   DIALOG W4 'COLOR %1 %2 %3';
      TEXT #1 @1 'Change color';
      TEXT #3 @1 'Area:';
      RADIOBOX DEFAULT=1;
         RBUTTON #4 @1 'Text';
         RBUTTON #5 @1 'Background';
         RBUTTON #6 @1 'Data';
         RBUTTON #7 @1 'Source';
         RBUTTON #8 @1 'Notes';
         RBUTTON #9 @1 'Warning';
         RBUTTON #10 @1 'Error';
         RBUTTON #11 @1 'Title';
         RBUTTON #12 @1 'Header';
         RBUTTON #13 @1 'Byline';
         RBUTTON #14 @1 'Numbers';
         RBUTTON #15 @1 'Scrollbar';
         RBUTTON #16 @1 'Banner';
         RBUTTON #17 @1 'Command';
         RBUTTON #18 @1 'Border';
         RBUTTON #19 @1 'Menu';
         RBUTTON #20 @1 'Menuborder';
      TEXT #3 @15 'Change to:';
      RADIOBOX DEFAULT=1;
         RBUTTON #4 @15 'Red';
         RBUTTON #5 @15 'Green';
         RBUTTON #6 @15 'Blue';
         RBUTTON #7 @15 'Cyan';
         RBUTTON #8 @15 'Magenta';
         RBUTTON #9 @15 'Yellow';
         RBUTTON #10 @15 'Black';
         RBUTTON #11 @15 'Gray';
         RBUTTON #12 @15 'White';
      TEXT #14 @15 'Video';
      TEXT #15 @15 'attribute:';
      RADIOBOX DEFAULT=1;
         RBUTTON NONE #16 @15 'None';
         RBUTTON #17 @15 'Reverse';
         RBUTTON #18 @15 'Blinking';
         RBUTTON #19 @15 'Highlight';
         RBUTTON #20 @15 'Underline';

   * Command menu;
   MENU C;
   ITEM 'SAS command' DIALOG=C1;
   ITEM 'Operating system' DIALOG=C2;
   DIALOG C1 '@1';
      TEXT #1 @1 'Execute SAS command:';
      TEXT #2 @1 LEN=32;
   DIALOG C2 "X '@1'";
      TEXT #1 @1 'Execute operating system command:';
      TEXT #2 @1 LEN=32;

   * Find menu;
   MENU S;
   ITEM 'Find' DIALOG=S1;
   ITEM 'Find again' SELECTION=S2;
   ITEM 'Change' DIALOG=S3;
   ITEM 'Change again' SELECTION=S4;
   SELECTION S2 'RFIND';
   SELECTION S4 'RCHANGE';
   * Find dialog box;
   DIALOG S1 'FIND "@1"  &2 &1';
      TEXT #1 @1 'Find what:';
      TEXT #1 @12 LEN=24;
      CHECKBOX #3 @12 'Word';
      CHECKBOX #3 @21 'All';
   * Change dialog box;
   DIALOG S3 'CHANGE "@1" "@2" &2 &1';
      TEXT #1 @1 'Find what:';
      TEXT #1 @12 LEN=24;
      TEXT #2 @1 'Change to:';
      TEXT #2 @12 LEN=24;
      CHECKBOX #4 @12 'Word';
      CHECKBOX #4 @21 'All';
RUN;