Delete with RPG

Unknown Tuesday, 28 May 2013
RPGLE Programs
Edit


    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*
Posted by Unknown at
Labels:

No comments

Subscribe to: Post Comments ( Atom )