|
/* 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
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
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.
|
