Pour traduction les codes CURSEUR en PGSQL

**wangying** · 30/01/2013, 15h51

Bonjour à tous,

Je suis en train de traduire les codes de PLSQL vers PGSQL, pour le curseur, par exemple,

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
CASE ContactListe(liCompt).x_person_deleted
          WHEN '0' THEN
            CASE ContactListe(liCompt).X_DOMAINE_MSG
            WHEN NULL THEN
              UTL_FILE.PUT_LINE(Fichier_Log,'DGI-INTMESS-ERR0017 L''utilisateur avec le code DGI '||ContactListe(liCompt).x_dgi||' n''a pas de messagerie');
            ELSE
              CASE ContactListe(liCompt).X_SYSTEME_MSG
                WHEN 1 THEN
                  OPEN CurSite FOR select org_id from organization where ACCOUNT_NUMBER=ContactListe(liCompt).X_REP_SERVEUR;
                  FETCH CurSite into c_objid;
                  CASE CurSite%ROWCOUNT
                    WHEN 0 THEN
                      select organization_org_id_seq.nextval into new_seq from dual;
                      MESSAGERIE.CREATE_SITE(new_seq,ContactListe(liCompt).X_REP_SERVEUR, 1,Fichier_Log);
                      MESSAGERIE.CREATE_ROLE(new_seq,ContactListe(liCompt).x_dgi,ContactListe(liCompt).X_REP_SERVEUR,Fichier_Log);
                    WHEN 1 THEN
                      MESSAGERIE.CREATE_ROLE(c_objid,ContactListe(liCompt).x_dgi,ContactListe(liCompt).X_REP_SERVEUR,Fichier_Log);
                    ELSE
                      UTL_FILE.PUT_LINE(Fichier_Log,'DGI-INTMESS-ERR0001 Recherche de site : plusieurs trouvés pour le code Sages '||ContactListe(liCompt).X_REP_SERVEUR);
--                    RETURN;
                  END CASE;
                  CLOSE CurSite;