Quelle ZEDC.REXX Sprache: REXX

/* REXX */
/*   Editieren Dataset; Cursor muß auf DSN gesetzt werden           */
/*   -----------------------------------------------------          */
'ISREDIT MACRO (parm1)'

   'isredit (dsn) = DATASET'     /* name of current dataset  */
   'isredit (mem) = MEMBER'      /* name of current member   */

/* Set some variables :  */
   user     = userid()

   copy_1   = 'ZVS.IGF.COPY'     /* Test-Library for Copy-Members */
   copy_2   = 'MQM.SYS.KVS.SCSQCOBC'   /* MQ-Copies               */
   copy_3   = ''                       /* IGF-Copies              */
   maclib   = ''                 /* Assembler-Macro-Library       */
   alblib   = ''                 /* Assembler-Albingia Macros     */

   callcop1 = 'ZVS.ALL.COBOL'    /* Test-Library for called pgms  */
   callcop2 = 'XTRNCLS.T.COBOL'
                                 /* Work-Library for called pgms  */
address ispexec
'isredit (,col) = CURSOR'

parm1 = translate(parm1)
if parm1 = 'T' then
   trace ?R

if col = 0 then
   do
     zedsmsg = 'Invalid cursor position'
     zedlmsg = 'Please, set the cursor in the Edit Area'
     'setmsg msg(isrz001)'
     exit(12)
   end

'isredit (maxcol) = DATA_WIDTH'
'isredit (line) = LINE .ZCSR'
i = 0

/* An den Anfang des Names gehen, bis SPACE, Hochkomma, Komma   */
/* Punkt oder '=' gefunden */
do i = col  to 1 by -1 ,
   while  ( substr(line, i, 1) /= " " ) & ,
          ( substr(line, i, 1) /= "'" ) & ,
          ( substr(line, i, 1) /= "," ) & ,
          ( substr(line, i, 1) /= "." ) & ,
          ( substr(line, i, 1) /= "=" )
    nop
end

/* Wenn Name am linken Rand steht, war Auswahl falsch */
if i = 1 then
   do
     zedsmsg = 'Invalid select'
     msg = 'Please, set the cursor on the Copy-Member to be edited'
     zedlmsg = msg
     'setmsg msg(isrz001)'
     exit(12)
   end

/* set index on first character of name  */
col_anf = i + 1

/* Ausgehend von Spalte col den nä. space, das nä. Hochkomma,   */
/* den nä. Punkt oder das nä. Komma suchen                      */
do i = col_anf  to maxcol by 1 ,
   while  ( substr(line, i, 1) /= ' ' ) & ,
          ( substr(line, i, 1) /= "'" ) & ,
          ( substr(line, i, 1) /= '.' ) & ,
          ( substr(line, i, 1) /= ',' )
    nop
end

/* set index on last  character of name  */
col_end = i - 1

/* compute length of name and evaluate name   */
col_len = col_end -col_anf + 1
name    = substr(line, col_anf, col_len)

'control errors return'

/* Wenn *COPY-Zeile, dann direkt Copy-Lib scannen */
copy_lit = substr(line, 1, 5)
if copy_lit ^= '*COPY' then ,
do
  /* Try to edit member 'name' in current PO-Dataset  */
  dsn_edit = "'" !! dsn !! "(" !! name !! ")'"
  interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
end

if dsn_vorh = 'OK' then
   'edit dataset('dsn_edit')'
else
   do
     /* try with  copy_1          */
     dsn_edit = "'" !! copy_1 !! "(" !! name !! ")'"
     interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
     if dsn_vorh = 'OK' then
        'edit dataset('dsn_edit')'
     else
        do
         /* try with copy_2           */
         dsn_edit = "'" !! copy_2 !! "(" !! name !! ")'"
         interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
         if dsn_vorh = 'OK' then
            'edit dataset('dsn_edit')'
         else
          do
           /* try with copy_3           */
           dsn_edit = "'" !! copy_3 !! "(" !! name !! ")'"
           interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
           if dsn_vorh = 'OK' then
              'edit dataset('dsn_edit')'
           else
            do
              /* try with 'GROPSYS.PROGRAMS.SOURCE'  */
              dsn_edit = "'" !! callcop2 !! "(" !! name !! ")'"
              interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
              if dsn_vorh = 'OK' then
                 'edit dataset('dsn_edit')'
              else
                 do
                   /* try with 'SYS1.MACLIB' */
                   dsn_edit = "'" !! maclib !! "(" !! name !! ")'"
                   interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
                   if dsn_vorh = 'OK' then
                      'edit dataset('dsn_edit')'
                   else
                      do
                        /* try with 'SYS1.ALBMAC' */
                        dsn_edit = ,
                               "'" !! alblib !! "(" !! name !! ")'"
                        interpret 'dsn_vorh = sysdsn("'dsn_edit'")'
                        if dsn_vorh = 'OK' then
                           'edit dataset('dsn_edit')'
                        else
                           do
                             zedsmsg = 'Member not found'
                             zedlmsg = 'Member 'name' was not',
                                       'found in any',
                                       'CALL-, MAC- or COPY-library'
                             'setmsg msg(isrz001)'
                             exit(24)
                           end  /* Dataset ist nicht vorhanden */
                      end  /* try with 'SYS1.ALBMAC' */
                 end  /* try with 'SYS1.MACLIB' */
            end  /* try with 'GROPSYS.PROGRAMS.SOURCE' */
          end  /* try with copy_3        */
        end  /* try with copy_2        */
   end  /* try with copy_1           */


/* Return-Code after leaving the edited source */
end_edc:
select
  when rc = 0 then
    do
      zedsmsg = 'Data saved'
      zedlmsg = 'Data was saved in Dataset 'dsn_edit
      'setmsg msg(isrz000)'
    end
  when rc = 4 then
    do
      zedsmsg = 'Data not saved'
      zedlmsg = 'Data in Dataset 'dsn_edit' was not saved'
      'setmsg msg(isrz000)'
    end
  when rc = 14 then
    do
      zedsmsg = 'Dataset in use'
      zedlmsg = 'Dataset 'dsn_edit' is in use by another job or user'
      'setmsg msg(isrz001)'
    end
  when rc = 16 then
    do
      zedsmsg = 'Empty Dataset'
      zedlmsg = 'Dataset 'dsn_edit' is empty or member not found'
      'setmsg msg(isrz001)'
    end
  otherwise
    do
      zedsmsg = 'Empty Dataset'
      zedlmsg = 'Dataset 'dsn_edit' is empty or member not found'
      'setmsg msg(isrz001)'
    end
end

exit(rc)

quality59%

¤ Dauer der Verarbeitung: 0.18 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.