select database prc756;

#
# set update code where update code=2021 and inspection date year is 21
#
update noprompt prc h93=2
where h93=2021 and l75b matches "*/*/21*" ;

#
# create list where update code=2021 and inspection date year is 21
#
unload ascii l75b h00 h01 to "list.csv" 
where h93=2021 and l75b matches "*/*/21*" ;

#
# create list where update code=2021
#
unload ascii l02 to "list.csv" where h93=2021;

#
# create list where not prc record exists and inspection year=2021
#
unload ascii r02 r00 r01 to "list.csv" 
where h00=" " and r19=2021 joining r02=optional l02;

#
# change update code to equal inspection year where year=2021
#
update noprompt prc h93=r19 where r19=2021 joining l02=r02;

#
# create list where update code=2021
#
unload ascii r19 to "list.csv" where r19=2021;