Yes, you can try and modify this little Rexx program named NR.CMD [may be,
you are interested to add options to compiler, don't use SysFileTree...] this
is a first approach.
-------------------------------- cut here --------------------------------
/* NR.CMD: Calling NetRexx Compiler using JIKES */
Call RXFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
Call SysLoadFuncs
Parse Arg aFile
Parse Var aFile Name"."Ext
If Ext = '' Then FTemp = Name".nrx"
If Stream(FTemp, "C", "QUERY EXISTS") = '' Then Do
Say "File '"FTemp"' not found."
Exit
End
'@java -ms4M COM.ibm.netrexx.process.NetRexxC -nocompile' aFile
FTemp = Name".java"
Call SysFileTree FTemp, "FOUND.", "FO"
If Found.0 = 0 Then Do
Say "Output file '"FTemp"' not found."
Exit 1
End
FTemp = Found.1
Say "Jikes..."
'@jikes +$' FTemp
Call SysFileDelete FTemp
If RC <> 0 Then Do
Select
When RC = 2 Then Msg = "File '"FTemp"' not found."
When RC = 3 Then Msg = "Path to file '"FTemp"' not found."
When RC = 5 Then Msg = "Access denied to file '"FTemp"'."
When RC = 26 Then Msg = "The file '"FTemp"' refers to a not DOS disk."
When RC = 33 Then Msg = "Sharing violation to file '"FTemp"'."
When RC = 36 Then Msg = "Sharing Buffer exceeded."
When RC = 87 Then Msg = "Invalid parameter."
When RC = 206 Then Msg = "Filename exceeds range error."
End
Msg = "Error deletting '"FTemp"':" Msg
End
-------------------------------- cut here --------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To unsubscribe from this mailing list ( ibm-netrexx ), please send a note to
[hidden email]
with the following message in the body of the note
unsubscribe ibm-netrexx <e-mail address>
Locked
