SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
Program 6-1.
_______________________________________________________________________________
preamble
temporary entities
every JOB has a LABOR.COST, a MATERIAL.COST,
an OVERHEAD, a PROFIT, a RANKING FUNCTION
and belongs to a QUEUE
permanent entities
every MACHINE owns a QUEUE
define QUEUE as a set ranked by high RANKING
end
main
read N.MACHINE
create every MACHINE
until data is ended
do
create a JOB
read LABOR.COST.., MATERIAL.COST.., OVERHEAD.., PROFIT..
and MACHINE..
file JOB in QUEUE(MACHINE)
.
.
remove JOB from QUEUE(MACHINE)
.
.
loop
.
end
routine RANKING given JOB
define JOB as an integer variable
return with (LABOR.COST..*2 + MATERIAL.COST..*3
+ OVERHEAD.. + PROFIT..*4) / 10.0
end
_______________________________________________________________________________
The preamble defines RANKING as a function attribute of JOB and as the attribute by which jobs
are to be ranked when they are filed in a QUEUE set owned by some MACHINE. The routine
RANKING provides a procedure for computing a ranking value. The routine is invoked each time a
JOB is filed. It is used to compute a ranking value for the JOB being filed, and for all the jobs against
which this job's ranking value must be compared in order to insert it properly.
A somewhat more complex use of a function attribute is found in Program 6-2, which uses an attribute
of the first member of a set owned by an entity as the ranking value for that entity's filing in
another set.
274