The
second
sample
frogram
is
designed
to
demonstrate
the
use
of
the
TPS
Report
Pro-
gram
Generator~
In
this
sample
program,
a
commission
report
is
to
be
prepared
from
invoice
sum-
mary
cards
(Figure
26).
The
cards
are
in
sequence
by
salesman
number.
The
commis-
sion
amount
is
calculated
on
the
invoice
amount.
The
percentage
of
commission
depends
on
the
invoice
amount:
10~
commission
for
invoice
amounts
up
to
$10,,000.
12%
commission
for
invoice
amounts
abo~e
$10,000.
DESCRIPTION
OF
THE
SA~PLE
DECK
sample
deck
2
consists
of
three
card
groups,
with
the
following
identifications:
Columns
lJ_l~12
~~§£fi£1iQn
R 9 0
Job
control
cards
for
compile-
and-execute
function
and
output
of
object
program
in
cards.
R 9
BPG
control
card
and
source
pro-
gram
in
RPG
language
(identified
by
the
letters
sica
in
cols.
76-79)
•
Data
cards
'rhe
commission
is
calculat
ed
for
each
card
read.
The
result
is
printed,
together
with
other
data
from
the
card.
The
total
commission
amount
for
each
salesman
is
accumulated
and
printed.
The
total
amount
of
commission
is
accumulated
and
printed
at
the
end
of
the
report.
In
addition,
card
groups
R90
and
R91
contain
a 2
in
column
76
(identification
for
TPS)
and
consecutive
card
numbers
in
c~lumns
77-79,
beginning
with
001
for
each
group.
Figures
27-29
show
the
card
groups
of
Sample
Program
2.
I
c
Net
~
Invoice
Oate
customer
Gross
OisCOlIN
Invoice
Sales
~
No.
No.
Amari
Man
000000
000000
0000000
00000000
.000
...
00000000
•
000
00000000100
••••••
0000.0
••
0.0000.0
•
,
11'11
I I I " •
~
liN"""".
,,"nnHII'"
""
...
".11
••
I1
•.•••
a
u
....
'
••
MIIUUM
••
PMM
••
aaMa.p
••
""nnnn"u",,.
"",
,
,
, , , , , , , , , , , ,
, , , , ,
, , , , , , , , , ,
""""
""
1 1 1 , 1 , , , , 1 , , " , , , , , , , , , , , , , , , , , , , ,
'22222
2 n 222
2222222
22222222
2222222
22222222
2222
2 2 2 2 2 2 22 2 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
n33n
n))))
"33'"
"33""
""'"
""33"
""
, " ,
33
JJ
J J
JJ
" J J J J , J J J J J J J J ) J J J " J
H""
"""
"'"''
""""
"'"''
"''''''
""
"""""""""""""""""
BSSH
SSSSSS SSSSSSS
SSSSSSSS SSSSSSS
SSBSSSS
SHS
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
666666 666666
6666666
66666666
6666666
66666666
6666
66'666666666666666666666666666666&
777777 777777
7777777
77777777
7177777
77777777
7777
7 7 7 7 7
77
7 7 7 7 7 7 7 7 7
77
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
388888
888888
8888888
88888888
8888888
88888888
8888
8888888888888888888888888888888888
"II
I'
""
"""
"UIIII"""
1111111111111111
111.111111
)I
i"IIIIHII.IIU
~
..
u
..
,
..
qll~"UMUII"M
••
P"UMD.".nn""n"""""".
"'9999
'99'99
9999999
99999999
9999999
99999'"
9999
, , 9 9 , 9
99
9
99
9 ,
99
, , 9 9 9 9 , 9 , 9 , 9
99
, 9 9 t ,
Figure
26.
Input
Card
for
Sales
Commission
Report
80
Systemj360
Model
20 TPS
Operating
Procedures
To Next Page
Loading...
