SIMSCRIPT II.5 Programming Language

Programming Language Concepts
Program 3-2.
_______________________________________________________________________________
preamble
normally mode is integer
define SHIPMENT as a 2-dimensional array
define BTOTAL, DTOTAL as 1-dimensional arrays
.
.
end
main
.
.
reserve SHIPMENT(*,*) as 120 by 60
reserve BTOTAL(*) as 120
reserve DTOTAL(*) as 60
.
.
use 6 for output
let page.v = 1
begin report on a new page
printing for DEPOT = 1 to 60
in groups of 24 per page
begin heading
print 1 double line with page.v as follows
Page *
print 1 line as follows
Depot to Base Shipments
skip 1 output line
print 1 double line
with a group of DEPOT fields
suppressing from column 91 thus
DEPOT ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
** **** TOTAL
print 1 line as follows
BASE
end '' HEADING SECTION
for BASE=1 to 120
print 1 double line
with BASE, a group of SHIPMENT(BASE,DEPOT) fields, BTOTAL(BASE)
suppressing from column 92 as follows
** * * * * * * * * * * * * * * * * * * * * * * *
* ***
skip 1 output line
print 1 double line
with a group of DTOTAL(DEPOT) fields, GRAND.TOTAL
suppressing from column 92 as follows
135