|
/* Versuch, alle bei ISPF allokierten Dateien zu finden */
/* von ISP16200 bis ISP18299 */
say "searching for dataset..."
pvsname=''
do i=16200 to 18299
ddname="isp"i
rc_d=listdsi(ddname "FILE")
if rc_d = 0 then do
nam=sysdsname
dso=sysdsorg
if substr(nam,1,3)='PVS' & sysdsorg='PS' then do
say "Print "sysdsname " ?"
pvsname=sysdsname
leave
end
end
end
parm1="'"pvsname"'"
¤ Dauer der Verarbeitung: 0.1 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.
|
