|
/* REXX */
/* --------------------------------------------------------- */
/* Auflisten aller Dateien des Patterns an parm1 */
/* call dlist(pattern) */
/* Die gefundenen Dateien werden 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"'"
'listcat entries('parm1')'
rc_list=rc
j=0
mt.=0
if rc_list = 0 then do
do i=1 to ot.0
if substr(ot.i,1,7)='NONVSAM' then do
j=j+1
mt.0=j
mt.j=substr(ot.i,17)
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 given by a '
say 'pattern (only one wildcard) in parm1 '
say ' '
say 'parm 1: '
say ' The dataset, which also can contain wildcards. '
say ' '
say ' If you have questions about this command, '
say ' contact Hamburg -4244. '
return
¤ Dauer der Verarbeitung: 0.19 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
