home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vsecom3.zip / WINDOW6.VRX < prev    next >
Text File  |  1994-12-07  |  6KB  |  250 lines
  1. /*:VRX         Main
  2. */
  3. /*  Main
  4. */
  5. Main:
  6. /*  Process the arguments.
  7.     Get the parent window.
  8. */
  9.     parse source . calledAs .
  10.     parent = ""
  11.     argCount = arg()
  12.     argOff = 0
  13.     if( calledAs \= "COMMAND" )then do
  14.         if argCount >= 1 then do
  15.             parent = arg(1)
  16.             argCount = argCount - 1
  17.             argOff = 1
  18.         end
  19.     end
  20.     InitArgs.0 = argCount
  21.     if( argCount > 0 )then do i = 1 to argCount
  22.         InitArgs.i = arg( i + argOff )
  23.     end
  24.     drop calledAs argCount argOff
  25.  
  26. /*  Load the windows
  27. */
  28.     call VRInit
  29.     parse source . . spec
  30.     _VREPrimaryWindowPath = ,
  31.         VRParseFileName( spec, "dpn" ) || ".VRW"
  32.     _VREPrimaryWindow = ,
  33.         VRLoad( parent, _VREPrimaryWindowPath )
  34.     drop parent spec
  35.     if( _VREPrimaryWindow == "" )then do
  36.         call VRMessage "", "Cannot load window:" VRError(), ,
  37.             "Error!"
  38.         _VREReturnValue = 32000
  39.         signal _VRELeaveMain
  40.     end
  41.  
  42. /*  Process events
  43. */
  44.     call Init
  45.     signal on halt
  46.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  47.         _VREEvent = VREvent()
  48.         interpret _VREEvent
  49.     end
  50. _VREHalt:
  51.     _VREReturnValue = Fini()
  52.     call VRDestroy _VREPrimaryWindow
  53. _VRELeaveMain:
  54.     call VRFini
  55. exit _VREReturnValue
  56.  
  57. VRLoadSecondary: procedure
  58.     name = arg( 1 )
  59.  
  60.     window = VRLoad( VRWindow(), VRWindowPath(), name )
  61.     call VRMethod window, "CenterWindow"
  62.     call VRSet window, "Visible", 1
  63.     call VRMethod window, "Activate"
  64. return window
  65.  
  66. /*:VRX         Fini
  67. */
  68. Fini:
  69.     window = VRWindow()
  70.     call VRSet window, "Visible", 0
  71.     drop window
  72. return 0
  73.  
  74. /*:VRX         Halt
  75. */
  76. Halt:
  77.     signal _VREHalt
  78. return
  79.  
  80. /*:VRX         Init
  81. */
  82. Init:
  83.     call RxFuncAdd 'SysSleep' , 'RexxUtil', 'SysSleep'
  84.     TS = "A:"
  85.     window = VRWindow()
  86.     call VRMethod window, "CenterWindow"
  87.     call VRSet window, "Visible", 1
  88.     call VRMethod window, "Activate"
  89.     drop window
  90. return
  91.  
  92. /*:VRX         LB_2_Click
  93. */
  94. LB_2_Click:
  95. LIBNAME = VRGet( "LB_2", "SelectedString")
  96. return
  97.  
  98. /*:VRX         PB_11_Click
  99. */
  100. PB_11_Click:
  101.     ok = VRSet( "EF_1", "ReadOnly", 1)
  102.     ok = VRSet( "EF_2", "ReadOnly", 1)
  103.     ok = VRSet( "EF_3", "ReadOnly", 1)
  104.     ok = VRSet( "EF_4", "ReadOnly", 1)
  105.     ok = VRSet( "EF_5", "ReadOnly", 1)
  106.     
  107.     RECCOM = "RECEIVE C:\vsecom\userprof "||TS||" (FILE=PROF"
  108.     say reccom
  109.     rc = Startvio(RECCOM)
  110.     if rc = "QUIT" then return
  111.     Myfile = "C:\vsecom\userprof"
  112.     LINEIN(Myfile,1,0)
  113.     Do until LINES(Myfile) = "0"
  114.     thisline = LINEIN(Myfile)
  115.     fparm = LEFT(thisline,6)
  116.     call xout
  117.     end
  118.     fparm = LINEOUT(Myfile) /* close the file */
  119.     ok = VRSet( "EF_1", "ReadOnly", 1)
  120.     ok = VRSet( "EF_2", "ReadOnly", 1)
  121.     ok = VRSet( "EF_3", "ReadOnly", 1)
  122.     ok = VRSet( "EF_4", "ReadOnly", 1)
  123.  
  124.    /*  E.EXE " C:\userprof" */
  125. return
  126. xout:
  127. Select
  128.     when fparm = "TRMID " then do
  129.     fparm = SUBWORD(thisline,2,4)
  130.     ok = VRSet( "EF_3", "Value", fparm)
  131.     return
  132.     end 
  133.     when fparm = "UID   " then do
  134.     fparm = SUBWORD(thisline,2,8)
  135.     LUSER = fparm
  136.     ok = VRSet( "EF_1", "Value", fparm)
  137.     return
  138.     end
  139.     when fparm = "LIBACC" then do
  140.     fparm = SUBWORD(thisline,1,6)
  141.     position = VRMethod( "LB_1", "AddString",fparm, )
  142.     return 
  143.     end
  144.     when fparm = "POWACC" then do
  145.     fparm = SUBWORD(thisline,1,6)
  146.     position = VRMethod( "LB_1", "AddString",fparm, )
  147.     return
  148.     end  
  149.     when fparm = "POWALL" then do
  150.     fparm = SUBWORD(thisline,1,6)
  151.     position = VRMethod( "LB_1", "AddString",fparm, )
  152.     return
  153.     end
  154.     when fparm = "SUBMIT" then do
  155.     fparm = SUBWORD(thisline,1,6)
  156.     position = VRMethod( "LB_1", "AddString",fparm, )
  157.     return
  158.     end
  159.     when fparm = "SYSID " then do
  160.     fparm = SUBWORD(thisline,2,8)
  161.     ok = VRSet( "EF_4", "Value", fparm)
  162.     return
  163.     end
  164.     when fparm = "UTYP  " then do
  165.     fparm = SUBWORD(thisline,2,1)
  166.     ok = VRSet( "EF_2", "Value", fparm)
  167.     return
  168.     end
  169.     when fparm = "SCLASS" then do
  170.     fparm = SUBWORD(thisline,2,1)
  171.     ok = VRSet( "EF_5", "Value", fparm)
  172.     return
  173.     end
  174.     when fparm = "LIB   " then do
  175.     call getlibs
  176.     return
  177.     end
  178.     when fparm = "HTF   " then do
  179.     fparm = SUBWORD(thisline,1,6)
  180.     position = VRMethod( "LB_1", "AddString",fparm, )
  181.     return
  182.     end
  183. otherwise nop
  184. return
  185. getlibs:
  186. startl = 10
  187. fparm = SUBSTR(thisline,startl,7)
  188. position = VRMethod( "LB_2", "AddString",fparm, )
  189.     do until fparm = "       "
  190.     startl = startl + 7
  191.     fparm = SUBSTR(thisline,startl,7)
  192.     if fparm = "       " then return
  193.     position = VRMethod( "LB_2", "AddString",fparm, )
  194.     end
  195. return
  196. /*:VRX         Quit
  197. */
  198. Quit:
  199.     window = VRWindow()
  200.     call VRSet window, "Shutdown", 1
  201.     drop window
  202. return
  203.  
  204. /*:VRX         SPIN_1_Change
  205. */
  206. SPIN_1_Change:
  207.     TS = VRGet( "SPIN_1", "Value")
  208. return
  209.  
  210. /*:VRX         Startvio
  211. */
  212. Startvio:procedure
  213. parse arg command
  214. erase "c:\vsecom\vsestat.fil"
  215. "start /win/c c:\vsecom\runvse.cmd" command "<con >con"
  216. /*"start /win/c c:\vsecom\runvse.cmd" command*/ 
  217. SPINNUM = 0
  218. RC = ""
  219. DO FOREVER
  220.     call SysSleep 2
  221.     exists = VRFileExists("C:\vsecom\vsestat.fil")
  222.  
  223.     if exists = 1 then do
  224.     LEAVE
  225.     end
  226.     else do
  227.     SPINNUM = SPINNUM + 1
  228.     end
  229.  
  230.     if SPINNUM = 5 then do
  231.     SPINNUM = 0
  232.     rc = Window7(VRWindow())
  233.     end
  234.  
  235.     if rc = "QUIT" then do
  236.     LEAVE
  237.     end
  238. end
  239.  
  240. return rc    
  241.     
  242.  
  243.  
  244. /*:VRX         Window6_Close
  245. */
  246. Window6_Close:
  247.     call Quit
  248. return
  249.  
  250.