midrange.com code scratchpad |
Name:
MKDIR Api example.
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
12/30/2019 07:10:17 pm
|
IP:
Logged
|
|
Description:
Example of MKDIR API behavior for me.
|
Code:
- Parent folder:
- Object . . . . . . . . . . . . : /kevin/mkdirtest
- Type . . . . . . . . . . . . . : DIR
- Owner . . . . . . . . . . . . : KEVIN
- Primary group . . . . . . . . : *NONE
- Authorization list . . . . . . : *NONE
-
- Type options, press Enter.
- 1=Add user 2=Change user authority 4=Remove user
-
- Data --Object Authorities--
- Opt User Authority Exist Mgt Alter Ref
-
- *PUBLIC *RX X X
- KEVIN *RWX X X X X
-
- Bottom after F11
- Data -------------Data Authorities-------------
- Opt User Authority Objopr Read Add Update Delete Execute
-
- *PUBLIC *RX X X X
- KEVIN *RWX X X X X X X
-
- Sample program. IFSIO_H is Scott Klement's copybook for IFS Functions.
-
- **Free
- /copy qrpgsrc,ifsio_h
-
- Dcl-S Mode Uns(10);
- Dcl-S Path Char(70);
-
- Mode = S_Ixusr // My user profile - *X only
- + S_Iroth + S_Iwoth; // Other (*PUBLIC) *RW
- Path = '/kevin/mkdirtest/newfolder' + x'00';
- Mkdir(%Addr(Path):Mode);
- *Inlr = *On;
- Return;
-
- The new folder authorities.
- Object . . . . . . . . . . . . : /kevin/mkdirtest/newfolder
- Type . . . . . . . . . . . . . : DIR
- Owner . . . . . . . . . . . . : KEVIN
- Primary group . . . . . . . . : *NONE
- Authorization list . . . . . . : *NONE
-
- Type options, press Enter.
- 1=Add user 2=Change user authority 4=Remove user
-
- Data --Object Authorities--
- Opt User Authority Exist Mgt Alter Ref
-
- *PUBLIC *RW X X
- KEVIN *X X X X X
-
- After F11
- Data -------------Data Authorities-------------
- Opt User Authority Objopr Read Add Update Delete Execute
-
- *PUBLIC *RW X X X X X
- KEVIN *X X X
|
|
|