home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vsecom3.zip / WINDOW2.VRX < prev    next >
Text File  |  1994-12-27  |  8KB  |  295 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.     LIBO = InitArgs.1
  84.     LIB = InitArgs.2
  85.     SUB = InitArgs.3
  86.     PRTO = InitArgs.4
  87.       
  88.     call RxFuncAdd 'SysSleep' , 'RexxUtil', 'SysSleep'
  89.     window = VRWindow()
  90.     call VRMethod window, "CenterWindow","DESKTOP"
  91.     call VRSet window, "Visible", 1
  92.     call VRMethod window, "Activate"
  93.     drop window
  94. return
  95.  
  96. /*:VRX         PB_10_Click
  97. */
  98. PB_10_Click:
  99.     values = Window10( VRWindow(), "MEMD",LIB,LIBO,SUB)
  100.     if values = "" then return
  101.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME
  102.     msgtext = "YOU WANT TO DELETE?!:"||MEMNAME||" FROM:" LIB"."SUB
  103.     button.0 = 2
  104.     button.1 = "YES"
  105.     button.2 = "NO!"
  106.     call VRMessage VRWindow(),msgtext,"MEMBER DELETE(S)!","I","button.",1,2
  107.     if result = 2 then return
  108.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) ACC S="||LIB||"."||SUB" ; DEL "MEMNAME
  109.     rc = Startvio(RECCOM)
  110.     if rc = "QUIT" then return
  111.     if CHKPRT = "1" then COPY LIBFILE PRTO
  112.     if CHKVIEW = "1" then E LIBFILE
  113. return
  114.  
  115. /*:VRX         PB_1_Click
  116. */
  117. PB_1_Click:
  118.     values = Window10( VRWindow(), "LIB",LIB,LIBO)
  119.     if values = "" then return
  120.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB ","
  121.     RECCOM = "RECEIVE "||LIBFILE||" "||TS||" (FILE=LCMD) LD L="||LIB||" OUT=STATUS"
  122.     rc = Startvio(RECCOM)
  123.     if rc = "QUIT" then return
  124.     if CHKPRT = "1" then COPY LIBFILE PRTO
  125.     if CHKVIEW = "1" then E LIBFILE
  126. return
  127.  
  128. /*:VRX         PB_2_Click
  129. */
  130. PB_2_Click:
  131.     values = Window10( VRWindow(), "SUBL",LIB,LIBO,SUB)
  132.     if values = "" then return
  133.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB ","
  134.     RECCOM = "RECEIVE "||LIBFILE||" "||TS||" (FILE=LCMD) ACC S="||LIB||"."||SUB" ; LD *.*"
  135.     rc = Startvio(RECCOM)
  136.     if rc = "QUIT" then return
  137.     if CHKPRT = "1" then COPY LIBFILE PRTO
  138.     if CHKVIEW = "1" then E LIBFILE
  139. return
  140.  
  141. /*:VRX         PB_3_Click
  142. */
  143. PB_3_Click:
  144.     values = Window10( VRWindow(), "SUBC",LIB,LIBO,"NEWSUB?")
  145.     if values = "" then return
  146.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB ","
  147.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) DEFINE S="||LIB||"."||SUB
  148.     rc = Startvio(RECCOM)
  149.     if rc = "QUIT" then return
  150.     if CHKPRT = "1" then COPY LIBFILE PRTO
  151.     if CHKVIEW = "1" then E LIBFILE
  152.  
  153. return
  154.  
  155. /*:VRX         PB_4_Click
  156. */
  157. PB_4_Click:
  158.     values = Window11( VRWindow(), "RENSUB",LIB,LIBO,SUB)
  159.     if values = "" then return
  160.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," . "," NEWSUB ","
  161.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) REN S="||LIB||"."||SUB" "LIB||"."NEWSUB
  162.     rc = Startvio(RECCOM)
  163.     if rc = "QUIT" then return
  164.     SUB = NEWSUB 
  165.     if CHKPRT = "1" then COPY LIBFILE PRTO
  166.     if CHKVIEW = "1" then E LIBFILE
  167.  
  168. return
  169.  
  170. /*:VRX         PB_5_Click
  171. */
  172. PB_5_Click:
  173.     values = Window10( VRWindow(), "SUBD",LIB,LIBO,"DELETE?")
  174.     if values = "" then return
  175.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB ","
  176.     msgtext = "YOU WANT TO DELETE?!:"||LIB||"."SUB
  177.     button.0 = 2
  178.     button.1 = "YES"
  179.     button.2 = "NO!"
  180.     call VRMessage VRWindow(),msgtext,"SUBLIBRARY DELETE!","W","button.",1,2
  181.     if result = 2 then return
  182.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) DEL S="||LIB||"."||SUB
  183.     rc = Startvio(RECCOM)
  184.     if rc = "QUIT" then return
  185.     if CHKPRT = "1" then COPY LIBFILE " LPT1:"
  186.     if CHKVIEW = "1" then E LIBFILE
  187. return
  188.  
  189. /*:VRX         PB_6_Click
  190. */
  191. PB_6_Click:
  192.     MEMNAME = "List(s)?:*.*"
  193.     values = Window10( VRWindow(), "MEML",LIB,LIBO,SUB,"MEMBER?")
  194.     if values = "" then return
  195.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME
  196.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) ACC S="||LIB||"."||SUB" ; LD "||MEMNAME
  197.     rc = Startvio(RECCOM)
  198.     if rc = "QUIT" then return
  199.     if CHKPRT = "1" then COPY LIBFILE PRTO
  200.     if CHKVIEW = "1" then E LIBFILE
  201.  
  202.  
  203. return
  204.  
  205. /*:VRX         PB_7_Click
  206. */
  207. PB_7_Click:
  208.     NEWMEM = "NEWNAME?"
  209.     MEMNAME = "OLDNAME?"
  210.     values = Window11( VRWindow(), "RENMEM",LIB,LIBO,SUB,"OLDNAME?","NEWNAME?")
  211.     if values = "" then return
  212.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME "," NEWSUB "," NEWMEM ","
  213.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) ACC S="||LIB||"."||SUB"; REN "MEMNAME" "NEWMEM
  214.     rc = Startvio(RECCOM)
  215.     if rc = "QUIT" then return 
  216.     if CHKPRT = "1" then COPY LIBFILE PRTO
  217.     if CHKVIEW = "1" then E LIBFILE
  218. return
  219.  
  220. /*:VRX         PB_8_Click
  221. */
  222. PB_8_Click:
  223.     values = Window11( VRWindow(), "COPY",LIB,LIBO,SUB)
  224.     if values = "" then return
  225.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME "," NEWSUB "," NEWMEM "," NEWLIB ","
  226.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) CONN S="||LIB||"."||SUB||" "NEWLIB||"."NEWSUB||"; COPY "||MEMNAME
  227.     rc = Startvio(RECCOM)
  228.     if rc = "QUIT" then return
  229.     if CHKPRT = "1" then COPY LIBFILE PRTO
  230.     if CHKVIEW = "1" then E LIBFILE
  231.  
  232. return
  233.  
  234. /*:VRX         PB_9_Click
  235. */
  236. PB_9_Click:
  237.     values = Window10( VRWindow(), "SEARCH",LIB,LIBO,SUB)
  238.     if values = "" then return
  239.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME ","
  240.     RECCOM = "RECEIVE "||LIBFILE||" TS (FILE=LCMD) SEARCH "||MEMNAME||" LIB="LIB
  241.     rc = Startvio(RECCOM)
  242.     if rc = "QUIT" then return
  243.     if CHKPRT = "1" then COPY LIBFILE PRTO
  244.     if CHKVIEW = "1" then E LIBFILE
  245. return
  246.  
  247. /*:VRX         Quit
  248. */
  249. Quit:
  250.     window = VRWindow()
  251.     call VRSet window, "Shutdown", 1
  252.     drop window
  253. return
  254.  
  255. /*:VRX         Startvio
  256. */
  257. Startvio:procedure
  258. parse arg command
  259. erase "c:\vsecom\vsestat.fil"
  260. "start /win/c c:\vsecom\runvse.cmd" command "<con >con"
  261. /*"start /win/c c:\vsecom\runvse.cmd" command*/ 
  262. SPINNUM = 0
  263. RC = ""
  264. DO FOREVER
  265.     call SysSleep 2
  266.     exists = VRFileExists("C:\vsecom\vsestat.fil")
  267.  
  268.     if exists = 1 then do
  269.     LEAVE
  270.     end
  271.     else do
  272.     SPINNUM = SPINNUM + 1
  273.     end
  274.  
  275.     if SPINNUM = 5 then do
  276.     SPINNUM = 0
  277.     rc = Window8(VRWindow())
  278.     end
  279.  
  280.     if rc = "QUIT" then do
  281.     LEAVE
  282.     end
  283. end
  284.  
  285. return rc    
  286.     
  287.  
  288.  
  289. /*:VRX         Window1_Close
  290. */
  291. Window1_Close:
  292.     call Quit
  293. return
  294.  
  295.