|
Sorry if this was already asked - Do have x'00' at the end of the file name? Think you need it if you don't have it. Phil > -----Original Message----- > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > Behalf Of rob@dekko.com > Sent: Monday, April 15, 2002 6:09 PM > To: rpg400-l@midrange.com > Subject: RE: ifs api's > > > This is a multipart message in MIME format. > -- > [ Picked text/plain from multipart/alternative ] > I know that some consider it a security breach - relying on security by > obscurity, but I think you get a different error if you do not have > access. Like 3401 - Permission denied. > > But, this test user profile, ROB, has *ALLOBJ. > > And option 9 on WRKLNK shows: > > > Data --Object Authorities-- > User Authority Exist Mgt Alter Ref > ROB *RWX X X X X > > > -------------Data Authorities------------- > Objopr Read Add Update Delete Execute > X X X X X X > > Good idea though. > > > Rob Berendt > -- > "They that can give up essential liberty to obtain a little temporary > safety deserve neither liberty nor safety." > Benjamin Franklin > > > > > Peter Connell <Peter.Connell@baycorpadvantage.com> > Sent by: rpg400-l-admin@midrange.com > 04/15/2002 04:18 PM > Please respond to rpg400-l > > > To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> > cc: > Fax to: > Subject: RE: ifs api's > > > Are you certain that the user accesing the file has the explicit > permissions > required to read the file despite possibly being the owner. > > > -----Original Message----- > From: rob@dekko.com [mailto:rob@dekko.com] > Sent: Tuesday, April 16, 2002 9:00 AM > To: rpg400-l@midrange.com > Subject: ifs api's > > > This is a multipart message in MIME format. > -- > [ Picked text/plain from multipart/alternative ] > I've read Scott's example at: > http://archive.midrange.com/rpg400-l/200105/msg00320.html > > And I've read the Redbook 'Who knew...' for handling the errno part. > > I have a file which shows up with > wrklnk '/rob/spool2.txt' > > However, my command > STATTEST FILENAME('/rob/spool2.txt') > > Results in: > DSPLY 3025No such path or directory. > > File attributes: > Object . . . . . . : /rob/spool2.txt > > Type . . . . . . . . . . . . . . . . . : STMF > > Owner . . . . . . . . . . . . . . . . : ROB > System object is on . . . . . . . . . : Local > Auxiliary storage pool . . . . . . . . : 1 > Object overflowed . . . . . . . . . : No > > Coded character set ID . . . . . . . . : 37 > Hidden file . . . . . . . . . . . . . : No > PC system file . . . . . . . . . . . . : No > Read only . . . . . . . . . . . . . . : No > > Need to archive (PC) . . . . . . . . . : Yes > Need to archive (AS/400) . . . . . . . : No > Last access date/time . . . . . . . . : 01/07/02 17:50:5 > Data change date/time . . . . . . . . : 06/01/01 15:08:5 > Attribute change date/time . . . . . . : 10/21/01 11:11:5 > > Size of object data in bytes . . . . . : 2926 > Allocated size of object . . . . . . . : 8192 > File format . . . . . . . . . . . . . : *TYPE2 > Size of extended attributes . . . . . : 0 > Storage freed . . . . . . . . . . . . : No > > Auditing value . . . . . . . . . . . . : *NONE > > Object domain . . . . . . . . . . . . : *SYSTEM > > Number of hard links . . . . . . . . . : 1 > Last used date . . . . . . . . . . . . : 01/07/02 > Days used count . . . . . . . . . . . : 2 > Reset date . . . . . . . . . . . . . : > > Allow write during save . . . . . . . : No > > Digitally signed . . . . . . . . . . . : No > File ID . . . . . . . . . . . . . . . : > X'0000000000000001833C09CE0000A3BF' > > > > Entire source: > > > > H Datfmt(*USA) > H ExprOpts(*RESDECPOS) > H Bnddir('ROUTINES/SRVPGM':'QC2LE') > H ActGrp('QILE') > H DftActGrp(*NO) > D********************************************************************** > D* File Information Structure (stat) > D* > D* struct stat { > D* mode_t st_mode; /* File mode */ > D* ino_t st_ino; /* File serial number */ > D* nlink_t st_nlink; /* Number of links */ > D* uid_t st_uid; /* User ID of the owner of file */ > D* gid_t st_gid; /* Group ID of the group of file */ > D* off_t st_size; /* For regular files, the file > D* * size in bytes */ > D* time_t st_atime; /* Time of last access */ > D* time_t st_mtime; /* Time of last data modification > */ > D* time_t st_ctime; /* Time of last file status change > */ > D* dev_t st_dev; /* ID of device containing file */ > D* size_t st_blksize; /* Size of a block of the file */ > D* unsigned long st_allocsize; /* Allocation size of the file */ > D* qp0l_objtype_t st_objtype; /* AS/400 object type */ > D* unsigned short st_codepage; /* Object data codepage */ > D* char st_reserved1[66]; /* Reserved */ > D* }; > ** times in statds are seconds from the "epoch" (Jan 1, 1970) > ** and are in GMT (Greenwich Mean Time)... > D* > D p_statds S * > D statds DS BASED(p_statds) > D st_mode 10U 0 > D st_ino 10U 0 > D st_nlink 5U 0 > D st_pad 2A > D st_uid 10U 0 > D st_gid 10U 0 > D st_size 10I 0 > D st_atime 10I 0 > D st_mtime 10I 0 > D st_ctime 10I 0 > D st_dev 10U 0 > D st_blksize 10U 0 > D st_alctize 10U 0 > D st_objtype 12A > D st_codepag 5U 0 > D st_resv11 62A > D st_ino_gen_id 10U 0 > > D STATTEST PR EXTPGM('STATTEST') > D 100a const > D STATTEST PI > D FileName 100a const > D*-------------------------------------------------------------------- > D* Get File Information > D* > D* int stat(const char *path, struct stat *buf) > D*-------------------------------------------------------------------- > D stat PR 10I 0 ExtProc('stat') > D path * value options(*string) > D buf * value > > D GetTimeZone PR 5A > > D timezone DS > D tzDir 1A > D tzHour 2S 0 > D tzFrac 2S 0 > > > D statsize S 10I 0 > d Msg S 50A > D AccessTime S Z > D ModifyTime S Z > D ChgStsTime S Z > D charTS S 26A > D Epoch S Z INZ(z'1970-01-01-00.00.00') > > DGetErrNo PR * ExtProc('__errno') > DStrError PR * ExtProc('strerror') > D ErrorNo 10i 0 Value > DpErrorNo s * inz > DErrorNo s 10i 0 based(pErrorNo) > DpErrorMsg s * inz > DErrorMsg s 100a based(pErrorMsg) > > c eval *inlr = *on > > c eval statsize = %size(statds) > c alloc statsize p_statds > > c if stat(FileName: p_statds) < 0 > c eval pErrorNo = GetErrNo > c eval pErrorMsg = StrError(ErrorNo) > c eval Msg = %char(ErrorNo) + ErrorMsg > c > c dsply Msg > c return > c endif > > ** times in statds are seconds from the "epoch" (Jan 1, 1970) > ** and are in GMT (Greenwich Mean Time)... > ** Hey! Lets convert them to RPG timestamps! > c Epoch adddur st_atime:*S AccessTime > c Epoch adddur st_mtime:*S ModifyTime > c Epoch adddur st_ctime:*S ChgStsTime > > ** adjust timestamps for timezone: > c eval timezone = GetTimeZone > c if tzDir = '-' > c subdur tzHour:*H AccessTime > c subdur tzHour:*H ModifyTime > c subdur tzHour:*H ChgStsTime > c else > c adddur tzHour:*H AccessTime > c adddur tzHour:*H ModifyTime > c adddur tzHour:*H ChgStsTime > c endif > > C* display the relevant times: > c move AccessTime charTS > c eval Msg = 'Last Access ' + charTS > c dsply Msg > > c move ModifyTime charTS > c eval Msg = 'Last Modified ' + charTS > c dsply Msg > > c move ChgStsTime charTS > c eval Msg = 'Status Changed ' + charTS > c dsply Msg > > c dealloc p_statds > c eval *inlr = *on > > > P*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ > P* This gets the offset from Universal Coordinated Time (UTC) > P* from the system value QUTCOFFSET > P*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ > P GetTimeZone B > D GetTimeZone PI 5A > D peRcvVar S 1A DIM(100) > D peRVarLen S 10I 0 > D peNumVals S 10I 0 > D peSysValNm S 10A > D p_Offset S * > D wkOffset S 10I 0 BASED(p_Offset) > D p_SV S * > D dsSV ds BASED(p_SV) > D dsSVSysVal 10A > D dsSVDtaTyp 1A > D dsSVDtaSts 1A > D dsSVDtaLen 10I 0 > D dsSVData 5A > D dsErrCode DS > D dsBytesPrv 1 4B 0 INZ(256) > D dsBytesAvl 5 8B 0 INZ(0) > D dsExcpID 9 15 > D dsReserved 16 16 > D dsExcpData 17 256 > C CALL 'QWCRSVAL' 99 > C PARM peRcvVar > C PARM 100 peRVarLen > c PARM 1 peNumVals > c PARM 'QUTCOFFSET' peSysValNm > c PARM dsErrCode > c if dsBytesAvl > 0 or *IN99 = *On > c return *blanks > c endif > c eval p_Offset = %addr(peRcvVar(5)) > c eval p_SV = %addr(peRcvVar(wkOffset+1)) > c return dsSVData > P E > > Rob Berendt > -- > "They that can give up essential liberty to obtain a little temporary > safety deserve neither liberty nor safety." > Benjamin Franklin > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > This communication is confidential and may be legally privileged. If it is > not addressed to you, you are on notice of its status. Please immediately > contact us at our cost and destroy it. Please do not use, disclose, copy, > distribute or retain any of it without our authority - to do so could be a > breach of confidence. Thank you for your co-operation. If you need > assistance, please contact Baycorp Advantage on either :- > Australia 133124 or New Zealand +64 9 356 5800 > > All personnel email addresses must be in the format > 'firstname.lastname@baycorpadvantage.com'. > > * Old Baycorp email addresses will cease to exist after June 1st 2002 * > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
