貨輪從上海出發,途經多個港口.數據表D1是從上海到各港口的運價,結構為:KH C 4 (客戶)ZL N 6 2 (重量)SCGK C 4 (上船港口)XCGK C 4 (下船港口)YF N 11 2 (運費)編寫程序P4.PRG,其功能是對D2的每一個記錄,計算運費(重量*運價,但運價要扣除從上海到實際上船港口的部分)并存入相應字段.