sayo

:CUST = :$.CUST;[left]
SELECT (OBLIGOCUST = 0 ? (PAYCUST = 0 ? CUST : PAYCUST) :
OBLIGOCUST) INTO :OBLIGOCUST
FROM CUSTOMERS WHERE CUST = :CUST;
SELECT (OBLIGOCUST = 0 ? (PAYCUST = 0 ? CUST : PAYCUST) :
OBLIGOCUST) INTO :OBLIGOCUST
FROM CUSTOMERS WHERE CUST = :OBLIGOCUST ;
EXECUTE OBLIGO 1,0+ :OBLIGOCUST;
GOTO 100 WHERE NOT EXISTS(SELECT 'X' FROM OBLIGO
WHERE CUST = :CUST
AND MAX_OBLIGO 0.0);
SELECT OB.OBLIGO – OB.MAX_OBLIGO INTO :$.E160_OBLIGODEV
FROM OBLIGO OB, ORDSTATUS OS, ORDERS O
WHERE OB.CUST = :CUST
AND OB.CUST = O.CUST
AND O.ORDSTATUS = OS.ORDSTATUS
AND OS.ORDSTATUS = -1;
SELECT (OB.OBLIGO – OB.MAX_OBLIGO) / OB.MAX_OBLIGO *
100.0 INTO :$.E160_OBLIGOPERCEN
FROM OBLIGO OB, ORDSTATUS OS, ORDERS O
WHERE OB.CUST = :CUST
AND OB.CUST = O.CUST
AND O.ORDSTATUS = OS.ORDSTATUS
AND OS.ORDSTATUS = -1;
LABEL 100;