SSL MAIL.REXX Interaktion und
PortierbarkeitREXX

/* 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 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 . '
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

quality71%

¤ Dauer der Verarbeitung: 0.2 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.

SSL MAIL.REXX Interaktion und PortierbarkeitREXX

¤ Dauer der Verarbeitung: 0.2 Sekunden (vorverarbeitet) ¤

Haftungshinweis

Bemerkung:

SSL MAIL.REXX Interaktion und
PortierbarkeitREXX