Problem in screen design

[Nisha B Pawar]

Hello All,

Thank you very much for the overwhelming response.
It was quite a great help in resolving the issue,

The query which we used was as below and it is working as desired
skipping the records with the same pat numbers even if there are multiple
records with same part numbers they will be skipped.

FILE APMISUMI PRIMARY

FILE APMISUMI DESIGNER  OPEN OCCURS 2 ALIAS APMISUMI_REF
 SELECT  IF GM-PART = TEMP-GMPART

FILE APMISUMI DESIGNER OPEN OCCURS 3  ALIAS APMISUMI_SEC
     SELECT  IF GM-PART <> TEMP-GMPART  AND FLAG-905="P"

In find seciton
          WHILE RETRIEVING APMISUMI_SEC VIA  DOC-CHAR , SOURCE-CODE
                  USING "@"  , TEMP-DUNS
           BEGIN
           GET APMISUMI VIA  DOC-CHAR , SOURCE-CODE &
           USING "@"  , TEMP-DUNS
           IF NOT ACCESSOK
           THEN BREAK
           GET APMISUMI_REF OPTIONAL VIA DOC-CHAR ,SOURCE-CODE USING
                  DOC-CHAR OF APMISUMI ,SOURCE-CODE OF APMISUMI
           IF NEWRECORD OF APMISUMI_REF
           THEN BREAK
           END

Thanks & Best Regards,
Nisha Pawar