READIR

(GIN Macro)
Used in:
READIR.mac.txt
 574B ...[??? READIR SECT FILE FGN 22 DOC
 592W    #MAC  READIR
 59=N ...[     MEND MACRO ALLOWS NAMED USER(S) TO READ ANY DIRECTORY 
 59GG    #STR  %A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X, 
 5=26    (   
 5=FQ    #STR  %A,   
 5=^B    (   
 5?F2    #STR  :,%A  
 5?YL    (   
 5#D=    #STR  MANAGER,%A
 5#XW    (   
 5#^S ...#UNS  FTS2  
 5*3Q ...#DEF  20?=K53USEREXCP-K55USEREXCP-48
 5*5N ...#UNS  FTS2  
 5*7L ...#SKI
 5*9J ...#DEF  20?=K53USEROPEN-K55USEROPEN-48
 5*?G ...#SKI  20?   
 5**D ...(   
 5*CG ...#UNS  FTS2  
 5*X6 ...#SKI
 5BBQ    #MEN  USEROPEN  
 5BFW ...#UNS  FTS2  
 5BK2 ...#MEN  USEREXCP  
 5BN6 ...#UNS  FTS2  
 5BR= ...#SKI
 5BWB    #TRA  K53USEROPEN   
 5C3J ...#UNS  FTS2  
 5C8Q ...#TRA  K53USEREXCP   
 5CB2                   12H%A
 5CTL    #END
 5D2S ...#UNS  FTS2  
 5D82 ...#SKI
 5D*= ...#ALT K53USEROPEN=0? 
 5DDB ...#UNS  FTS2  
 5DHG ...#ALT K53USEREXCP=0? 
 5DLL ...#UNS  FTS2  
 5DPQ ...#SKI
 5DSW    #MEN  USEROPEN  
 5DY2 ...#UNS  FTS2  
 5F36 ...#MEN  USEREXCP  
 5F6= ...#UNS  FTS2  
 5F9B ...#SKI
 5F#G    #TRA  K54USEROPEN   
 5FCL ...#UNS  FTS2  
 5FGQ ...#TRA  K54USEREXCP   
 5FKW ...#UNS  FTS2  
 5FP2 ...#SKI
 5FS6          LDN   4  K53USEROPEN-K55USEROPEN/3
 5F^# ...#UNS  FTS2  
 5G6G ...      LDN   4  K53USEREXCP-K55USEREXCP/3
 5G?Q    #END
 5GRB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
 5H?2    #EXI
 5KP6    )   
 5KXB ...! READIR TABLE FULL - %A IGNORED
 5L5L ...#EXI
 5L?W ...)   
 5LG6 ...! READIR - %A ALREADY ALLOWED   
 5LNB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
 5M82    #EXI
 5MML    )   
 5N7= ...! READIR - ":" REDUNDANT
 5NLW     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
 5P6G    #EXI
 5PL6    )   
 5Q5Q ...! READIR - NULL PARAMETER   
 5QKB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
 5R52    #EXI
 5RJL    )   
 5S4=    #NOR