1.00

              PGM        PARM(&VLDLNAM &VLDLLIB)

2.00

              DCL        VAR(&VLDLNAM) TYPE(*CHAR) LEN(10)

3.00

              DCL        VAR(&VLDLLIB) TYPE(*CHAR) LEN(10)

4.00

                /*=======*/

5.00

              MONMSG     MSGID(CPF0000)

6.00

              CHKOBJ     OBJ(&VLDLLIB/&VLDLNAM) OBJTYPE(*VLDL)

7.00

              MONMSG     MSGID(CPF0000) EXEC(DO)

8.00

              CRTVLDL    VLDL(&VLDLLIB/&VLDLNAM) AUT(*EXCLUDE)

9.00

              CHGOBJOWN  OBJ(&VLDLLIB/&VLDLNAM) OBJTYPE(*VLDL) +

10.00

                           NEWOWN(QSECOFR)

11.00

              ENDDO

12.00

                /*=======*/

13.00

              RETURN