/* REXX  */                                                                     
/* EMailen des aktuellen Members oder eines ausgewählten      */                
/* Bereichs aus diesem Member.                                */                
/*                                                            */                
/* - EMail des gesamten Members:                              */                
/*   Absetzen von 'mail' in der Command-Zeile                 */                
/*                                                            */                
/* - EMail eines Bereiches:                                   */                
/*   - Markieren des Bereiches mit dem Line-Command '#'       */                
/*     oder dem Block-Command '##'                            */                
/*   - Absetzen von 'mail' in der Command-Zeile               */                
/*                                                            */                
/* ---------------------------------------------------------- */                
                                                                                
/* trace all */                                                                 
   Version     = "Version 0.80 vom  2.12.2002"                                  
   Autor       = "JD"                                                           
   Redakteur01 = "JD Drucker U0021515 voreingestellt"                           
                 "                                 "                            
                                                                                
   /*-----------------------*/                                                  
   /* Parameter untersuchen */                                                  
   /*-----------------------*/                                                  
   arg parm1                                                                    
   address isredit                                                              
   'ISREDIT MACRO (parm1) NOPROCESS'                                            
   if parm1 = "" then                                                           
      arg parm1                                                                 
   parm1 = translate(parm1)                                                     
   if parm1 = '?' then do                                                       
      call help                                                                 
      exit                                                                      
   end                                                                          
   if parm1 <> '',                                                              
   &  index(parm1, '@') = 0,                                                    
   &  substr(parm1,1,1) <> "'" then do                                          
      call help                                                                 
      exit                                                                      
   end                                                                          
                                                                                
   /*---------------------------------------------------------*/                
   /* Ersatz-Datei mit DSN z.B.= 'ANWJ1.PROUT' (User = anwj1) */                
   /*---------------------------------------------------------*/                
   user = userid()                                                              
   proutdat = '''' !! user !! '.PROUT'''                                        
   print_prout = 0                                                              
                                                                                
   /*----------------------------------*/                                       
   /* Ermitteln von Dateiinformationen */                                       
   /*----------------------------------*/                                       
   editor = 1                                                                   
   if substr(parm1, 1, 1) = "'" then do                                         
      /*-----------------------------------------------*/                       
      /* Ermitteln von DSN bei Aufruf aus Command Line */                       
      /*-----------------------------------------------*/                       
      editor = 0                                                                
      dsn_e = 0                                                                 
      do i = length(parm1) by -1 to 2                                           
         if substr(parm1, i, 1) = "'" then                                      
           dsn_e = i                                                            
      end                                                                       
      dsn = substr(parm1, 2, dsn_e-2)                                           
      full_dsn = "'" !! dsn !! "'"                                              
      mem = ""                                                                  
      print_prout = 0                                                           
      first = 1                                                                 
      last = 9999                                                               
   end                                                                          
   else do                                                                      
      /*------------------------------------*/                                  
      /* Ermitteln von DSN und Membername:  */                                  
      /*------------------------------------*/                                  
      'isredit (dsn) = dataset'                                                 
      rc_dsn = rc                                                               
      'isredit (mem) = member'                                                  
      rc_mem = rc                                                               
      /*-----------------------------------------------*/                       
      /* Ermitteln von DSN bei Aufruf aus Editor       */                       
      /*-----------------------------------------------*/                       
      if (rc_dsn /= 0 & rc_mem /= 0) ! (dsn = '' & mem = '') then               
        /*---------------------------------------*/                             
        /* Weder DSN noch Membername ermittelbar */                             
        /*---------------------------------------*/                             
        print_prout = 1                                                         
      else do                                                                   
        /*---------------------------------------*/                             
        /* DSN oder Membername bekannt           */                             
        /*---------------------------------------*/                             
         print_prout = 0                                                        
         first = 1                                                              
         last = 9999                                                            
         full_dsn = "'" !! dsn !! "'"                                           
         rc_list = listdsi(full_dsn)                                            
         if rc_list /= 0 then do                                                
            if rc_list = 16 then                                                
               print_prout = 1                                                  
            else do                                                             
               zedsmsg = 'Macro-Mail-Error **'                                  
               zedlmsg = 'RC from LISTDSI: ',                                   
                         rc_list ', REASON: ' SYSREASON                         
               say "zedmsg="zedlmsg                                             
               'setmsg msg(isrz000)'                                            
               exit(12)                                                         
            end                                                                 
         end                                                                    
         /* Auswerten der Variablen nach erfolgreichem LISTDSI */               
         if sysdsorg /= 'PS' then                                               
            full_dsn = "'" !! dsn !! "(" !! mem !!")'"                          
         if index(dsn,'IKVTEMP') > 0 then do                                    
            'isredit save'                                                      
         end                                                                    
      end                                                                       
   end                                                                          
                                                                                
                                                                                
   /*----------------------------------------------------*/                     
   /* Ermitteln der Satzlänge und Setzen der Seitenlänge */                     
   /*----------------------------------------------------*/                     
   rc_list = listdsi(full_dsn)                                                  
   if rc_list /= 0 then do                                                      
      say "listdsi.rc="rc_list" syslrecl="syslrecl                              
      if editor = 1 then do                                                     
         'isredit (lq) = line' 1                                                
         lrecl = length(lq)                                                     
      end                                                                       
      else                                                                      
         lrecl = 133                                                            
   end                                                                          
   else                                                                         
      lrecl = syslrecl                                                          
   select                                                                       
   when lrecl > 87 then do                                                      
                          dfcb = "Q321"                                         
                          pagewidth = 133                                       
                        end                                                     
   when lrecl <= 87 then do                                                     
                           dfcb = "H326"                                        
                           pagewidth = 88                                       
                         end                                                    
   otherwise                                                                    
      nop                                                                       
   end                                                                          
   select                                                                       
   when parm1 = 'quer' ! parm1 = 'QUER' then do                                 
                          dfcb = "Q321"                                         
                          pagewidth = 133                                       
                        end                                                     
   when parm1 = 'hoch' ! parm1 = 'HOCH' then do                                 
                           dfcb = "H326"                                        
                           pagewidth = 88                                       
                         end                                                    
   otherwise                                                                    
      nop                                                                       
   end                                                                          
   if lrecl >= pagewidth then do                                                
     print_prout = 1                                                            
     first = 1                                                                  
     last = 9999                                                                
   end                                                                          
                                                                                
   /*----------------------------------------------------*/                     
   /* Ermitteln, welcher Bereich gedruckt werden soll.   */                     
   /*----------------------------------------------------*/                     
   if editor = 1 then do                                                        
      address isredit                                                           
      'isredit process range #'                                                 
      select                                                                    
      when rc = 0   then print_prout = 1                                        
      when rc = 4   then say 'RC from Edit-Cmd PROCESS RANGE = 'rc              
      when rc = 8   then say 'RC from Edit-Cmd PROCESS RANGE = 'rc              
      when rc = 12  then say 'RC from Edit-Cmd PROCESS RANGE = 'rc              
      otherwise          say 'Error on Edit-Cmd PROCESS RANGE, RC = 'rc         
                         exit (12)                                              
      end                                                                       
                                                                                
      'isredit (cmd) = range_cmd'                                               
      select                                                                    
      when rc = 0   then do                                                     
                         say '==> the selected lines will be mailed',           
                             ' to account 'userem()'.'                          
                         end                                                    
      when rc = 4   then                                                        
                      do                                                        
                         say '==> the whole member will be emailed',            
                             ' to account 'userem()'.'                          
                      end                                                       
      otherwise          say 'Error on Edit-Cmd RANGE_CMD, RC = 'rc             
                         exit (12)                                              
      end                                                                       
      say 'Type <ENTER> to proceed or ''N'' to stop'                            
      pull answer                                                               
      if answer = '' then nop                                                   
                     else exit(4)                                               
      'isredit (first)   = linenum .zfrange'                                    
      'isredit (last)    = linenum .zlrange'                                    
   end                                                                          
                                                                                
   address tso                                                                  
   if print_prout = 1 then do                                                   
     /*---------------------------------------------------*/                    
     /* DSN of currently edited Source is not available   */                    
     /* or Record Length > 133                            */                    
     /* ==> put the marked lines to the stack, write them */                    
     /*     to the auxiliary file 'Userid.PROUT' and print*/                    
     /*     the whole file 'Userid.PROUT'                 */                    
     /*---------------------------------------------------*/                    
     'NEWSTACK'             /* get a new stack */                               
     if editor = 1 then do                                                      
       do lnr = first to last by 1                                              
          'isredit (lq) = line' lnr                                             
          if lrecl <= pagewidth+10 then do                                      
            record=' 'substr(lq,1,pagewidth-1)                                  
            /* put current linenr to the stack  */                              
            queue record                                                        
            do j = 1 to length(lq)                                              
              if substr(lq,j,1) <= "4A"X & substr(lq,j,1)<>" " then             
                lr=substr(lq,1,j-1)"."substr(lq,j+1,pagewidth-j)                
            end                                                                 
          end                                                                   
          else do                                                               
            /* Zeile  länger als pagewidth */                                   
            /* also aufbrechen             */                                   
            queue ' +++'lnr':'                                                  
            do i = 0 while i < lrecl                                            
              lr = substr(lq,i+1, pagewidth-5)                                  
              if i >= pagewidth-5 then do                                       
               if substr(lq,1,10)='---------+' then                             
                  if substr(lq,11,10)='---------+' then                         
                     if substr(lq,21,10)='---------+' then                      
                        lq = substr(lq,1,pagewidth-5)                           
              end                                                               
              do j = 1 to length(lr)                                            
                if substr(lr,j,1) <= "4A"X & substr(lr,j,1)<>" " then           
                  lr=substr(lr,1,j-1)"."substr(lr,j+1,pagewidth-5-j)            
              end                                                               
              record=' 'lr                                                      
              if substr(lq,i+1,lrecl) /= ' ' then                               
                 queue record                                                   
              i =i+pagewidth-5-1                                                
            end                                                                 
          end                                                                   
       end  /* do lnr = 1 to last */                                            
     end                                                                        
     else do  /* editor /= 1 */                                                 
       'ALLOC F(IN) DA('FULL_DSN') SHR'                                         
       'EXECIO * DISKR IN (FINIS'       /* READ  FILE TO STACK  */              
       'FREE F(IN)'                                                             
     end                                                                        
     /* delete previous dataset */                                              
     rc_p=msg('off')                                                            
     'DEL ('proutdat')'                                                         
     if rc <> 0 then say 'rc1='rc                                               
     /* allocate new dataset */                                                 
     pw=pagewidth-1                                                             
     'ALLOC DA('proutdat') NEW CATALOG SPACE(30,10)',                           
     'BLKSIZE('pw*10') LRECL('pw')'                                             
     rc_p=msg('on')                                                             
     if rc <> 0 then say 'rc2='rc                                               
     /* write the current stack to the file  */                                 
     queue ''                                                                   
     'ALLOC F(OUT) DA('proutdat') OLD'                                          
     'EXECIO * DISKW OUT (FINIS'       /* write stack to the file */            
     'FREE F(OUT)'                                                              
     'DELSTACK'                        /* delete stack */                       
     call email proutdat                                                        
     rc_pr = rc                                                                 
     dsn = proutdat                                                             
     full_dsn = proutdat                                                        
   end                                                                          
   else do                                                                      
     /*-------------------------------------------------------*/                
     /* DSN of currently edited Source has been determined;   */                
     /* print the marked lines via TSO-Print-Command directly */                
     /*-------------------------------------------------------*/                
     call email full_dsn                                                        
     rc_pr = rc                                                                 
   end                                                                          
                                                                                
   if mem /= '' then                                                            
      say 'EMail of Member 'mem' in Dataset 'dsn                                
   else                                                                         
      say 'EMail of Dataset 'dsn                                                
   say 'from line 'first' to 'last' ended with rc='rc_pr                        
   exit(rc_pr)                                                                  
                                                                                
HELP:                                                                           
say '                                                                '          
say 'ISPF/PDF edit macro to email the current member to Lotus Notes  '          
say 'with destination ' userem() ' for user ' userid() '.'                      
say '                                                                '          
say 'To run:                                                         '          
say '1. If you want to email the whole member being edited:          '          
say '   Enter ''mail'' on the COMMAND line and type <ENTER>.          '         
say '                                                                '          
say '2. If you what to email only a part of the member being edited: '          
say '   Use the # line command to mark the range to be emailed (for  '          
say '   example: #120 - 120 lines or a block marked by the ## ...##  '          
say '   command). Type ''mail'' on the COMMAND line to email the     '          
say '   range.                                                       '          
say '                                                                '          
say '3. If you have a linelength > 132 characters the output will    '          
say '   be broken into several lines per input line.                 '          
say '                                                                '          
say '4. Do not send binary files                                     '          
say '                                                                '          
say '5. If you have questions about this command,                    '          
say '   contact Hamburg -4244.                                       '          
Return