home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerGEM / Powergem.z / svd.scp < prev    next >
Text File  |  1995-10-08  |  7KB  |  209 lines
  1. //************************************************************************
  2. //  Script for FUJITSU COBOL85 Debugger
  3. //
  4. //  ALL Rights Reserved, CopyRight (C) FUJITSU LIMITED 1995
  5. //************************************************************************
  6.  
  7. public :
  8.     var  MyToolClass = "DEBUG" ;
  9.     var  Status = "BUSY" ;
  10.     var  Tool ;
  11.     var  Filespec ;
  12.     var  StartFlag = 0 ;
  13.     var  StopFlag = 0 ;
  14.  
  15.  
  16. exec()  {
  17.     var  Ret ;
  18.     Ret = MessageOpen(MyToolClass);
  19.     Filespec = MakeFilespec("*", 0);
  20.     Ret = MakeEvent("R",MyToolClass,"START", Filespec,"Start");
  21. }
  22.  
  23.  
  24. Terminate() {
  25.     var Ret ;
  26.     if ( StopFlag == 1 ) return(0);
  27.  
  28.     SCRIPT.ErrorDisplay = False;
  29.     Tool = GetObjectID ("Start Parameter","CAPTION");
  30.     if ( !IsNULL(Tool) ) {
  31.         KeyBoard(Tool,"<CAN>");
  32.     } else {
  33.         Tool = GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION");
  34.         if ( !IsNULL(Tool) ) {
  35.             KeyBoard(Tool,"<CAN>");
  36.         } else {
  37.             Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  38.             if ( !IsNULL(Tool) ) {
  39.                 CloseWindow(Tool);
  40.             }
  41.         }
  42.     }
  43.     SCRIPT.ErrorDisplay = True;
  44.     Status = "NOTRUNNING";
  45.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS",
  46.                                             Filespec,Status ) ;
  47.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STOP",
  48.                                             Filespec ) ;
  49.     StopFlag = 1;
  50.     MessageClose();
  51.     Close();
  52. }
  53.  
  54. Start()  {
  55.     var Ret ;
  56.     var Command;
  57.     var Para;
  58.  
  59.     Filespec = MakeFilespec("*", 0);
  60.     Ret = DeleteEvent("R",MyToolClass,"START", Filespec );
  61.  
  62.     if ( StartFlag == 1 ) {
  63.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "START",
  64.                                                   GetFilespec() ) ;
  65.         return(1);
  66.     }
  67.  
  68.     Filespec = GetFilespec();
  69.     Command = "WINSVD.EXE";
  70.     Para = FilespecToPathName(Filespec);
  71.  
  72.     Tool = ToolExec(Command,Para,FALSE,,"F1ADJDBG.EXE");
  73.     SCRIPT.ErrorDisplay = False;
  74.     Tool = GetObjectID ("Start Parameter","CAPTION");
  75.     if ( IsNULL(Tool) ) {
  76.         Tool = GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION");
  77.         if ( IsNULL(Tool) ) {
  78.             Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  79.             if ( IsNULL(Tool) ) {
  80.                 SCRIPT.ErrorDisplay = True;
  81.                 Stop();
  82.             }
  83.         }
  84.     }
  85.     SCRIPT.ErrorDisplay = True;
  86.     Status = "STARTING" ;
  87.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS", Filespec, Status ) ;
  88.     Ret = MakeEvent("R",MyToolClass,"STATUS", Filespec,"Status");
  89.     Ret = MakeEvent("R",MyToolClass,"STOP", Filespec,"Stop");
  90.     Ret = MakeEvent("R",MyToolClass,"MAXIMIZE", Filespec,"Maximize");
  91.     Ret = MakeEvent("R",MyToolClass,"MINIMIZE", Filespec,"Minimize");
  92.     Ret = MakeEvent("R",MyToolClass,"NORMALIZE", Filespec,"Normalize");
  93.     Status = "READY" ;
  94.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS", Filespec, Status );
  95.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "START", Filespec ) ;
  96.     StartFlag = 1;
  97.     StopFlag = 0;
  98.     return(0);
  99. }
  100.  
  101. Stop()  {
  102.     var Ret ;
  103.  
  104.     Filespec = GetFilespec();
  105.     SCRIPT.ErrorDisplay = False;
  106.     Tool = GetObjectID ("Start Parameter","CAPTION");
  107.     if ( !IsNULL(Tool) ) {
  108.         KeyBoard(Tool,"<CAN>");
  109.     } else {
  110.         Tool = GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION");
  111.         if ( !IsNULL(Tool) ) {
  112.             KeyBoard(Tool,"<CAN>");
  113.         } else {
  114.             Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  115.             if ( !IsNULL(Tool) ) {
  116.                 CloseWindow(Tool);
  117.             }
  118.         }
  119.     }
  120.     SCRIPT.ErrorDisplay = True;
  121.     SCRIPT.ErrorDisplay = False;
  122.     Sleep(1);
  123.     if ( !IsNULL(GetObjectID("Start Parameter","CAPTION")) ||
  124.          !IsNULL(GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION")) ||
  125.          !IsNULL(GetObjectID("COBOL85 DEBUGGER","CAPTION")) )  {
  126.         Sleep(1);
  127.         if ( !IsNULL(GetObjectID("Start Parameter","CAPTION")) ||
  128.              !IsNULL(GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION")) ||
  129.              !IsNULL(GetObjectID("COBOL85 DEBUGGER","CAPTION")) ) {
  130.             Sleep(1);
  131.             if ( !IsNULL(GetObjectID("Start Parameter","CAPTION")) ||
  132.                  !IsNULL(GetObjectID("Directory path specification (COBOL85 DEBUGGER)","CAPTION")) ||
  133.                  !IsNULL(GetObjectID("COBOL85 DEBUGGER","CAPTION")) ) {
  134.                 Ret = MessageSend(GetMessageID(), "F", MyToolClass, "STOP",
  135.                                                           Filespec ) ;
  136.                 SCRIPT.ErrorDisplay = True;
  137.                 return(1);
  138.             }
  139.         }
  140.     }
  141.     SCRIPT.ErrorDisplay = True;
  142.  
  143.     Status = "NOTRUNNING";
  144.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS", Filespec,Status ) ;
  145.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "STOP", Filespec ) ;
  146.     MessageClose();
  147.     if ( !IsNULL(Tool) ) {
  148.         wait(Tool);
  149.     }
  150.     StopFlag = 1;
  151.     Close();
  152. }
  153.  
  154. Status()  {
  155.     var Ret ;
  156.  
  157.     Filespec = GetFilespec();
  158.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "STATUS", Filespec, Status );
  159.     return(0);
  160. }
  161.  
  162. Maximize()  {
  163.     var Ret ;
  164.  
  165.     Filespec = GetFilespec();
  166.     SCRIPT.ErrorDisplay = False;
  167.     Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  168.     if ( !IsNULL(Tool) ) {
  169.         Ret = MaximizeWindow(Tool);
  170.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "MAXIMIZE", Filespec ) ;
  171.     } else {
  172.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "MAXIMIZE", Filespec ) ;
  173.     }
  174.     SCRIPT.ErrorDisplay = True;
  175.     return(0);
  176. }
  177.  
  178. Minimize()  {
  179.     var Ret ;
  180.  
  181.     Filespec = GetFilespec();
  182.     SCRIPT.ErrorDisplay = False;
  183.     Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  184.     if ( !IsNULL(Tool) ) {
  185.         Ret = MinimizeWindow(Tool);
  186.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "MINIMIZE", Filespec ) ;
  187.     } else {
  188.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "MINIMIZE", Filespec ) ;
  189.     }
  190.     SCRIPT.ErrorDisplay = True;
  191.     return(0);
  192. }
  193.  
  194. Normalize()  {
  195.     var Ret ;
  196.  
  197.     Filespec = GetFilespec();
  198.     SCRIPT.ErrorDisplay = False;
  199.     Tool = GetObjectID("COBOL85 DEBUGGER","CAPTION");
  200.     if ( !IsNULL(Tool) ) {
  201.         Ret = RestoreWindow(Tool);
  202.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "NORMALIZE", Filespec ) ;
  203.     } else {
  204.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "NORMALIZE", Filespec ) ;
  205.     }
  206.     SCRIPT.ErrorDisplay = True;
  207.     return(0);
  208. }
  209.