Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

csv file downloaded from AS400

Status
Not open for further replies.

Holly888

Programmer
Dec 3, 2008
10
CA
How to make it password protected? I don't want to users manipulate the csv file. I use the code to make it as read only:

setattr fname, vbreadonly

But it's not secured enough. They could still make changes to it if they want.

Can I make changes to the following code on "fileauthority", now it's set to 1, what other option i have:

a.WriteLine ("[Transfer Item " & fCount & "]")
a.WriteLine ("PCFilename=" & fName & "")
a.WriteLine ("HostFilename=IASTP/IASUAPHST1, IASTP/IASUAPHST2")
a.WriteLine ("Direction=1")
a.WriteLine ("HostName=SACCODA")
a.WriteLine ("HostAction=0")
a.WriteLine ("PCAction=1")
a.WriteLine ("FileAuthority=1")
a.WriteLine ("SourceFile=0")
a.WriteLine ("RecordLength=92")
a.WriteLine ("DDSName=")
a.WriteLine ("PCFileType=3")
a.WriteLine ("UseFDF=0")
a.WriteLine ("FDFName=c:\.FDF")
a.WriteLine ("DoTransfer=1")
a.WriteLine ("IncludeFields=0")
a.WriteLine ("DateAsValue=0")
a.WriteLine ("ExpandTabs=0")
a.WriteLine ("CharsPerTab=8")
a.WriteLine ("TimeFormat=0")
a.WriteLine ("TimeSeparator=0")
a.WriteLine ("DateFormat=1")
a.WriteLine ("DateSeparator=0")
a.WriteLine ("IgnoreDecimalError=0")
a.WriteLine ("DecimalSeparator=2")
a.WriteLine ("MemberText=")
a.WriteLine ("FileText=")
a.WriteLine ("HostCodePage=37")
a.WriteLine ("PCCodePage=1252")
a.WriteLine ("HostCountrycode=ENU")
a.WriteLine ("SQLSelectLength=100")
a.WriteLine ("SQLSelect=SELECT T1.COMPANY, T1.CLASS, SUM(T1.ADJSHRVAL ), SUM(T2.CURRUAP),T1.SHARES,T1.DATE")
a.WriteLine ("SQLFromLength=50")
a.WriteLine ("SQLFrom=FROM IASTP/IASUAPHST1 ")
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top