Parse a File name

[mainframesara]

Hi,
I need to search by taking the last two qualifier of the file in JCL and PRoC.
Ex. If the file name is ACSXS.IP.ACXIOM.INMAR.MCO68, i need to take the last two qualifier INMAR.MCO68 only as a search string and then do search.

We are writing a REXX tool to automate the process. I want to know how to get the last two qualifier using PARSE command in REXX.

Thanks in advance

Thanks,
Saravanan

[MrSpock]

Using a PARSE command, you could do this:

Code: Select all

/* REXX */                                  
dsn = 'ACSXS.IP.ACXIOM.INMAR.MCO68'         
str = dsn                                   
idx = 1                                     
Do Forever                                  
  Parse Var dsn node.idx '.' dsn            
  If Length(dsn) = 0 Then Leave             
  idx = idx + 1                             
End                                         
If idx >= 2 Then                            
  Do                                        
    idx = idx - 1                           
    str = node.idx                          
    idx = idx + 1                           
    str = str'.'node.idx                    
  End                                       
Say str                                     
Exit 0                                      

My preferred method would be:

Code: Select all

/* REXX */
dsn = 'ACSXS.IP.ACXIOM.INMAR.MCO68'                 
str = dsn                                           
dsn = Translate(dsn,' ','.')                        
words = Words(dsn)                                  
If words >= 2 Then                                  
  Do                                                
    str = Word(dsn,(words-1))'.'Word(dsn,words)     
  End                                               
Say str                                             
Exit 0

[mainframesara]

Thanks Mrspcok.

It's working fine.