קוד של לולאה רב חברתית

DECLARE ENV CURSOR FOR
SELECT ENVIRONMENT.DNAME
FROM ENVIRONMENT, ENVIRONMENTA
WHERE ENVIRONMENT.DNAME = ENVIRONMENTA.DNAME
AND ENVIRONMENT.DNAME = EMZ_ENVIRONMENT.DNAME
AND ENVIRONMENTA.DEMOFLAG <> 'Y'
AND ENVIRONMENTA.ACTIVE = 'Y' ;
OPEN ENV ;
GOTO 30010 WHERE :RETVAL <= 0 ;
LABEL 30020
;
:GLOBAL.DNAME = " ;
FETCH ENV INTO :GLOBAL.DNAME;
GOTO 30030 WHERE :RETVAL <= 0 ;
/**/
ENV :GLOBAL.DNAME ;
LOOP 30020 ;
LABEL 30030;
CLOSE ENV ;
LABEL 30010 ;