Discussion :

[JauB]

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

[Hédhili Jaïdane]

Bonjour.

Si tu as une fichier écran, après l'open, tu l'as dans ATTRIBUTE-DATA.

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.

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.

A+

[JauB]

Bonjour.

Si tu as une fichier écran, après l'open, tu l'as dans ATTRIBUTE-DATA.

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.

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.

A+

Bonjour,
merci pour tes réponses mais en fait je n'ai pas de fichier écran, j'ai juste un PGM COBOL qui remplit un fichier DDS dans lequel j'ai besoin de récupérer l'utilisateur connecté.
sinon pour le CL je ne vois pas comment faire!si tu peux m'expliquer davantage

[Hédhili Jaïdane]

Est ce que ton pgm Cobol est appelé par un pgm Clp à son lancement ?

[Hédhili Jaïdane]

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)

[JauB]

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

[JauB]

ça marche nickel.
merci

[Hédhili Jaïdane]

Ok, bonne continuation. tu m'inquiétais