The adding of Locations on D207 is not recorded on table TIDIUPLD. Deletions of Locations via D207 are recorded.
Suggest making change in tigiupld.csm so that when user uses D207 option 6 to nav to I102, the call to tigiupld.csm first wipes out data and then rebuilds it.
Suggested code change to tigiupld.csm:
******************************************************************
** 2A00-GET-LOCS. **
** CHECKS IF FACI, WHSE, 'C', CAT-ID, Q-LEVEL FOUND. IF FOUND **
** RETURN. OTHERWISE BACKGROUND. **
** **
******************************************************************
2A00-GET-LOCS.
UNSTRING CURSOR-ARG-LOWER-CCB
INTO TBL-ID-IUPLD
CATALOG-ID-ORG
Q-LEVEL-ORG.
*Begin custom
* We've arrived here from D207 option 6.
* Delete the upload data to force a rebuild since
* D207 does not record all changes.
MOVE ZERO TO SQLCODE.
* EXEC SQL
* SELECT
* 1
* INTO
* :NUMBER-FOUND
* FROM TIDIUPLD
* WHERE
* (FACILITY =
* :FACILITY-IUPLD) AND
* (WHSE =
* :WHSE-IUPLD) AND
* (LIST_TYPE =
* :LIST-TYPE-IUPLD) AND
* (CATALOG_ID =
* :CATALOG-ID-ORG) AND
* (Q_LEVEL =
* :Q-LEVEL-ORG)
* END-EXEC.
* IF (SQLCODE NOT = ZERO AND +100 AND -811)
* PERFORM E000-SQLCODE THRU E000-EXIT
* END-IF.
* IF SQLCODE = ZERO OR -811
* GO TO 2A00-EXIT
* END-IF.
EXEC SQL
DELETE FROM TIDIUPLD
WHERE FACILITY = :FACILITY-IUPLD
AND WHSE = :WHSE-IUPLD
AND LIST_TYPE = :LIST-TYPE-IUPLD
AND CATALOG_ID = :CATALOG-ID-ORG
AND Q_LEVEL = :Q-LEVEL-ORG
END-EXEC
PERFORM E000-SQLCODE THRU E000-EXIT
*end custom
**IF NO MATCHING ENTRIES FOUND, AUTO-BACKGROUND...
PERFORM I300-CALL-ICCUP THRU I300-EXIT.
2A00-EXIT. EXIT.