Exemple de programme utilisant une API de liste s'appuyant sur un User Space. L'objectif est de lister dans un fichier les spools correspondant aux critères de recherche.
Le programme reçoit 7 paramètres qui sont :
* NOMUTI : NOM DE l'UTILISATEUR CHAR 10 *
* NOMOUTQ: NOM DE L'OUTQ CHAR 10 *
* BIBOUTQ: BIBLIOTHEQUE DE L'OUTQ CHAR 10 *
* TYPE : TYPE DE L'ETAT CHAR 10 *
* DATA : Données utilisateur CHAR 10 *
* NOMUSR : NOM DU USER SPACE CHAR 10 *
* BIBUSR : BIBLIOTHEQUE USERSPACE CHAR 10 *
Il écrit dans un fichier nommé ZUSLSPL dont l'ordre SQL de création est ici!
Le programme RPG IV (il est en mode colonné, il a été écrit il y a bien longtemps , désolé) est accessible au format RDi ici ou au format Word ici .
A vous de supprimer les paramètres qui vous sont inutiles.