| SQL *LIBL en qsh |
|
Vous voulez lancer un qsh qui exécute une requête SQL sans préciser la bibliothèque, vous êtes en environnement SQL et si vous ne le précisez pas, vous allez chercher le fichier dans la bibliothèque qui a le même nom que l'utilisateur en cours. Voici une solution pour contourner ce problème, utilisez une variable d'environnement. Voici un exemple : PGM DCL VAR(&QRY) TYPE(*CHAR) LEN(100) VALUE('DB2 + "SELECT * FROM $MYLIB.QAUOOPT"') DCL VAR(&MYLIB) TYPE(*CHAR) LEN(10) RTVOBJD OBJ(*LIBL/QAUOOPT) OBJTYPE(*FILE) + RTNLIB(&MYLIB) MONMSG CPF0000 EXEC(GOTO FIN) ADDENVVAR ENVVAR(MYLIB) VALUE(&MYLIB) REPLACE(*YES) STRQSH CMD(&QRY) FIN: ENDPGM Il faut ajouter une variable d'environnement, ici mylib en la renseignant avec la bibliothèque qui contient le fichier. |