QSYS2.IFS_OBJECT_STATISTICS en RPGLE
Posté : mer. 27 janv. 2021, 10:33:53
Bonjour,
J'ai un petit soucis pour reprendre via sql le dir d'un répertoire avec la nouvelle commande :
QSYS2.IFS_OBJECT_STATISTICS
Je fait un CHGJOB CCSID(1147)
Le sqlcode me donne une erreur. -501
Quelqu'un a déjà fait un programme utilisant cette fonction ?
D'avance Merci.
Stéphane
J'ai un petit soucis pour reprendre via sql le dir d'un répertoire avec la nouvelle commande :
QSYS2.IFS_OBJECT_STATISTICS
Je fait un CHGJOB CCSID(1147)
Code : Tout sélectionner
D repertoire s 100a
Exec SQL
DECLARE C1 CURSOR WITHOUT HOLD FOR
SELECT CAST(path_name AS CHAR(100))
FROM TABLE(QSYS2.IFS_OBJECT_STATISTICS('/home/stephane','NO'))
where OBJECT_TYPE <> '*DIR';
exec sql open C1;
exec sql
fetch c1 into :repertoire;
Dow sqlcode = 0;
dsply %subst(repertoire:1:50);
exec sql
fetch c1 into :repertoire;
Enddo;
exec sql close c1;
Quelqu'un a déjà fait un programme utilisant cette fonction ?
D'avance Merci.
Stéphane