Paragraph Name: COUPONS.PRINTED
PA
* LIST OF LOAN PAYMENT COUPONS TO BE PRINTED
* WRITTEN BY BOB STUBBS, DATA MANAGEMENT SERVICES, 29 SEP 98
SP-ASSIGN HS!COUPONS.PRINTED
SORT COUP.REQ BY @ID FULL_NAME NEXT.DUE TOTAL\
NO.COUP FREQ PMT.AMT TOTAL COUNT\
HEADING "LOAN PAYMENT COUPONS QUEUED TO PRINT 'L'AS OF 'T'\
'L'PARAGRAPH NAME: COUPONS.PRINTED 'L'" LPTR
WHICH
CS
Dictionaries within the file COUP.REQ
FULL_NAME
I*
TRANS("CLIENT",CLIENT,1,"X"):", ":TRANS("CLIENT",CLIENT,7,"X")
MEMBER NAME
30L
S
NEXT.DUE
I
EXTRACT(@RECORD,6,1,0)
D2
NEXT DUE
11R
S
NO.COUP
D
2
MD0,
# OF COUP
9R
S
FREQ
D
3
FREQ
4R
S
PMT.AMT
D
4
MD2,
PMT AMT
8R
S
COUNT
I
"1"
MD0,
10R
S
Go to Home Page