|
/* REXX */
/* --------------------------------------------------------- */
/* Auflisten aller Dateien die allokiert sind */
/* call alist */
/* Die gefundenen Dateien werden im stack zurückgegeben. */
/* */
/* ---------------------------------------------------------- */
Version = "Version 0.50 vom 23.12.2002"
Autor = "JD"
Redakteur1 = "NN"
/* Parameter untersuchen */
arg parm1
if parm1 = '?' then do
call help
exit
end
/* Ermitteln von Dateiinformationen */
x=outtrap('ot.',,'concat')
address tso
parm1="'"parm1"'"
'listalc status'
rc_list=rc
j=0
mt.=0
if rc_list = 0 then do
do i=1 to ot.0
if substr(ot.i,1,1) > ' ' then do
if pos('.',ot.i) > 0 then do
j=j+1
mt.0=j
mt.j=ot.i
end
end
end
end
do i=1 to mt.0
if mt.i > "" then
push mt.i
end
exit(rc_list)
help:
say ' '
say 'ISPF/PDF edit macro to list the datasets which are '
say 'currently allocated '
say ' '
say ' If you have questions about this command, '
say ' contact Hamburg -4244. '
return
[ Original von:0.62Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen.
Man kann per Verzeichnistruktur darin navigieren.
Der Code wird farblich markiert angezeigt.
Datei übertragen
]
|
