POST-FIELD סורר

/*
*
* Procedure NOVA_VENDAPPDEL_L : Delete Vendor's Approval - Line
*
*/

POS ENAME TY TITLE
--- ---------------- - --------------------------------
5 INPUTF B Parameter Input
Parameters
----------
PAR: FILE
10 SQLI C Executing query.
Parameters
----------
GEN: FILE
PAR: FILE
Query
-----
#line 1 NOVA_VENDAPPDEL_L/10---
LINK PORDERITEMS TO :NOVA_VENDAPPDEL_L.PAR;
ERRMSG 1 WHERE :RETVAL <= 0;
:ORDI = :ORD = 0;
:CHANGEFLAG = '\0';
SELECT PORDERS.ORD, PORDSTATS.CHANGEFLAG, PORDSTATS.STATDES,
PORDERITEMS.ORDI, PORDERITEMS.NOVA_DUEDATECOMM
INTO :ORD, :CHANGEFLAG, :PAR1, :ORDI, :DUEDATECOMM
FROM PORDERS, PORDSTATS, PORDERITEMS
WHERE PORDERS.ORD 0
AND PORDERS.PORDSTAT = PORDSTATS.PORDSTAT
AND PORDERITEMS.ORD = PORDERS.ORD
;
UNLINK PORDERITEMS
;
ERRMSG 1 WHERE :ORD = 0;
ERRMSG 2 WHERE :CHANGEFLAG 'Y'
;
LINK GENERALLOAD TO :NOVA_VENDAPPDEL_L.GEN;
ERRMSG 1 WHERE :RETVAL <= 0;
/* Title */
INSERT INTO GENERALLOAD(LINE, RECORDTYPE, INT1)
VALUES (1, '1', :ORD)
;
/* Line */
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1, CHAR1, CHAR2, TEXT,
INT3)
VALUES (2, '2', :ORDI, '\0', '\0', :DUEDATECOMM, 0)
;
UNLINK GENERALLOAD
;
EXECUTE INTERFACE 'NOVA_VENDAPPDEL', SQL.TMPFILE, '-L', :NOVA_VENDAPPDEL_L.GEN;
ERRMSG 3 FROM ERRMSGS
WHERE TYPE = 'i'
AND USER = SQL.USER
;
ERRMSG 4;