File Overrides within RPG-ILE

FMBRS      IF   E             DISK
FMYFILE    IF   E             DISK    USROPN

D Cmd             PR                  ExtPgm('QCMDEXC')
D  command                     200A   const
D  length                       15P 5 const

c                   read      MBRS                                   10
c                   dow       *in10 = *off

C                   callp     Cmd('OVRDBF FILE(MYFILE) MBR(' +
c                                   %trim(MbrName) + ')': 200)
c                   open      MYFILE
C* process MYFILE here
c                   close     MYFILE
c                   callp     Cmd('DLTOVR FILE(MYFILE)':200)

c                   read      MBRS                                   10
c                   enddo

c                   eval      *inlr = *on

[report a broken link by clicking here]