Hello all. I'm having a problem concatenating a string and I have no idea why. Everything looks fine to me. I have a procedure that is creating a few strings for use in some CL commands. Here is the code:
For some reason I am getting the following errors:
024300 CpyFCmdString = 'CPYF FROMFILE(' + %trim(LIBNAME) + '/' + %trim(File) + ') ' +
======> a
*RNF0267 20 a 024300 Character literal has missing trailing apostrophe; trailing
apostrophe assumed.
*RNF5501 20 024300 The comment entry on a free-form calculation is not valid.
024400 'TOFILE(' + %trim(LIBNAME) + '/' + %trim(File) + 'B)';
======> aaaaaaaaa
*RNF5377 20 a 024400 The end of the expression is expected.
As far as I can tell, everything looks ok. I can't think of what else to add to these lines to get it to compile. Can anyone help?
Code:
P SetCmdStrings B * D SetCmdStrings PI D File 10A /free CpyFCmdString = 'CPYF FROMFILE(' + %trim(LIBNAME) + '/' + %trim(File) + ') ' + 'TOFILE(' + %trim(LIBNAME) + '/' + %trim(File) + 'B)'; DltFCmdString = 'DLTF FILE(' + %trim(LIBNAME) + '/' + %trim(File) + 'B)'; /end-free P E
024300 CpyFCmdString = 'CPYF FROMFILE(' + %trim(LIBNAME) + '/' + %trim(File) + ') ' +
======> a
*RNF0267 20 a 024300 Character literal has missing trailing apostrophe; trailing
apostrophe assumed.
*RNF5501 20 024300 The comment entry on a free-form calculation is not valid.
024400 'TOFILE(' + %trim(LIBNAME) + '/' + %trim(File) + 'B)';
======> aaaaaaaaa
*RNF5377 20 a 024400 The end of the expression is expected.
As far as I can tell, everything looks ok. I can't think of what else to add to these lines to get it to compile. Can anyone help?
Comment