× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You can do it on all of them - but that will clear all but the latest each time <grin>. See here http://www.easy400.net/cgidev2o/exhibit4.htm#setvar you just need a '0' as the third parm on the very first call to the routine in the program.


On 2013-11-20, at 3:22 PM, Steve Jones <sjones@xxxxxxxxxxxxxxx> wrote:

Jon:

How do I specify the initialize option on the UpdHTMLVar? Do I need to do
this for every UpdHTMLVar or just the first one?

Thanks!!


On Wed, Nov 20, 2013 at 3:13 PM, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

That sounds like you are not clearing the substitution variables when your
CGIDEV2 program first starts. Since storage for those is in the CGIDEV2
Service Program if the Activation group in which the SP is running still
exists those variable values will still be present.

If that is the problem then the cure is to specify the initialize option
on your first call to UpdHTMLVar


On 2013-11-20, at 2:42 PM, Steve Jones <sjones@xxxxxxxxxxxxxxx> wrote:

Did find something that I am going to watch next few days. This program
was being called from a CL that wad two other programs that build a
different xml document using a different template. When I run this
program
separately it works perfectly, but when I run it in the CL with the
other 2
programs I get the weird results. I separated the programs so now it
will
be ran by itself. Anyone have any thoughts on what would cause this
behavior?




On Wed, Nov 20, 2013 at 10:17 AM, Bradley Stone <bvstone@xxxxxxxxx>
wrote:

Also turn on debugging for CGIDEV2. IT produces quite a lot of
information
in the debug file for when it's doing replacements, you may find
something
there.

Another things to try is change the end tag name just to see if it still
does the same thing, or if it's something with the name itself that is
causing the problem.

Example:

Change </TotalQuantity> to </TotQty> or <TQ> (with the slash removed to
see
if that's confusing CGIDEV2)

Play around with it.. you may find something.


On Wed, Nov 20, 2013 at 9:10 AM, Charles Wilt <charles.wilt@xxxxxxxxx
wrote:

My initial guess would be you've got a parameter mismatch somewhere
that
is corrupting memory...

Are you making an non-prototyped calls using CALL or CALLB? Double
check
the parm definitions vs. what is being passed.

Any chance that the prototype procedure implementations have changed?
If
done correctly, you should have gotten a level check if the change
wasn't
compatible. But if somebody made a mistake... You might try
recompiling.

However, it seems strange memory being corrupted is in the middle of a
buffer...

It looks like you are using CGIDEV2, correct? I'd consider putting a
watch
break on the buffer CGIWEB2 is using to hold the doc and see if you can
figure out when it's getting changed.

Also, you might want to post this on the WEB-400 list and/or the yahoo
group for that product.

Charles



On Wed, Nov 20, 2013 at 9:01 AM, Steve Jones <sjones@xxxxxxxxxxxxxxx>
wrote:

I have a program that is using a .txt template to build an xml
document.
It was working fine for about a month & now I am getting strange
results
as you can see below, the /TotalQuantity has a 12 in it. I can not
figure
out what is putting that 12 into that tag. Can anyone help with this?

xml results
<Summary>
<TotalAmount>621.560</TotalAmount>
<TotalLineItemNumber>1</TotalLineItemNumber>
<TotalQuantity> 4.000 </Tot12tity>
</Summary>


Template used to create xml doc
/$EndItems
</LineItems>
<Summary>
<TotalAmount>/%TotalAmt%/</TotalAmount>
<TotalLineItemNumber>/%NumLineItems%/</TotalLineItemNumber>
<TotalQuantity> /%TotQty%/ </TotalQuantity>
</Summary>

RPG code that writes out the summary
UpdHTMLVar('TotalAmt': %Char(TotalAmount));
UpdHTMLVar('NumLineItems': %Char(TotalItems));
UpdHTMLVar('TotQty': %Char(TotalQty));
WrtSection('EndItems');

--
Steve Jones
H-P Products, Inc

--
NOTE: The information in this email is confidential and may be
legally
privileged. If you are not the intended recipient, you must not read,
use
or disseminate the information; please advise the sender immediately
by
reply email and delete this message and any attachments without
retaining a
copy. Although this email and any attachments are believed to be free
of
any virus or other defect that may affect any computer system into
which
it
is received and opened, it is the responsibility of the recipient to
ensure
that it is virus free and no responsibility is accepted by H-P
Products,
Inc. for any loss or damage arising in any way from its use.
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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.




--
Steve Jones
H-P Products, Inc

--
NOTE: The information in this email is confidential and may be legally
privileged. If you are not the intended recipient, you must not read, use
or disseminate the information; please advise the sender immediately by
reply email and delete this message and any attachments without
retaining a
copy. Although this email and any attachments are believed to be free of
any virus or other defect that may affect any computer system into which
it
is received and opened, it is the responsibility of the recipient to
ensure
that it is virus free and no responsibility is accepted by H-P Products,
Inc. for any loss or damage arising in any way from its use.
--
This is the RPG programming on the IBM i (AS/400 and 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.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com




--
This is the RPG programming on the IBM i (AS/400 and 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.




--
Steve Jones
H-P Products, Inc

--
NOTE: The information in this email is confidential and may be legally
privileged. If you are not the intended recipient, you must not read, use
or disseminate the information; please advise the sender immediately by
reply email and delete this message and any attachments without retaining a
copy. Although this email and any attachments are believed to be free of
any virus or other defect that may affect any computer system into which it
is received and opened, it is the responsibility of the recipient to ensure
that it is virus free and no responsibility is accepted by H-P Products,
Inc. for any loss or damage arising in any way from its use.
--
This is the RPG programming on the IBM i (AS/400 and 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.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.