Quelle XM.REXX Sprache: REXX

/* REXX - mit Cursor markierte Datei wird im Viewer aufgerufen       +
+ Aufruf: mit PF-Taste                                              +
+                                                                   */

Version    = "Version 1.02 vom 23.06.1999"
Autor      = "Helmut Wälder"
Redakteur1 = "Jens Doll"

datei=getdsn()
if pos('(',datei) > 0 then
   datei=substr(datei,1,pos('(',datei)-1)
/* 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 = "VIEW"
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 */
call panel(datei)
rrc = rc
select
  when rrc = 0 then nop; /* Normal completion */
  when rrc = 4 then nop; /* Data not saved */
  when rrc = 14 then
    do
      call message "Dataset already in use:" datei
      exit 4
    end
  when rrc = 16 then
    do
      call message "No members in dataset:" datei
      exit 4
    end
  when rrc = 20 then
    do
      call message "Illegal dataset name:" datei
      exit 4
    end
  otherwise
    do
      call message "unexpected 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 show the memberlist of the dataset on '
say 'cursor position '
say ' '
say 'To run: '
say '1. place the cursor on the dataset '
say ' '
say '2. Press ENTER '
say ' '
say '3. If you have questions about this command, '
say ' contact Hamburg -4244. '
Return

quality70%

¤ 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.