Salut tout le monde,
est ce que quelqu'un sait comment on peut récupérer le login de l'utilisateur connecté à partir d'un Programme COBOL?
m'ci d'avance
Salut tout le monde,
est ce que quelqu'un sait comment on peut récupérer le login de l'utilisateur connecté à partir d'un Programme COBOL?
m'ci d'avance
Mes articles, Mon Blog
Rubrique Jasper/iReport :
------- Forum Jasper --------
----- FAQ Jasper/iReport -----
Bonjour.
Si tu as une fichier écran, après l'open, tu l'as dans ATTRIBUTE-DATA.
Si tu n'as pas de session écran acquise, tu passes par un CL appelé ou appelant qui renvoie ou transmet le USER comme paramètre par RTVJOBA et les variables USER ou CURUSER.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 ... SPECIAL-NAMES. ATTRIBUTE-DATA IS ATTRIBUTS DECIMAL-POINT IS COMMA ... 01 WATTRIBUTS. 03 FILLER PIC X(10). 03 FILLER PIC X(10). 03 WUSER PIC X(10). ... ACCEPT WATTRIBUTS FROM ATTRIBUTS.
A+
Mes articles, Mon Blog
Rubrique Jasper/iReport :
------- Forum Jasper --------
----- FAQ Jasper/iReport -----
Voilà les deux cas puisque tu tardes à me répondre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 1°- CLP appelant, CBL appelé : Pgm CLP: PGM DCL &USER *CHAR 10 RTVJOBA CURUSER(&USER) CALL PGMCBL &USER Pgm CBL: LINKAGE SECTION. 01 WUSER PIC X(10). PROCEDURE DIVISION USING WUSER. ... IF WUSER = .... 2°- CBL appelant, CLP appelé : Pgm CBL: WORKING-STORAGE SECTION. 01 WUSER PIC X(10). PROCEDURE DIVISION. CALL PGMCLP USING WUSER. IF WUSER = .... Pgm CLP: PGM PARM(&USER) DCL &USER *CHAR 10 RTVJOBA CURUSER(&USER)
désolé pour le retard.
oui j'ai un CLP qui appelle mon PGM COBOL.
maintenant je comprends bien la démarche
et je t'en remercie beaucoup.
je teste et je vous tiens au courant
Mes articles, Mon Blog
Rubrique Jasper/iReport :
------- Forum Jasper --------
----- FAQ Jasper/iReport -----
ça marche nickel.
merci
Mes articles, Mon Blog
Rubrique Jasper/iReport :
------- Forum Jasper --------
----- FAQ Jasper/iReport -----
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager