Delete with RPG



    RPGLE  - Delete with RPG

     C*
     C* if line number is zero then must delete the header
     C*
     C                   If        LineNumber = *zeros
     C     DsmOrdL1Key   Chain     DSMHORDL1
     C                   If        %Found(DSMHORDL1)
     C                   Delete    OrdHdrR
     C                   Endif
     C                   Endif
     C*

No comments