SIMSCRIPT II.5 Programming Language

Modelling Concepts
if STOCK.LEVEL.. > QUANTITY
subtract QUANTITY from STOCK.LEVEL..
else
add (QUANTITY - STOCK.LEVEL..) to DUE.OUT..
always
if (STOCK.LEVEL.. + DUE.IN..) < REORDER.POINT..
let ORDER=CONTROL.LEVEL..+DUE.OUT..-DUE.IN..-
STOCK.LEVEL..
add ORDER to DUE.IN..
print 1 line with ORDER, ITEM, ITEM.NAME.. thus
ORDER **** UNITS OF STOCK NO. ** DESCR. ************
always
else
'' RECEPTION
subtract QUANTITY from DUE.IN..
if DUE.OUT.. > QUANTITY
subtract QUANTITY from DUE.OUT..
else
add (QUANTITY - DUE.OUT..) to STOCK.LEVEL..
let DUE.OUT.. = 0
always
loop
list attributes of each ITEM
end
_______________________________________________________________________________
As an exercise, this model may be elaborated on to identify each customer by amending the input
data and generating a shipment notice for each order, keeping track of backorders for customers,
and shipping backorders according to some rational policy.
177