a few pieces involved, but this one fregzample formats an html listing,
transfers to the PC network, invokes the html on the pc. works great; all
the pieces are listed below (and I'd LOVE to see the embedded questions
answered!).
have fun
Tracy Pierce
YODA:TRACY.VMS,KTP:help r1ac2ie.obj
USER DEFINED COMMAND FILE: R1AC2IE.OBJ.VMS
parm LIVEtarget="H:\Maintenance\Shops\actlist.htm"
parm TESTtarget="C:\actlist.htm"
OPTION NOLIST
COMMENT but "H:" varies, and we can't tell from here which H: the user has.
COMMENT H: maps to "\\xxAPP2\VOL1\SHARDATA", where xx = SF or SR or LK.
comment ACLIST.OBJ builds temp html file ACTLIST
comment R1HP2PC transfers to target
comment R1PCRUN invokes target
ACLIST.OBJ
SETVAR DESTINATION "!LIVEtarget"
IF "!HPUSER" = "TRACY"
IF "!HPSYSNAME" = "YODA"
ECHO using !TESTtarget
SETVAR DESTINATION "!TESTtarget"
ELSE
SETVAR DESTINATION
"\\SRAPP2\VOL1\SHARDATA\Maintenance\Shops\actlist.htm"
ECHO WARNING: Updating live data at !DESTINATION
ENDIF
ENDIF
R1HP2PC "ACTLIST","!DESTINATION"
R1PCRUN.OBJ "!DESTINATION"
YODA:TRACY.VMS,KTP:help aclist.obj
USER DEFINED COMMAND FILE: ACLIST.OBJ.VMS
OPTION NOLIST
comment eff 000908, this runs ACREP requesting format 1...
comment echo 1 > acrep1
comment eff 030109 this runs ACREP requesting
comment 1 column, Unicode limbs, No deleted recs, 99=treedetail,
comment N ???, XX=act-type, Y=showCompTypeDescs
echo 1UN99N@ N> ACREP1
FILE ACREP1=ACREP1
FILE ACREP=ACTLIST
IF FINFO ( "ACREP","EXISTS" )
PURGE ACREP
ENDIF
RUN PACREP.OBJ;XL="*XL" > $NULL
RESET ACREP1
RESET ACREP
YODA:TRACY.VMS,KTP:help r1pcrun.obj
USER DEFINED COMMAND FILE: R1PCRUN.OBJ.VMS
parm AppName="c:\winnt\notepad.exe",ParmOrFName="c:\autoexec.bat"
option nolist
comment R1PCRUN invokes a program on your PC via Reflection
setvar esc,chr(27)
echo !ESC&oG > vbacmd
echo sub main >> vbacmd
comment echo application.msgbox "in 3rd command file!" >> vbacmd
echo application.shell "!AppName","!ParmorFName" >> vbacmd
echo end sub >> vbacmd
echo !ESC&oH >> vbacmd
print vbacmd
YODA:TRACY.VMS,KTP:help r1hp2pc
USER DEFINED COMMAND FILE: R1HP2PC.PUB.SYS
parm HOSTFILE="hostfile",PCFILE="c:\pcfile.TXT"
IF "!HOSTFILE" = "hostfile" OR "!PCFILE" = "c:\pcfile.TXT"
echo R1HP2PC call format...
echo R1HP2PC hostfile,pcfile
echo where hostfile is any readable hp3000 file
echo pcfile is any destination on the caller's pc.
RETURN
ENDIF
COMMENT option nolist
comment R1HP2PC transfers hp3000 hostfile to clientfile...
comment 000808 KTP really get result from Reflection.
comment (R1 sees command when it's PRINTed, issues its own RUN PCLINK...
comment but to do this from a non-CI program, suck that up into FT_cmd,
comment then issue FT_cmd from this command file already talking to CI...
echo ![chr(27)]&oG > vbacmd
echo Option Explicit >> vbacmd
echo Sub Main >> vbacmd
echo Dim EV As Long ' error value >> vbacmd
echo With Application >> vbacmd
echo on error resume next >> vbacmd
echo .WRQReceiveFile "!PCFILE","!HOSTFILE", rcASCII, rcDelete >> vbacmd
echo EV = Err >> vbacmd
echo 'str$ inserts annoying space in front of the EV value >> vbacmd
echo .transmit str$(EV) + Chr$(13) >> vbacmd
echo if EV <> 0 then >> vbacmd
echo MsgBox "Xfr failed: WRQ err#" + str$(EV) + chr$(13) >> vbacmd
echo End if >> vbacmd
echo End With >> vbacmd
echo End Sub >> vbacmd
echo ![chr(27)]&oH >> vbacmd
print vbacmd
comment not sure if this is really a syntax result or just a
comment 'get-a-colon' carriage return, but we need it anyway...
input name=FT_syntax;wait=2
if FT_syntax <> ""
echo Syntax error in WRQReceiveFile command!(?)
return
endif
input name=FT_command;wait=10
comment FT_command variable sb like 'RUN PCLINK2.PUB.SYS;PARM=2'
!FT_command
input FT_result;wait=2
if FT_result <> " 0"
echo File transfer failed; result=WRQ error#'!FT_result'
showvar FT_@
endif
YODA:TRACY.VMS,KTP:
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
