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

INCLUDE COMMON_HELPERS.TXT

VAR zOrderId  : STRING
VAR sStatus   : SHORT
VAR nAmount   : LONG
VAR zStr      : STRING

FUNCTION summariseOrder(pzOrderId : STRING, nValue : LONG) : STRING
  VAR lTotal : LONG
  SET lTotal = nValue
  RETURN formatOrderLine(pzOrderId, lTotal)
ENDFUNCTION

zStr = summariseOrder("000", 100)
IF zStr = "A"
  WRITE summariseOrder(zOrderId, nAmount)
  >> summariseOrder(zOrderId, nAmount)
ENDIF
