#HASH-OFF
NEWINTERPRETER
// @mode:strict
//
// Fixture report: iterates orders, emits a formatted line for each active one.
//

INCLUDE COMMON_HELPERS.TXT

VAR sOrderId  : STRING
VAR sStatus   : STRING
VAR nAmount   : LONG

FUNCTION summariseOrder(sId : STRING, nValue : LONG) : STRING
    VAR zTotal : LONG
    SET zTotal = nValue
    RETURN formatOrderLine(sId, zTotal)
ENDFUNCTION

IF sStatus = "A"
    WRITE summariseOrder(sOrderId, nAmount)
ENDIF
