/*--+------------------------------------------------------------+--*/
/*--+   PROGRAM ID : $DSPFF                                      +--*/
/*--+ PROGRAM NAME : CL OF DISPLAY FILE FORMAT                   +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.1 (98/10/16) ADDED OVRDBF AND DLTOVR      +--*/
/*--+                1.0 (98/09/28)                              +--*/
/*--+------------------------------------------------------------+--*/
PGM PARM(&FILEANDLIB)

/*--+------------------------------------------------------------+--*/
/*  + DECLARE                                                    +  */
/*--+------------------------------------------------------------+--*/
DCL VAR(&FILEANDLIB) TYPE(*CHAR) LEN(  20  )  /* FILE AND LIBRARY   */
DCL VAR(&FILE      ) TYPE(*CHAR) LEN(  10  )  /* FILE               */
DCL VAR(&LIB       ) TYPE(*CHAR) LEN(  10  )  /* LIBRARY            */


/*--+------------------------------------------------------------+--*/
/*  + START OF PROGRAM                                           +  */
/*--+------------------------------------------------------------+--*/

/*--+------------------------------------------------------------+--*/
/*  + INITIALIZE                                                 +  */
/*--+------------------------------------------------------------+--*/
CHGVAR VAR(&FILE      ) VALUE(%SST(&FILEANDLIB  1 10))
CHGVAR VAR(&LIB       ) VALUE(%SST(&FILEANDLIB 11 10))

/*--+-------------------------------+--*/
/*  + CREATE OF DSPFF FILE IN QTEMP +  */
/*--+-------------------------------+--*/
DSPFFD FILE(&LIB/&FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPFF)

    MONMSG MSGID(CPF3012) EXEC(DO)
        SNDPGMMSG MSGID(CPF3012) MSGF(QCPFMSG) MSGDTA(&FILEANDLIB) +
                                               MSGTYPE(*ESCAPE)
    ENDDO

    MONMSG MSGID(CPF3064) EXEC(DO)
        SNDPGMMSG MSGID(CPF3064) MSGF(QCPFMSG) MSGDTA(&LIB)  +
                                               MSGTYPE(*ESCAPE)
    ENDDO


/*--+------------------------------------------------------------+--*/
/*  + M A I N                                                    +  */
/*--+------------------------------------------------------------+--*/
/*--+------------------+--*/
/*  + CALL RPG PROGRAM +  */
/*--+------------------+--*/
OVRDBF FILE(DSPFF) TOFILE(QTEMP/DSPFF)

CALL PGM(RDSPFF)

DLTOVR FILE(DSPFF)


/*--+------------------------------------------------------------+--*/
/*  + END OF PROGRAM                                             +  */
/*--+------------------------------------------------------------+--*/
#_EXIT_:
ENDPGM