/*******************************************************************/
/*     (c)  Copyright   Roger Lacroix  1998                         |
|                                                                   |
|  Designed, developed and programmed by Roger Lacroix              |
+------------------------------------------------------------------*/

RC = isplink( "LMINIT  ",      /* function          */
              "DATAID  ",      /* Data-id var name  */
              "        ",      /* project           */
              "        ",      /* group1            */
              "        ",      /* group2            */
              "        ",      /* group3            */
              "        ",      /* group4            */
              "        ",      /* type              */
              "        ",      /* dsn               */
              "DDNAME  ");     /* DDname            */


RC = isplink( "LMOPEN  ",
              DataId );


RC = isplink( "BROWSE  ",      /* function          */
              "        ",      /* dsn               */
              "        ",      /* serial-vol. name  */
              "        ",      /* password          */
              "        ",      /* panel             */
              DataId  );       /* Data-id           */


RC = isplink( "LMCLOSE ",
              DataId );


RC = isplink( "LMFREE  ",
              DataId );