home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vsecom3.zip / WINDOW3.VRX < prev    next >
Text File  |  1995-09-18  |  7KB  |  299 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.     JCLS = InitArgs.1
  86.     JOBS = InitArgs.2
  87.     PRTO = InitArgs.3
  88.     window = VRWindow()
  89.     call VRMethod window, "CenterWindow","DESKTOP"
  90.     call VRSet window, "Visible", 1
  91.     call VRMethod window, "Activate"
  92.     drop window
  93. return
  94.  
  95. /*:VRX         PB_12_Click
  96. */
  97. PB_12_Click:
  98.     MEMNAME = "Lock Member?"
  99.     values = Window10( VRWindow(), "LOCK",LIB,SUB,MEMNAME)
  100.     if values = "" then return
  101.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIB "," SUB "," MEMNAME
  102.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) ACC S="||LIB||"."||SUB" ; LOCK "||MEMNAME||" LOCKID="LUSER
  103.     rc = Startvio(RECCOM)
  104.     if rc = "QUIT" then return
  105.     if CHKPRT = "1" then COPY LIBFILE " LPT1:"
  106.     if CHKVIEW = "1" then E LIBFILE
  107.  
  108.  
  109. return
  110.  
  111. /*:VRX         PB_13_Click
  112. */
  113. PB_13_Click:
  114.     MEMNAME = "UNlock Member?"
  115.     values = Window10( VRWindow(), "UNLOCK",LIBNAME,SUBNAME,MEMNAME)
  116.     if values = "" then return
  117.     parse var values CHKPRT "," CHKVIEW "," LIBFILE "," LIBNAME "," SUBNAME "," MEMNAME
  118.     RECCOM = "RECEIVE "||LIBFILE||" "TS||" (FILE=LCMD) ACC S="||LIBNAME||"."||SUBNAME" ; UNLOCK "||MEMNAME||" LOCKID="LUSER
  119.     rc = Startvio(RECCOM)
  120.     if rc = "QUIT" then return
  121.     if CHKPRT = "1" then COPY LIBFILE " LPT1:"
  122.     if CHKVIEW = "1" then E LIBFILE
  123.  
  124.   
  125.  
  126. return
  127.  
  128. /*:VRX         PB_14_Click
  129. */
  130. PB_14_Click:
  131.     values = Window13( VRWindow())
  132.     if values = "" then return
  133.     trtype = values
  134.     if trtype = "OTH" then do
  135.         SRcom = " "
  136.         button.0 = 2
  137.         button.1 = "OK"
  138.         button.2 = "CANCEL"
  139.         call VRPrompt VRWindow(),"ENTER A SEND/RECEIVE COMMAND:", "SRcom", "EXECUTE AN EXPLICIT SEND/RECEIVE COM STRING", "button.",1,2
  140.         if result = 2 then return
  141.         rc = Startvio(SRcom)
  142.         return
  143.     end
  144.     trtype = "SEND"
  145.     values = Window14( VRWindow(),trtype)
  146.     if values = "" then return
  147.     parse var values part1 "," part2 "," part3
  148.     RECCOM = "SEND "||part1||" "TS||" "||part2||" "||part3
  149.     say reccom
  150.     rc = Startvio(RECCOM)
  151.     if rc = "QUIT" then return
  152.     return
  153.   
  154. /*:VRX         PB_15_Click
  155. */
  156. PB_15_Click:
  157.     values = Window13( VRWindow())
  158.     if values = "" then return
  159.     trtype = values
  160.     if trtype = "OTH" then do
  161.         SRcom = " "
  162.         button.0 = 2
  163.         button.1 = "OK"
  164.         button.2 = "CANCEL"
  165.         call VRPrompt VRWindow(),"ENTER A SEND/RECEIVE COMMAND:", "SRcom", "EXECUTE AN EXPLICIT SEND/RECEIVE COM STRING", "button.",1,2
  166.         if result = 2 then return
  167.         rc = Startvio(SRcom)
  168.         return
  169.     end
  170.     trtype = "REC"
  171.     values = Window14( VRWindow(),trtype)
  172.     if values = "" then return
  173.     parse var values part1 "," part2 "," part3
  174.     RECCOM = "RECEIVE "||part1||" "TS||" "||part2||" "||part3
  175.     say reccom
  176.     rc = Startvio(RECCOM)
  177.     if rc = "QUIT" then return
  178. return
  179.   
  180.  
  181. /*:VRX         PB_16_Click
  182. */
  183. PB_16_Click:
  184.     path = VRFileDialog(VRWindow(),"JOBFILE TO SUBMIT?:",,JCLS ||"\*.JCL")
  185.     say path
  186.     if path = "" then return
  187.     RECCOM = "SEND "||path||" "TS||" (FILE=RDR "
  188.     rc = Startvio(RECCOM)
  189.     return
  190.  
  191. /*:VRX         PB_17_Click
  192. */
  193. PB_17_Click:
  194.     JOBS = InitArgs.2
  195.  
  196.     COPY "C:\VSECOM\ONESTAT C:\VSECOM\BACKSTAT"
  197.     ERASE "C:\VSECOM\ONESTAT"
  198.  
  199.     RECCOM = "RECEIVE C:\VSECOM\oneSTAT "||TS||" (FILE=PMSG" 
  200.  
  201.     rc = Startvio(RECCOM)
  202.     if rc = "QUIT" then return
  203.  
  204.     statfile = "C:\vsecom\ONESTAT"
  205.     LINEIN(statfile,1,0)
  206.     logfile = JOBS
  207.  
  208.     Do until LINES(statfile) = "0"
  209.         thisline = LINEIN(statfile)
  210.     x = LineOut(logfile,thisline) 
  211.     end
  212.     x = stream(logfile,'c','close')
  213.     x = stream(statfile,'c','close')
  214.  
  215.     /*Myfile = "C:\VSECOM\JOBSTAT"
  216.     checkdat = LINES(Myfile)
  217.     if checkdat = "0" then do
  218.     call VRMessage VRWindow(), "NO JOB STATUS INFO FOR THIS USER"
  219.     checkdat = LINEOUT(Myfile)
  220.     return
  221.     end*/
  222.     E JOBS
  223.     return
  224.  
  225. /*:VRX         PB_18_Click
  226. */
  227. PB_18_Click:
  228.     values = Window12( VRWindow())
  229.     if values = "" then return
  230.     parse var values JOB "," JOBNUM "," CHKVIEW "," CHKPRT ","
  231.     RECCOM = "RECEIVE C:\vsecom\"||JOBNUM||" "||JOB||" "||JOBNUM||" (FILE=LST" 
  232.     rc = Startvio(RECCOM)
  233.     if rc = "QUIT" then return
  234.     say PRTO
  235.     say chkprt
  236.     say chkview
  237.     if CHKPRT = "1" then COPY "C:\VSECOM\"||JOBNUM PRTO
  238.     if CHKVIEW = "1" then E "C:\VSECOM\"JOBNUM
  239.  
  240.     return
  241.  
  242. /*:VRX         PB_20_Click
  243. */
  244. PB_20_Click:
  245.     path = VRFileDialog(VRWindow(),"File to Edit?",,"C:\VSECOM\*")
  246.     say path
  247.     if path = "" then return
  248.     EPM.EXE path
  249.     return
  250.  
  251. /*:VRX         Quit
  252. */
  253. Quit:
  254.     window = VRWindow()
  255.     call VRSet window, "Shutdown", 1
  256.     drop window
  257. return
  258.  
  259. /*:VRX         Startvio
  260. */
  261. Startvio:procedure
  262. parse arg command
  263. erase "c:\vsecom\vsestat.fil"
  264. "start /win/c c:\runvse.cmd" command "<con >con"
  265. /*"start /win/c c:\vsecom\runvse.cmd" command*/ 
  266. SPINNUM = 0
  267. RC = ""
  268. DO FOREVER
  269.     call SysSleep 2
  270.     exists = VRFileExists("C:\vsestat.fil")
  271.  
  272.     if exists = 1 then do
  273.     LEAVE
  274.     end
  275.     else do
  276.     SPINNUM = SPINNUM + 1
  277.     end
  278.  
  279.     if SPINNUM = 5 then do
  280.     SPINNUM = 0
  281.     rc = Window8(VRWindow())
  282.     end
  283.  
  284.     if rc = "QUIT" then do
  285.     LEAVE
  286.     end
  287. end
  288.  
  289. return rc    
  290.     
  291.  
  292.  
  293. /*:VRX         Window1_Close
  294. */
  295. Window1_Close:
  296.     call Quit
  297. return
  298.  
  299.