2' 'ư>HELPA\NhNN:lCONTINUE n((EXIT&%p=lHALTމPldSTEP 1 4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOgp߉.OdDg|߉D|ŻOdgDModelsStockctl.gpsLFeCFEO<|jL<|jpjE(((((((((({\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4450\plain\f2\fs20 ; GPSS World Sample File - STOCKCTL.GPS, by Gerard F. Cummings \par **************************************************************** \par * * \par * Factory Warehouse and Distributors Inventory * \par * Time unit is one week * \par **************************************************************** \par RMULT 94521 \par INITIAL X1,3400 ;Fact warehouse inventory \par INITIAL X2,2100 ;Fact warehouse order pnt \par INITIAL X3,2300 ;Fact warehouse order qty \par INITIAL X$Stock1,430 ;Dist 1 stock initial \par INITIAL X$Stock2,600 ;Dist 2 stock initial \par INITIAL X$Stock3,1000 ;Dist 3 stock initial \par INITIAL X$EOQ1,115 ;Economic order qty 1 \par INITIAL X$EOQ2,165 ;Economic order qty 2 \par INITIAL X$EOQ3,200 ;Economic order qty 3 \par INITIAL X$Point1,240 ;Order point 1 \par INITIAL X$Point2,430 ;Order point 2 \par INITIAL X$Point3,630 ;Order point 3 \par Demand1 VARIABLE (Normal(2,64,24)) \par Demand2 VARIABLE (Normal(3,128,32)) \par Demand3 VARIABLE (Normal(4,192,48)) \par Total VARIABLE P1+P2+P3 \par Sales TABLE X5,200,200,20 \par Region_1 TABLE X$Stock1,0,40,20 \par Region_2 TABLE X$Stock2,0,40,20 \par Region_3 TABLE X$Stock3,0,40,20 \par Factory TABLE X1,0,200,20 \par **************************************************************** \par * Reordering by Factory Warehouse \par GENERATE ,,,1,2 ;Order point xact \par Backhere TEST LE X1,X2 ;Factory order point? \par ADVANCE 4 ;Lead time is 4 weeks \par SAVEVALUE 1+,X3 ;Inv increase by order qty \par TRANSFER ,Backhere ;Cycle xact around \par **************************************************************** \par * Reordering at Each of the Distributors \par GENERATE 1,,,1 ;First distributor \par Distr1 TEST L X$Stock1,X$Point1 ;Order point reached? \par ADVANCE 1 ;Lead time = 1 week \par SAVEVALUE 1-,X$EOQ1 ;Warehouse supplies \par SAVEVALUE Stock1+,X$EOQ1 ;Distr invent increased \par TRANSFER ,Distr1 ;Xact finished \par GENERATE 1,,,1 ;Second distributor \par Distr2 TEST L X$Stock2,X$Point2 ;Order point reached \par ADVANCE 1 ;Lead time = 1 week \par SAVEVALUE 1-,X$EOQ2 ;Warehouse supplies \par SAVEVALUE Stock2+,X$EOQ2 ;Inventory increased \par TRANSFER ,Distr2 ;Cycle xact around \par GENERATE 1,,,1 ;Third distributor \par Distr3 TEST L X$Stock3,X$Point3 ;Order point reached? \par ADVANCE 1 ;Lead time = 1 week \par SAVEVALUE 1-,X$EOQ3 ;Warehouse supplies EOQ \par SAVEVALUE Stock3+,X$EOQ3 ;Distr invent increased \par TRANSFER ,Distr3 ;Cycle xact around \par **************************************************************** \par * Weekly Demand at Each Distributor \par GENERATE 1,,,,3 ;Priority weekly demand \par ASSIGN 1,V$Demand1 ;P1 = Demand distr one \par ASSIGN 2,V$Demand2 ;P2 = Demand distr two \par ASSIGN 3,V$Demand3 ;P3 = Demand distr three \par SAVEVALUE Stock1-,P1 ;Distr 1 Weeklly demand \par SAVEVALUE Stock2-,P2 ;Distr 2 Weekly demand \par SAVEVALUE Stock3-,P3 ;Distr 3 Weekly demand \par SAVEVALUE 5+,V$Total ;Accumulate total demand \par TABULATE Region_1 ;Record invent distr 1 \par TABULATE Region_2 ;Record invent distr 2 \par TABULATE Region_3 ;Record invent distr 3 \par TABULATE Factory ;Factory warehouse invent \par TERMINATE 1 \par **************************************************************** \par * Monthly Recording of Sales \par GENERATE 4,,,,1 ;Low priority xact monthly \par TABULATE Sales \par SAVEVALUE 5,0 ;Reset sales=0 each month \par TERMINATE ;Xact finished \par **************************************************************** \par \par \par }