The following common library program: FOC1080B creates a hold file with address data for students paid in the prior business. The file is created by a match between the ST file, which contains address information, and the PH file, which contains students paid in the prior business month. The hold file (PERMLRG) is formatted as a lotus file for downloading.
EX PH
EX ST
-*
MATCH FILE st
PRINT ST:FRSTNAME ST:LASTNAME ST:STREET ST:CTYST ST:ZIP
BY st:SSA as 'ssa'
RUN
-*
FILE ph
print ph:wname
by ph:SSA AS 'SSA'
IF PH:CLASS EQ '1870' OR '1871' OR '1872' OR '1874'
or '1875' OR '1876' OR '1868' or '0100'
AFTER MATCH HOLD OLD-AND-NEW
END
-*
define file hold
flag/a3 = if ssa ne last ssa then 'yes' else 'no';
end
-*
table file hold
print st:frstname
st:lastname
ST:STREET
ST:CTYST
ST:ZIP
bY ssa
if flag eq yes
on table hold as permlrg format lotus
END
The following is only an excerpt from the actual file:
"000-00-0001", "KIM ", "monkey ", "123 MAIN STREET ", "EUREKA, CA ", "90000"
"000-00-0002", "mia ", "stork ", "333 baker ave ", "davis, CA ", "90000"
"000-00-0003", "bob ", "leopard ", "456 f STREET ", "dalton, CA ", "90000"