Beispiel:

DCL VAR(&NBR) TYPE(*DEC) LEN(10)
CRTPF FILE(MYLIB/QSHOUT) RCDLEN(80)
QSH CMD('cd /MyPath;ls >/qsys.lib/mylib.lib/qshout.file/qshout.mbr')
RTVMBRD FILE(QSHOUT) NBRCURRCD(&RCD)
IF (&RCD > 0) DO
/* Aktion hier einfügen */
ENDDO

In der Datei QSHOUT stehen dann sogar die Dateinamen.