2' 'ư>HELPNA\NhNN:lCONTINUE n((PAhEXIT&%p=lHALTމPlhdSTEP 1v4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UXT߉WXOgp߉.OdAg|߉A|ŻOdgAModelsPeriodic.gpsLFeCFEOHLhLHLh{hE(((((((((({\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 - PERIODIC.GPS, by Gerard F. Cummings \par *********************************************************************** \par * * \par * * \par * Periodic Review Inventory Model * \par * Time units are in days * \par *********************************************************************** \par * Definitions of non block entities \par RMULT 39941 \par Stock STORAGE 10000 ;Warehouse can hold 10000 \par Stock TABLE S$Stock,100,100,20 ;Table for inventory amts \par Orderqty VARIABLE Target-S$Stock ;Order quantity \par Demand VARIABLE RN1@24+40 ;Daily demand \par Target EQU 1000 ;Initial stock level \par Reorder EQU 800 ;Reorder point \par *********************************************************************** \par * The reorder process \par GENERATE 5,,,,1 ;Review xact, Priority=1 \par TEST L S$Stock,Reorder,Skip ;Is stock < Reorderpt \par ASSIGN 2,V$Orderqty ;Parameter 2=Order quantity \par Custwait ADVANCE 5 ;Lead time is 5 days \par ENTER Stock,P2 ;Stock increases by P2 \par Skip TERMINATE ;Ordering xact is finished \par *********************************************************************** \par * The daily demand decrements quantity on hand \par GENERATE 1 ;Daily demand transaction \par ASSIGN 1,V$Demand ;Parameter 1(P1)=daily demand \par TABULATE Stock ;Record daily stock \par TEST GE S$Stock,P1,Stockout ;Can order be filled \par LEAVE Stock,P1 ;Remove demand from stock \par TERMINATE 1 ;Daily timer \par Stockout TERMINATE 1 ;Daily timer \par *********************************************************************** \par * Initialize the inventory \par GENERATE ,,,1,10 ;Set initial stock \par ENTER Stock,Target ;Set init stock level=target \par TERMINATE ;Xact is terminated \par *********************************************************************** \par \par \par }