--- 在这里,我们找到了要在其他文件中清除的客户编号。首先我们正在读取客户主数据,然后我们在订单历史记录或发票历史记录中查看客户编号是否存在。如果不是,那么我们想从客户主文件以及其他 2 个文件中清除该客户。
但是,在第二个文件中,如果客户编号在营销列中有“A”或“C”,并且是在 2007 年之后,我们不想从任何文件中清除此编号。
所以我编写了代码,在将客户记录写入保存/保留文件并删除之前,它会返回一个标志,是的,可以删除。
C IF PUGFIL = 'Y' AND
C ACENT# <> ACENT#_OLD
c EXSR CHKCUS_SR
c ACFLAG IFEQ 'N'
C WRITE TRCMASRR
c* delete arcmasrr
c CHKCUS_SR BEGSR
c eval ACFLAG = ' '
C ORHKEY SETLL dRCST1
C ORHKEY READE dRCST1
* If the order entity is found, write the rec into VRCSTKBI file
C DOW NOT %EOF(dRCST1)
c if BICOTC <> 'A' AND BICOTC <> 'C'
C WRITE VRCSTKRR
c EVAL ACFLAG = 'N'
c endif
c if bicotc = 'A'
c if BISTPD < 20070101
C WRITE VRCSTKRR
c EVAL ACFLAG = 'N'
c endif
c endif
c if bicotc = 'C'
c if BISTPD < 20070101
C WRITE VRCSTKRR
c EVAL ACFLAG = 'N'
c endif
c endif
c acflag ifeq 'N'
C EXSR CHKADR_SR