Discussion :

[m4k-Hurrican]

Bonjour,

Mon problème est relativement simple... à la base.
Nous avons besoin que des documents générés par les utilisateurs (ici des factures en PDF) soient copiés sur un répertoire externe (sur un NAS) auquel ils n'auront pas droit d'accès ensuite (archivage protégé).
Pour cela nous avons donc besoin d'utiliser QNTC.
Le hic est que ce système utilise les identifiants de l'utilisateur courant.
1) Je ne peux pas créer tous les identifiants à l'identique sur le NAS, ce serait ingérable. Et ils auraient alors les droits en lecture/écriture sur le répertoire (sinon ils ne peuvent pas copier).
2) Si j'autorise un accès global (invité) sur le répertoire, idem cela leur donnerait du coup les droits en lecture/écriture.

La solution, c'est que le programme qui génère le document original puisse utiliser un identifiant différent (spécifique) pour cette phase d'archivage.
Avec QNTC on peut ruser en faisant un SBMJOB associé à cet utilisateur spécifique.
Mais avec un SBMJOB, je n'ai pas un traitement immédiat (essentiel), et pour avoir une valeur de retour, çà devient compliqué.
J'ai bien essayé de décaler tout le code dans un programme indépendant compilé avec USRPRF(*OWNER), mais çà ne change rien, le programme essaie toujours de s'identifier avec l'utilisateur en cours.

Quelqu'un a déjà rencontré ce problème, ou a une idée de la manière par laquelle je pourrais m'en sortir ?
Merci.

[FORMULARY]

Bonjour, et bonne année !
Tu peux peut-être passer par FTP plutôt que QNTC ...

[Natbon]

Bonjour,

Et après utilisation de l'API d'adoption de profile : QWTSETP ou QsySetToProfileHandle ?
https://www.ibm.com/support/knowledg...is/QWTSETP.htm

Un exemple en CL : https://www.ibm.com/support/knowledg...piexushand.htm

Nathanaël

[m4k-Hurrican]

Bonjour Formulary et bonne année également !

En fait, je voudrais éviter FTP (ou plutôt SFTP). Question de complexité et de vitesse.

[m4k-Hurrican]

Bonjour,

Et après utilisation de l'API d'adoption de profile : QWTSETP ou QsySetToProfileHandle ?
https://www.ibm.com/support/knowledg...is/QWTSETP.htm

Un exemple en CL : https://www.ibm.com/support/knowledg...piexushand.htm

Nathanaël

Merci.
Alors çà fonctionne en partie, mais mal.
Explication avec ma procédure créant l'arborescence de répertoire si nécessaire :
Si je lance mon mkdir avec un profil défini sur le NAS (sans changer de profil donc), tout fonctionne parfaitement.
Si je suis sur un autre profil et que j'utilise QWTSETP pour basculer sur l'utilisateur défini sur le NAS, un répertoire est bien créé (progrès !) mais avec un nom bizarroïde.
Exemple au lieu de "BM" le répertoire s'appelle "_7JHBQ~T"
Je suppose qu'en plus de changer de profil, çà foire quelque chose au niveau du ccsid (pour info j'ai changer le ccsid de l'exemple en 1147 au lieu de 37).

[m4k-Hurrican]

Bon, j'ai trouvé ce qui clochait.
J'utilise l'exemple en RPGLE, çà foire.
J'utilise l'exemple en CLLE, çà fonctionne.
Et en fait la différence, est que j'utilise la commande mkdir dans le CLLE, et la procédure mkdir (de QC2LE), dans le RPGLE.
En regardant bien, j'ai compris que le pointeur était foireux. La chaîne était mal terminée, j'avais oublié que c'était une procédure C, et donc le null terminant la chaîne manquait.
Après rectification tout est rentré dans l'ordre, et çà fonctionne bien.

Merci Natbon !

PS : J'ai amélioré le pgm RPGLE en utilisant les indications du CLLE. Par exemple ajoutant la libération des handle à la fin, ou en utilisant *CURRENT pour le profil actuel plutôt qu'en le récupérant dans la DS.