/* REXX */                                                                      
PARSE UPPER ARG tr_vsam .                                                       
                                                                                
zrc = VSAMFILE(tr_vsam 'SHR')                                                   
IF zrc > 0                                                                      
THEN DO                                                                         
       SAY tr_vsam 'Records not read.'                                          
       SIGNAL Done                                                              
     END                                                                        
                                                                                
x   = OUTTRAP('ztrap.','*','NOCONCAT')                                          
ADDRESS TSO "REPRO INFILE(TRVSAM) OUTFILE(TRQSAM)"                              
x   = OUTTRAP('OFF')                                                            
zrc = RC                                                                        
                                                                                
SELECT                                                                          
WHEN zrc = 12 & WORD(ztrap.2,WORDS(ztrap.2)) = 160                              
THEN SAY tr_vsam 'No records in cluster (load mode).'                           
WHEN zrc = 12 & WORD(ztrap.2,WORDS(ztrap.2)) = 168                              
THEN SAY tr_vsam 'Cluster in use by another task.'                              
WHEN zrc > 0                                                                    
THEN DO x = 1 TO ztrap.0; SAY ztrap.x; END x                                    
WHEN zrc = 0 & WORD(ztrap.1,WORDS(ztrap.1)) = 0                                 
THEN SAY tr_vsam 'No records in cluster.'                                       
OTHERWISE                                                                       
     ADDRESS TSO "EXECIO 1 DISKR TRQSAM (OPEN)"                                 
                                                                                
     DO WHILE RC = 0                                                            
        PARSE PULL tr_record                                                    
        SAY LEFT(tr_record,79)    /* Display purposes. */                       
        ADDRESS TSO "EXECIO 1 DISKR TRQSAM"                                     
     END /* WHILE */                                                            
                                                                                
     ADDRESS TSO "EXECIO 0 DISKR TRQSAM (FINIS)"                                
     zrc = RC                                                                   
END /* SELECT */                                                                
                                                                                
CALL VSAMFILE 'FREE'                                                            
                                                                                
Done:                                                                           
EXIT zrc