Quelle  XBR.REXX   Sprache: unbekannt

/* REXX - mit Cursor markierte Datei wird im Browse aufgerufen      */          
/* Aufruf: mit PF-Taste                                             */          
/*                                                                  */          
                                                                                
/* trace i */                                                                   
Version     = "Version 1.02 vom 23.06.1999"                                     
Autor       = "Helmut Wälder"                                                   
Redakteur1  = "Jens Doll"                                                       
                                                                                
address ispexec                                                                 
datei=getdsn()                                                                  
/* Dateiname prüfen */                                                          
savmsg = msg("OFF")                                                             
antw = sysdsn(''''datei'''')                                                    
dummy = msg(savmsg)                                                             
select                                                                          
  when antw = "OK" then nop                                                     
  when antw = "MEMBER NOT FOUND" then nop                                       
  otherwise                                                                     
    call message antw datei                                                     
    exit 4                                                                      
end                                                                             
/* Dateiorganisation feststellen */                                             
modus = "BROWSE"                                                                
y = listdsi(''''datei'''')                                                      
if sysrecfm = "U" ! sysrecfm = "?" then                                         
   modus = "BROWSE"                                                             
if y <> 0 then                                                                  
do                                                                              
  call message sysmsglvl1                                                       
  call message sysmsglvl2                                                       
  exit 4                                                                        
end                                                                             
/* Edit-Aufruf mit neuem Dateinamen */                                          
address "ISPEXEC" modus "DATASET('"datei"')"                                    
rrc = rc                                                                        
select                                                                          
  when rrc = 0 then nop; /* Normal completion */                                
  when rrc = 4 then nop; /* Data not saved */                                   
  when rrc = 12 then                                                            
    do                                                                          
      call message "DSN ist leer:" datei                                        
      exit 4                                                                    
    end                                                                         
  when rrc = 14 then                                                            
    do                                                                          
      call message "DSN in use:" datei                                          
      exit 4                                                                    
    end                                                                         
  when rrc = 16 then                                                            
    do                                                                          
      call message "No members in dsn:" datei                                   
      exit 4                                                                    
    end                                                                         
  when rrc = 20 then                                                            
    do                                                                          
      call message "Illegal dsn:" datei                                         
      exit 4                                                                    
    end                                                                         
  otherwise                                                                     
    do                                                                          
      call message "unexp. rrc :" rrc                                           
      exit 4                                                                    
    end                                                                         
end                                                                             
exit                                                                            
/* Programm Ende */                                                             
                                                                                
/* Fehlerroutinen */                                                            
message: procedure                                                              
zedsmsg=arg(1)                                                                  
zedlmsg=arg(1)                                                                  
address "ISPEXEC" "SETMSG MSG(ISRZ001)"                                         
return                                                                          
                                                                                
HELP:                                                                           
say ' '          
say 'ISPF/PDF edit macro to browse the dataset on cursor position '          
say 'which can also be a copy member '                                  
say ' '          
say 'To run: '          
say '1. place the cursor on the dataset/member '          
say ' '          
say '2. Press ENTER '          
say ' '          
say '3. If you have questions about this command, '          
say ' contact Hamburg -4244. '          
Return                                                                          

quality66%

[ zur Elbe Produktseite wechseln0.20Quellennavigators  Analyse erneut starten  ]