REXX that verify what MINIDISK is a file

[Sergio Lima]

Hello List,
 
We are changing a REXX here for that this EXEC execute only if reside on X 
acessed minidisk.
So, try with STATE command without succesfull  and now try  with LISTFILE 
command.
If execute like this :
 
     9 *-* 'LISTFILE  cataa exec x (DATE STACK LIFO'                   
       >>>   "LISTFILE  cataa exec x (DATE STACK LIFO"                 
    10 *-* if rc = 0                                                   
       >>>   "1"                                                       
       *-*  then                                                       
       *-*  do                                                         
    11 *-*   pull x1 x2 x3 .                                           
       >>>     "CATAA"                                                 
       >>>     "EXEC"                                                  
       >>>     "X2"                                                    
       >.>     "V         83        506          4 10/14/10 15:03:32"  
    12 *-*   say x1                                                    
       >>>     "CATAA"                                                 
CATAA                                                                  
    13 *-*   say x2                                                    
       >>>     "EXEC"                                                  
EXEC                                                                   
    14 *-*   say x3                                                    
       >>>     "X2"                                                    
X2                                                                     
    15 *-*   exit                                                      
 
But, when try execute with filemode *, lookslike the program go to a LOOPING :
 
     9 *-* 'LISTFILE  cataa exec * (DATE STACK LIFO'                   
       >>>   "LISTFILE  cataa exec * (DATE STACK LIFO"                 
    10 *-* if rc = 0                                                   
       >>>   "1"                                                       
       *-*  then                                                       
       *-*  do                                                         
    11 *-*   pull x1 x2 x3 .                                           
       >>>     "CATAA"                                                 
       >>>     "EXEC"                                                  
       >>>     "X2"                                                    
       >.>     "V         83        506          4 10/14/10 15:03:32"  
    12 *-*   say x1                                                    
       >>>     "CATAA"                                                 
CATAA                                                                  
    13 *-*   say x2                                                    
       >>>     "EXEC"                                                  
EXEC                                                                   
    14 *-*   say x3                                                    
       >>>     "X2"                                                    
X2                                                                     
    15 *-*   exit                                                      
     9 *-* 'LISTFILE  cataa exec * (DATE STACK LIFO'                   
       >>>   "LISTFILE  cataa exec * (DATE STACK LIFO"                 
    10 *-* if rc = 0                                                   
       >>>   "1"                                                       
       *-*  then                                                       
       *-*  do                                                         
    11 *-*   pull x1 x2 x3 .                                           
       >>>     "CATAA"                                                 
       >>>     "EXEC"                                                  
                                                                       
The command in the line show this :
 
listfile cataa exec *        
CATAA    EXEC     A2         
CATAA    EXEC     X2         
Ready; T=0.01/0.01 16:17:00  
 
Someone can help, how can verify if this EXEC is not running from X disk ?
 
Thanks very much,
 
Sergio Lima Costa
Sao Paulo - Brazil