ifs list issue

So I'm having a strange issue retrieving a directory listing from the IFS. V7R1

Below is a snippet.
DCLF FILE(DIRLIST)

/* change to fidelity path in IFS */
CD DIR(&PATH)

DLTF FILE(QTEMP/DIRLIST)
MONMSG MSGID(CPF0000)


/* override the output to file dirlist */
OVRDBF FILE(STDOUT) TOFILE(QTEMP/DIRLIST) +
OVRSCOPE(*CALLLVL)

OVRDBF FILE(DIRLIST) TOFILE(QTEMP/DIRLIST)



/* use qshell command to list contents of */
/* Fidelity directory to file dirlist */
QSH CMD('LS -LT *.*')
CPYF FROMFILE(QTEMP/DIRLIST) TOFILE(*PRINT)

FIDELO: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

The above is a from a program that is 2 different versions. The only difference between the 2 programs is the CPYF after the QSH.

When I use the version that has the CPYF the program works like it is supposed to and reads the file.

However when I use the version that does not have the CPYF I get a CPF0886 is: Record contains a data field that is not valid.

I stuck the CPYF in the program so I could see what was in the QTEMP file and then it started behaving.

Any ideas?

Mike


NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.