RE: Variable length

Here could be the problem;
v_PDFFiles = v_PDFFILES + ' ''' + c_Cst + %Trim(PDFName) + '''';

Should look like
v_PDFFiles = v_PDFFILES + '''' + c_Cst + %Trim(PDFName) + '''';

There is an extra blank in the string.


Jeff Davis




"Florin Todor - YYZ Concord" <ftodor@xxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/01/2008 12:42 PM
Please respond to
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Variable length






Actually I do not receive an *escape message, the concatenation process
simply doesn't work; when I look in job log, I see something like that:

A matching apostrophe not found.
A matching parenthesis not found.
Error found on *N command.
Errors occurred in command.

Regarding the value of v_pdffiles, I copied it here just the end of it,
taken from debugger (as you can see it is truncated after 1024
characters; there were supposed to be around 1600):

.....................................................................
721 'Reporting/Inv_70010095225.pdf' '/Reporting/Inv_70010095266.p'
781 'df' '/Reporting/Inv_70010095274.pdf' '/Reporting/Inv_7001009'
841 '5308.pdf' '/Reporting/Inv_70010095332.pdf' '/Reporting/Inv_7'
901 '0010095357.pdf' '/Reporting/Inv_70010095571.pdf' '/Reporting'
961 '/Inv_70010095589.pdf' '/Reporting/Inv_70010095597.pdf' '/Rep'
1021 'orti'

I believe the error created in job log for concatenation command is
because of this truncation...

The value of s_index doesn't really matter at this point; I'm using it
here (for value of 1) only to initialize v_pdffiles...

Thanks


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Thursday, May 01, 2008 12:33 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Variable length

If you take option D (dump) when received *escape message on the
concatenation command error, what is the content of v_PDFFiles and
v_Index in the dump spool file.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Florin Todor - YYZ
Concord
Sent: Thursday, May 01, 2008 10:40 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Variable length

D v_PDFFiles S 1700 varying
D v_Index S 2 0

.............................................

If v_Index = 1;
v_PDFFiles = '''' + c_Cst + %Trim(PDFName) + '''';
Else;
v_PDFFiles = v_PDFFILES + ' ''' + c_Cst + %Trim(PDFName) + '''';
Endif;

(c_cst = constant; PDFName = field from a file)

..............................................

The idea is to populate this variable with names of PDF files residing
in IFS (names are read from PDFName field from a file) in order to use
it as input parameter for concatenation of PDF's command.

If the number of read records exceed a certain value and the v_PDFfiles
variable exceed 1024, the variable is truncated and, obviously, the
concatenation command ends in error...

Hopefully this will help.


Thank you




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Thursday, May 01, 2008 11:07 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Variable length

BTW, I declared the variable in two ways: with and without "varying"
keyword, with the same results.

This sounds like a debugger issue, or at least not a Varying issue if it
still happens when you don't specify the Varying keyword. Though
without code to see it's all guesswork.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.