DECLARE FILL5650 CURSOR FOR
SELECT DOCUMENTS.DOCNO, DOCUMENTS.BOOKNUM, DOCUMENTS.CURDATE,
ORDERS.ORDNAME, ORDERS.REFERENCE, DOCUMENTSA.MWEIGHT, DOCSTATS5.STATDES,
PACK.PACKCODE, PACK.PACKNAME, DOCPACK.DOC, DOCUMENTS.DOC, ORDERS.ORD,
DOCPACK.PACK, DOCUMENTS.PACK, DOCUMENTS5.CUST, DOCUMENTS.DOC,
DOCPACK.DOC, DOCUMENTS.DOC, CUSTPART5.SPIR_PACKQUANT, TRANSORDER5.PART,
TRANSORDER5.TQUANT, DOCUMENTSA5.ASSEMBLYSTATUS, DOCUMENTS.TYPE,
DOCUMENTS.SHIPPER, 0
FROM DOCUMENTSA ?, DOCUMENTSA DOCUMENTSA5 , TRANSORDER TRANSORDER5
, CUSTPART CUSTPART5 ?, DOCUMENTS DOCUMENTS5 , DOCPACK , PACK ,
DOCSTATS DOCSTATS5 , ORDERS , DOCUMENTS
WHERE (DOCPACK.DOC = 0 + :$$.DOC)
AND DOCUMENTS.DOC = DOCUMENTSA.DOC
AND ORDERS.ORD = DOCUMENTS.ORD
AND DOCPACK.PACK = DOCUMENTS.DOC
AND DOCUMENTS.PACK = PACK.PACK
AND DOCUMENTS5.CUST = CUSTPART5.CUST
AND DOCUMENTS.DOC = TRANSORDER5.DOC
AND DOCPACK.DOC = DOCUMENTS5.DOC
AND DOCUMENTS.DOC = DOCUMENTSA5.DOC
AND TRANSORDER5.PART = CUSTPART5.PART
AND DOCUMENTSA5.ASSEMBLYSTATUS = DOCSTATS5.DOCSTAT
AND (DOCUMENTS.TYPE = 'A')
ORDER BY 3 ASC ,1 ASC
;
