 |
PROCESS_CUST_DATA seq open PAY_FILE； open CUST_M_FILE； {分别打开支付文件和顾客主文件} PROCESS_CNO_GROUP iter until eof: PAY_FILE； {处理顾客号码组} read PAY_FILE； {读支付文件一个记录} PROCESS_CNO； {读顾客主文件一个记录，找老结余} PROCESS_PAY_RECORD iter until end: CNO_GROUP； {处理顾客号码组中每个支付记录} write report line； {写出报告行} compute total payments； {计算总支付额} read PAY_FILE； {读支付文件下一个记录} ��PROCESS_PAY_RECORD end；���� {一位顾客数据处理完} ��COMPUTE_CUST_TOTAL； ������{计算顾客总数} ��COMPUTE_BALANCE seq ������ {计算结余} ���PROCESS_OLD_BALANCE； ���� {处理老结余} ���COMPUTE_NEW_BALANCE；�����{计算新结余) ���write report line；������{写出报告行} ��COMPUTE_BALANCE end；������{计算结余完毕} �PROCESS_CNO_GROUP end； ����� {支付文件处理完成} PROCESS_CUST_DATA end ；������ {Substructure PROCESS_CUST_DATA} �� |