IFS Share Name ermitteln

[malzusrex]

Schaue mal bei den NetServer-APIs.

http://www-01.ibm.com/support/knowle...de.htm?lang=en

Gruß
Ronald

Habe da noch eine alte Quelle gefunden

flist198   o    f  198        printer                            
                                                                 
D UserOK          S              1A                              
D UserSpace       S             20A   INZ('FREIGABEN QTEMP     ')
D UsrSpcExtA      S             10A   INZ('PROD')                
D UsrSpcText      S             50A   INZ('Freigaben IFS    ')   
D LstFormat       S              8A   INZ('ZLSL0100')            
D InfoQ           s             15A   Inz('*ALL')                
D I_O_Err         s               *                              
                                                                 
D NbrEntries      s             10U 0                            
D Count           s             10U 0                            
D                                                                
D Path            s             50                               
D Zugriff         s             10                               
D AnzMaxU         s             10                               
D AnzCurU         s             10                               
D MaxUsrN         s              6s 0                            
D CurUsrN         s              6s 0 
                                      
D FreiG           ds                  
D  Length                 1      4b 0 
D  Name                   5     16    
D  DevType               17     20b 0 
D  Permiss               21     24b 0 
D  MaxUsr                25     28b 0 
D  CurUsr                29     32b 0 
D  SplFType              33     36b 0 
d  OfsOfPathNam          37     40b 0 
d  LenOfPathNam          41     44b 0 
d  QuaOutQ               45     64    
d  PrtDrvTyp             65    114    
d  Text                 115    164    
d  PathName             165   1188    
                                      
 * Prototype Lists                                                     
D/COPY malz/QRPGLESRC,FUSPCP                                           
                                                                       
c                   Eval      UserOK   =   CrtUsrSpc(UserSpace       : 
c                                                    UsrSpcExtA      : 
c                                                    UsrSpcText      ) 
c                                                                      
c                   Call      'QZLSLSTI'                               
c                   Parm                    UserSpace                  
c                   Parm                    LstFormat                  
c                   Parm                    InfoQ                      
c                   Parm                    I_O_Err                    
c                                                                      
c                   Except    Kopf                                     
c                                                                      
c                   Eval      NbrEntries = GetNumEnt(UserSpace)        
c                                                                      
c                   For       Count  =  1 to NbrEntries             
c                   Eval      FreiG  =  GetSpcEnt(UserSpace : Count)
c                   ExSr      Ausgabe                               
c                   EndFor                                          
c                                                                   
c                   Eval      UserOK   =   DltUsrSpc(UserSpace)     
c                                                                   
c                   Eval      *InLr    =   *On                      
                                                                    
c     Ausgabe       BegSr                                           
c*                                                                  
c                   Eval      Path = %SubSt(PathName:1:LenOfPathNam)
c                   Select                                          
c                   When      Permiss  = 1                          
c                   Eval      Zugriff  = 'Read Only'                
c                   When      Permiss  = 2                          
c                   Eval      Zugriff  = 'Read Write'               
c                   EndSl                                           
C                   Z-Add     MaxUsr        MaxUsrN                 
c                   If        MaxUsrN  = -1                                
c                   Eval      AnzMaxU  = '*NoMax'                          
c                   Else                                                   
c                   Eval      AnzMaxU  = %TrimL(%EditC(MaxUsrN:'Z'))       
c                   EndIf                                                  
C                   Z-Add     CurUsr        CurUsrN                        
c                   Eval      AnzCurU  = %TrimL(%EditC(CurUsrN:'Z'))       
c                                                                          
c                   Except    Zeile                                        
c*                                                                         
c                   EndSr                                                  
                                                                           
olist198   e            Kopf           2 01                                
o                                              'Folgende Ordner sind im IF'
o                                              'S freigegeben'             
o          e            Kopf           2                                   
o                                            4 'Name'                      
o                                           17 'Pfad'                      
o                                           71 'Zugriff'                   
o                                         +  7 'Maximale Anzahl User'
o                                         +  4 'Aktuelle User'       
o                                         +  4 'Beschreibung'        
o          e            Zeile          1                             
o                       Name                                         
o                       Path              +  1                       
o                       Zugriff           +  1                       
o                       AnzMaxU           +  4                       
o                       AnzCurU           + 14                       
o                       Text              +  7 

 /IF NOT DEFINED(FUSPCP)                                                   
 **************************************************************************
 *                                                                         
 *     Program Name: FunctUSPcp                                            
 *    Program Title: Copy Member for User Space Prototypes                 
 *      Origin Date: 10/30/97                                              
 *           Author:                                                       
 *        Revisions:                                                       
 *                                                                         
 **************************************************************************
                                                                           
 * Prototype for CrtUsrSpc procedure  (Create User Space)                  
D CrtUsrSpc       PR             1A                                        
D  UsrSpcName                   20A   VALUE                                
D  UsrSpcExtA                   10A   VALUE                                
D  UsrSpcText                   50A   VALUE                                
                                                                           
 * Prototype for GetUsrSpcP procedure (Get User Space Pointer)             
D GetUsrSpcP      PR              *                                        
D  UsrSpcName                   20A   VALUE                                   
                                                                              
 * Prototype for GetNumEnt procedure (Get Number of Entries in the User Space)
D GetNumEnt       PR             9B 0                                         
D  UsrSpcName                   20A   VALUE                                   
                                                                              
 * Prototype for GetSpcEnt procedure (Get Specific Entry in the User Space)   
D GetSpcEnt       PR         32767A                                           
D  UsrSpcName                   20A   VALUE                                   
D  EntNumber                     9B 0 VALUE                                   
                                                                              
 * Prototype for DltUsrSpc procedure  (Delete User Space)                     
D DltUsrSpc       PR             1A                                           
D  UsrSpcName                   20A   VALUE                                   
                                                                              
                                                                              
 /DEFINE FUSPCP                                                               
 /ENDIF 

und hier kannst du noch die Quelle für die User-Space-API sehen
http://newsolutions.de/forum-systemi...plf-in-outfile