If !clalev([F:ZBPC]) Local File BPCUSTOMER[F:ZBPC] : Endif
For[F:ZBPC] where [F:ZBPC]BPCNUM=[M:SOH0]BPCORD
[M:SOH1]ZPANNO=[F:ZBPC]XX1P4PANNO
AFFZO[M:SOH1]ZPANNO
Next
If !clalev([F:ZBPD]) Local File BPDLVCUST[F:ZBPD] : Endif
For[F:ZBPD] where [F:ZBPD]BPCNUM=[M:SOH0]BPCORD AND [F:ZBPD]BPAADD=[M:SOH1]BPAADD
[M:SOH1]ZGSTNO=[F:ZBPD]XX1P4GSTNO
AFFZO[M:SOH1]ZGSTNO
Next