%macro Utl_LoadOrganizerNameAdr
     (
      Utl_Title=Create Macro Mania Script to Load Sharp Organizers ie YO-190,
      Utl_Obj=Utl_LoadOrganizerNameAdr,

      /*------------------------------------------------------------*\
      |  There is no external input ( input data in macro )          |
      \*------------------------------------------------------------*/

      Utl_InLibList01=Internal Data,

      Utl_InSharpGUITool=c:\Program Files\Sharp YOZQ_b\EI_Utitlity,  /* Sharp Input Screens */

      /*------------------------------------------------------------*\
      |  Process create Macro Mania Script                           |
      |                                                              |
      |  1 Create    macro mania script -- see utlnamp -Macro Mania  |
      |  2 Cut and paste output script into Macro Mania editor       |
      |  3 Connect Organizer to PC                                   |
      |  4 Execute Macro Mania script from editor                    |
      |                                                              |
      |  The YO-190 and below use a 'encrypted' proprietary file     |
      |  structure ( some kind of binary dump of all of memory )     |
      |                                                              |
      \*------------------------------------------------------------*/

      Utl_OtLib01=d:\obj,   /* By Product Name Address and Phone Numbers */
      Utl_OtMem0101=&Utl_Obj,


      Utl_OtScript01=d:\obj\&Utl_Obj..txt,  /* file to paste into macro mania editor */

      Utl_Flop=010101010
     )
     / des ="Create Macro Mania Script to Load Sharp Organizers ie YO-190";




/*----------------------------------------------*\
|                                                |
|  Code by Roger DeAngelis                       |
|                                                |
|  Compucraft Inc                                |
|  49 Spackenkill Rd                             |
|  Poughkeepsie, NY 12603                        |
|                                                |
|  Office 914-463-2770                           |
|  Fax    914-462-7595                           |
|                                                |
|  Email                                         |
|        xlr82sas@aol.com                        |
|                                                |
|  Users are free to do whatever they want       |
|  with any or all of this code.                 |
|                                                |
|  Compucraft is not responsible for any         |
|  problems associated with this code.           |
|                                                |
|  Use at your own risk                          |
|                                                |
\*----------------------------------------------*/


/*------------------------------------------------------------------------*\
|                                                                          |
|  Sample Output ( Macro Mania Script )                                    |
|  ====================================                                    |
|                                                                          |
|  Substitutes commands for mouse clicks and keyboard keys                 |
|                                                                          |
|  RUN c:\Program Files\Sharp YOZQ_b\EI_Utitlity    * Sharp GUI Tool       |
|  SEND {TAB}                                                              |
|  SEND {TAB}                                                              |
|  SEND {ENTER}                                                            |
|  pause 2                                                                 |
|  SEND %N                                                                 |
|  pause 2                                                                 |
|  SEND %Y                                                                 |
|  PAUSE 2                                                                 |
|  SEND %a                                                                 |
|  SEND DeAngelis Roger {Tab}                                              |
|  pause 1                                                                 |
|  SEND 914-463-2770 {Tab}                                                 |
|  pause 1                                                                 |
|  SEND CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 {Tab}       |
|  pause 1                                                                 |
|  SEND xlr82sas@aol.com {Tab}                                             |
|  PAUSE 2                                                                 |
|  SEND %S                                                                 |
|  PAUSE 20                                                                |
|  pause 2                                                                 |
|  SEND %N                                                                 |
|  pause 2                                                                 |
|  SEND %Y                                                                 |
|  PAUSE 2                                                                 |
|  SEND %a                                                                 |
|  SEND Smith John {Tab}                                                   |
|  pause 1                                                                 |
|  SEND 914-463-2770 {Tab}                                                 |
|  pause 1                                                                 |
|  SEND CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 {Tab}       |
|  pause 1                                                                 |
|  SEND xlr82sas@aol.com {Tab}                                             |
|  PAUSE 2                                                                 |
|  SEND %S                                                                 |
|  PAUSE 20                                                                |
|  pause 2                                                                 |
|  SEND %N                                                                 |
|  pause 2                                                                 |
|  SEND %Y                                                                 |
|  PAUSE 2                                                                 |
|  SEND %a                                                                 |
|  SEND Johnson David {Tab}                                                |
|  pause 1                                                                 |
|  SEND 419-463-2770 {Tab}                                                 |
|  pause 1                                                                 |
|  SEND CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 {Tab}       |
|  pause 1                                                                 |
|  SEND xlr82sas@aol.com {Tab}                                             |
|  PAUSE 2                                                                 |
|  SEND %S                                                                 |
|  PAUSE 20                                                                |
|  END                                                                     |
|  EXIT                                                                    |
\*------------------------------------------------------------------------*/



libname Otlib01 "&Utl_OtLib01";

    proc sql;

        create
               table OtLib01.&Utl_OtMem0101
                (
                   /* Label="&Utl_Title" */
                   name    Char(64),
                   phone   Char(24),
                   Address Char(72),
                   email   Char(64)
                );

        insert
               into OtLib01.&Utl_OtMem0101

        values("DeAngelis Roger                                         ",
               "914-463-2770                                            ",
               "CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 ",
               "xlr82sas@aol.com                                        ")
        values("Smith John                                              ",
               "914-463-2770                                            ",
               "CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 ",
               "xlr82sas@aol.com                                        ")
        values("Johnson David                                           ",
               "419-463-2770                                            ",
               "CompuCraft Inc 49 Spackenkill Rd Poughkeepsie NY 12603 ",
               "xlr82sas@aol.com                                        ")
        ;
        Quit;
        Run;



  data
      _Null_
  ;

    file "&Utl_OtScript01";

    set
         OtLib01.&Utl_OtMem0101
           (
            Keep =
                   name
                   phone
                   Address
                   email
           )
           End=Done
    ;


    If _N_ eq 1 Then

       Put
           "RUN &Utl_InSharpGUITool"  /
           'SEND {TAB}'               /
           'SEND {TAB}'               /
           'SEND {ENTER}'
       ;


    Put
         'pause 2'                  /
         'SEND %N'                  /
         'pause 2'                  /
         'SEND %Y'                  /
         'PAUSE 2'                  /
         'SEND %a'
    ;


    name    = Compbl('SEND '!!name!!'{Tab}');
    phone   = Compbl('SEND '!!phone!!'{Tab}');
    address = Compbl('SEND '!!address!!'{Tab}');
    email   = Compbl('SEND '!!email!!'{Tab}');

    put
              name    /  'pause 1' /
              phone   /  'pause 1' /
              Address /  'pause 1' /
              email
    ;

   put 'PAUSE 2'     /
       'SEND %S'     /
       'PAUSE 20' ;

   If Done Then
      Put
          'END'      /
          'EXIT'
   ;

Run;

dm "inc '&Utl_OtScript01'";

%mend Utl_LoadOrganizerNameAdr;

%Utl_LoadOrganizerNameAdr;