1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
|
OPEN A();
LOOP
BEGIN
FETCH A INTO ListVer;
EXIT WHEN A%NOTFOUND;
lu := lu + 1;
traite := lu;
UPDATE AGR SET VR=ListVer.VR,
PA=ListVer.PA,
VK=ListVer.VK,
SEQ_P =ListVer.SEQ_P ,
SEQ_V=ListVer.SEQ_V,
SIR=ListVer.SIR,
IND=ListVer.IND,
ABREGE=ListVer.ABREGE,
NIVEAU=ListVer.NIVEAU
WHERE VER=ListVer.VER
AND APPL IN ('S','Q')
AND ( ( MOIS_R >= pMOIS AND ANNEE_R = pANNEE)
OR
( ANNEE_R > pANNEE )
)
AND ( (ANNEE_R < 2050)
OR
(ANNEE_R = 2050) AND (MOIS_R < 99)
);
ecrit := ecrit + 1;
IF MOD (ecrit, 10) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
alim_generale.msg (nom2, phase, 'LOOP', 'SG'||SQLCODE, ListVer.vertrag);
END;
END LOOP;
CLOSE A;
lu:=0;
OPEN B();
LOOP
BEGIN
FETCH BINTO ListB;
EXIT WHEN B%NOTFOUND;
lu := lu + 1;
traite := lu;
UPDATE G_AGR SET ABREGE=ListB.ABREGE
WHERE AN=ListB.AN
AND ( ( MOIS_R >= pMOIS AND ANNEE_R = pANNEE)
OR
( ANNEE_R > pANNEE )
)
AND ( (ANNEE_R < 2050)
OR
(ANNEE_R = 2050) AND (MOIS_ < 99)
);
lu := lu + 1;
IF MOD (lu, 100) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
alim_generale.msg (nom2, phase, 'LOOP', 'AB'||SQLCODE, ListB.AN);
END;
END LOOP;
CLOSE B; |
Partager