Re: ifs list issue

On Jun 23, 2017, at 9:57 AM, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx> wrote:

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.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD