LINK DOCUMENTSTEXT TO :$.TXT;
GOTO 300 WHERE :RETVAL <= 0;
LINK STACK8 TO :$.STK;
GOTO 300 WHERE :RETVAL <= 0;
DECLARE C1 CURSOR FOR
SELECT DOC
FROM DOCUMENTS
WHERE TYPE = 'Q'
AND CURDATE BETWEEN :$.FDT AND :$.TDT
AND FINAL = 'Y'
AND DOC > 0;
OPEN C1;
GOTO 300 WHERE :RETVAL <= 0;
LABEL 100;
FETCH C1 INTO :DOC;
GOTO 200 WHERE :RETVAL <= 0;
INSERT INTO DOCUMENTSTEXT
SELECT * FROM DOCUMENTSTEXT ORIG
WHERE DOC IN (:DOC, (-1) * :DOC)
AND TEXT <> ";
LOOP 100;
LABEL 200;
CLOSE C1;
UNLINK DOCUMENTSTEXT;
EXECUTE DELHTML 'DOCUMENTSTEXT', :$.TXT;
LINK DOCUMENTSTEXT TO :$.TXT;
INSERT INTO STACK8 (KEY1, KEY2, TEST_TEXTFIELD)
SELECT DOC, SQL.LINE, TEXT
FROM DOCUMENTSTEXT
WHERE DOC > 0;
LABEL 300;
UNLINK DOCUMENTSTEXT;
UNLINK STACK8;
