SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
1 event JOBINIT
2 define MACHINE.NAME as a text variable
3
4 create A JOB
5 let ARRIVAL.TIME.. = TIME.V
6
7 read MACHINE.NAME
8 until MACHINE.NAME = “$”DO
9 create a TASK
10 read TASK.DURATION..
11
12 for each PRODUCTION.CENTER
13 with machine.type(production.center) eq machine.name
14 find the first case
15 if found
16 let TASK.DOER(TASK) = PRODCUTION.CENTER
17 file the task in the ROUTING.SET
18 else
19 write MACHINE.NAME as /, “NO FACILITIES FOR :”, T *
20 destroy the TASK
21 always
22 read MACHINE.NAME
23 loop
24
25 activate this JOB now
26
27 end
This event sets up the job data structure.
The first job arrives at time 0. The job’s required machines and associated processing times are read.
As the machine names are read, they are validated against the production center names. The validated
task is then filed into the job’s routing set.
The JOB process is activated.
First job arrives { JOBINIT 0 0 00
at time 0.
Routing and processing{PRESS 0.5 SAW 1.0 SHAPER 0.5 WELDER 2.0 LATHE 1.0 $ *
times for this job
*
⎧JOBINIT 0 0 00
⎪ SAW 1.0 LATHE 4.00 GRINDER 0.5 SHAPER 2.0$ *
Second and subsequent ⎪JOBINIT 0 0 30
jobs with arrival ⎨ DRILL 1. SHAPER 1.00 LATHE 2.0 SHAPER 2.0 MILL 1.00 $ *
times, routing and ⎪JOBINIT 0 2 30
processing times. ⎩ SAW 1.0 WELDER 1.00 DRILL 0.5 LATHE 1.5 MILL 2.00 $
Data read by JOBINIT
242