Quelle XBR.REXX Sprache: REXX

/* 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%

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