Afficher un répertoire

droite jusqu’à  une longueur
de 50 caractères ou plus pour que le
programme fonctionne.
Le programme démarre avec des
directives copy pour les membres copy
STDTYPH et STMIOH (en A, figure 1).
Toutes les directives copy dans cet article
supposent que les membres copy
se trouvent dans un fichier source appelé
ITOOLKITH (vous devez changer
ce nom pour l’adapter à  votre système).
Les cartes D (en B) définissent
les variables destinées à  contenir un
nom de dossier, un handle de fichier et
un nom de chemin.
Les cartes C (en C) définissent le
paramètre dossier pour le programme.
En D, la logique du programme démarre
en utilisant openStreamDir pour
ouvrir le répertoire. Les entrées du répertoire sont lues par
nextStream DirEntry et transférées dans la structure de données
streamDirEntry définie en STMIOH puis affichées (en
E). Les entrées du répertoire sont similaires à  celles que renvoient
les commandes du PC : la première entrée contient un
point (.), la deuxième a deux points (..) et les entrées suivantes
contiennent le contenu du répertoire. Finalement, le
programme utilise closeStreamDir pour fermer le répertoire
(en F).
Dans le membre copy STMIOH, la structure de données
streamDir Entry définit uniquement la longueur et le chemin
d’une entrée. Pour extraire des informations à  propos d’une
entrée, on peut utiliser le prototype getStreamInfo dans le
membre copy:

if getStreamInfo(
   %trim( folder ) + '/' +
   %subst( streamDirEntry.path: 1 ;
      streamDirEntry.len ):
   streamInfo ) <> streamError;
   ...
endif;

La structure de données streamInfo inclut le type d’entrée
: *DIR, *STMF, ou un type d’objet iSeries. A noter
que les heures définies dans la structure de données contiennent
des dates représentant le nombre de secondes depuis
le 1er janvier 1970.