将该程序补充完整。
职工数据表如图所示，要求对所有职工的基本工资进行修改：其中，教授、副教授和高级工程师加400元，讲师和工程师加200元，助教和助理工程师加100元。并将每位职工的姓名、职称、所加的工资和基本工资显示出来。
Use 职工
scan
Do case
Case ’教授’$职称or职称=’高级工程师’
Sjgz=400
Case 职称=’讲师’ or 职称=’工程师’
Sjgz=200
otherwise
Sjgz=100
Endcase
Replace 基本工资 with 基本工资+sjgz
Disp 姓名,职称,sjgz基本工资
ENDSCAN
Use