RTVOBJD PF-DTA / PF-SRC

[Pikachu]

Gut, und wie mache ich das im CLP?

Vielleicht so...

            PGM
            DCLF       FILE(FILETYPE)
            MONMSG     MSGID(CPF0000)

            OVRDBF     FILE(FILETYPE) TOFILE(SYSTABLES) SHARE(*YES)
            OPNQRYF    FILE((SYSTABLES)) FORMAT(FILETYPE) +
                         QRYSLT('NAME=''QCLSRC'' *AND +
                               DBNAME=''QGPL''') OPNID(*FILE)
            RCVF
            SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&FILETYPE)
            CLOF       OPNID(SYSTABLES)
ENDPGM:     ENDPGM 

            FILETYPE (DDS / PF)
                                      REF(SYSTABLES)
          R FILETYPE                                
            NAME      R                             
            DBNAME    R                             
            FILETYPE  R