You are correct Joe. The change worked.
Output
<Tools1>
<Category>
<CategoryCode>01</CategoryCode>
<CategoryName>Test CGIDEV2</CategoryName>
<Product>
<ProductCode>123456789</ProductCode>
<ShortDescription>CALL, TURKEY V MOUTH DIAPHRAGM</ShortDescription>
<LongDescription>CALL, TURKEY V MOUTH DIAPHRAGM</LongDescription>
<SellPrice>123.45</SellPrice>
<DiscPrice>120.00</DiscPrice>
<QuantityOnHand>0</QuantityOnHand>
</Product>
</Category>
</Tools1>
Thank you
Art Duarte
-----Original Message-----
From: WEB400 [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Joe W Holt
Sent: Thursday, October 1, 2015 10:55 AM
To: web400@xxxxxxxxxxxx
Subject: Re: [WEB400] CGIDEV2 Missing Data
I think the issue is the third parameter you are using with the
updHTMLvar. Use it only on the first call. It initializes the html stream
which if I remember would eliminate what you have previously updated.
Regards,
Joe W Holt - Sr Programmer/Architect
Jack Onofrio Dog Shows, LLC
405.427.8181
----- Original message -----
From: Art Duarte <art.duarte@xxxxxxx>
Sent by: "WEB400" <web400-bounces@xxxxxxxxxxxx>
To: "web400@xxxxxxxxxxxx" <web400@xxxxxxxxxxxx>
Cc:
Subject: [WEB400] CGIDEV2 Missing Data
Date: Thu, Oct 1, 2015 10:35 AM
Greetings,
I am trying out CGIDEV2 for the first time to generate XML. I am having
issues with certain elements showin ***Missing Data*** instead of the
actual field value. I know have value filled in field because during
debug I see the value.
Here is the code:
XML Template
<! -- Sec_FileHeader -->
<Tools1>
<! -- Sec_CategoryHeader -->
<Category>
<CategoryCode>/%CatCode%/</CategoryCode>
<CategoryName>/%CatName%/</CategoryName>
<! -- Sec_ProductDataMain1 -->
<Product>
<ProductCode>/%ProdCode%/</ProductCode>
<ShortDescription>/%ShortDesc%/</ShortDescription>
<! -- Sec_ProductDataOption1 -->
<LongDescription>/%FullDesc%/</LongDescription>
<! -- Sec_ProductDataMain2 -->
<SellPrice>/%SellPrice%/</SellPrice>
<DiscPrice>/%DiscPrice%/</DiscPrice>
<QuantityOnHand>/%QtyOnHand%/</QuantityOnHand>
</Product>
<! -- Sec_FileTrailer -->
</Category>
</Tools1>
RPG Code
H dftactgrp(*no)
*-/copy: H specifications, for copy -*
h/COPY QRPGLESRC,HSPECS
*-/copy: H specification for binding directories -*
h/COPY QRPGLESRC,HSPECSBND
d masterProductData...
d e ds extname(DBPRODPF)
d detailProductData...
d e ds extname(DBPDTLPF)
s* ------------------------------------
s* | Product DATA STRUCTURE |
s* ------------------------------------
d dsProductData...
d ds
d productCode like(ino)
d shortDesc like(idesc)
d longDesc like(idescu)
d charSellPrice 10
d* sellPrice like(sPrice)
d discPrice like(sprsp)
d qtyOnHand like(sinv)
s* -----------------------------
s* | COPYBOOKS |
s* -----------------------------
*-Program Data Structure-*
D/COPY QRPGSRC,XACPY00001
*-CGIDEV2 Copybook-*
D/COPY QRPGLESRC,prototypeb
*-COMMON STRUCTURE FOR ERROR CODE PARAMETER CopyBook-*
D/COPY QSYSINC/QRPGLESRC,qusec
s*
s********************************************************************
s* TESTCGIDEV : 'S ' GLOBAL VARIABLES
*
s********************************************************************
d itemNumber s like(productCode)
d inz('000010414')
d XML_Output s 256a varying
d inz('/home/ADUARTE/CGIDEV2/+
d products.xml')
d rc s 10i 0
d noDataString c 'No Data'
D* --------------------------------------------------
D* Prototype for program: deleteGLAcct
D* --------------------------------------------------
D testCGIDEV PR extpgm('TESTCGIDEV')
D testCGIDEV PI
s********************************************************************
s* *MAIN* Delete GL Account
*
s********************************************************************
/FREE
EXEC SQL
SET OPTION COMMIT = *NONE,
DATFMT = *ISO;
//Initialize subprocedure values
exsr sr_Init;
exsr sr_getProduct;
updHTMLvar('CatCode' :'01' :'0');
updHTMLvar('CatName' :'Test CGIDEV2');
wrtsection('CategoryHeader') ;
updHTMLvar('ProdCode' :'123456789' :'0');
updHTMLvar('ShortDesc' :shortDesc :'0');
wrtsection('ProductDataMain1') ;
if longDesc <> *blanks;
updHTMLvar('FullDesc' :longDesc :'0');
wrtsection('ProductDataOption1') ;
endif;
updHTMLvar('SellPrice' :'123.45' :'0');
updHTMLvar('DiscPrice' :'120.00' :'0');
updHTMLvar('QtyOnHand' :%char(qtyOnHand) :'0');
wrtsection('ProductDataMain2') ;
//wrtSection('CategoryTrailer');
//write trailer
wrtSection('FileTrailer');
rc = WrtHtmlToStmf(XML_Output :819);
*inlr = *on;
//**********************************************************************
//** S U B R O U T I N E S
//**********************************************************************
begsr sr_Init;
getHTMLIFS('/home/ADUARTE/CGIDEV2/ProductTemplate1.xml'
:'<! -- Sec_' :' -->');
wrtSection('FileHeader');
endsr;
//----------------------------------
//----------------------------------
begsr sr_getProduct;
EXEC SQL
SELECT ino, idesc, idescu, sprice, sprsp, sinv
INTO :dsProductData
FROM DBPRODPF
JOIN DBPDTLPF ON DBPRODPF.ino = DBPDTLPF.sitem
WHERE ino = :itemNumber and slocn = '0080' ;
// charSellPrice = %char(sellPrice);
endsr;
Output
<Tools1>
<Category>
<CategoryCode>01</CategoryCode>
<CategoryName>Test CGIDEV2</CategoryName>
<Product>
<ProductCode>**Missing Data**</ProductCode>
<ShortDescription>CALL, TURKEY V MOUTH
DIAPHRAGM</ShortDescription>
<LongDescription>CALL, TURKEY V MOUTH
DIAPHRAGM</LongDescription>
<SellPrice>**Missing Data**</SellPrice>
<DiscPrice>**Missing Data**</DiscPrice>
<QuantityOnHand>0</QuantityOnHand>
</Product>
</Category>
</Tools1>
Thank you for your assistance.
Art Duarte
[[1]data:%3c;base64,R0lGODlhngAkAPcAAApksWWdzu30+aXG4vf6/VqWy4Wy2Hmq1azK5eTu9/r8/jF8vkWJxNHi8Axlsi15vD2EwV2Yy2CazBBoswBdrqHE4cXa7ZK63E6OxuLs9ghisfj7/X2s1TR+vxZqtVGRyLbQ6LjS6UCGw5i+3nao04Cu1/3+/om02rnT6bzU6h9wuPT4+xdstQZhsHCl0jeAv8jc7vz9/oy22p7C4TmCwCFyuL7W60mMxRpttqDD4fr8/VSSyd7q9ejw+LLO5/H2++ry+Ch2u6jI49vo9CJyuXOm0pS73QpksglisRFmspW83dbl8rTQ5+zz+WKczcPY7MHY69zo9Cd2uqrJ5KvK5dro87vU6ZzA4H2s1g1mso6426/M5bTP50eKxTiBwMzf76/M5s3g71aUyqnI5IKv1xhstW2i0H6u1iR0ukyOxmifzyt4vJvA32+k0fD1+nur1XOn00KHwwRgrzyDwcve7mmg0ODr9dDh8Pb5/NTk8sDX67zU6QBZrIiz2eDs9TZ/wNXk8USIw5C422mgzx1wt+bv97HO5yt4uzaAv1CQyObw+EyMxSR0uW6j0cfc7cbb7RJos0yNxrfR6BxutwBUqafH4ziCwBZqtpq/3xlutnus1eLt9RRptEOIwyZ1ujB7vQpjsY232xNqtHip1G+j0gxlsSJ0uS57vR9xuBhsthputhRqtPP3+xhtthNptBZrtRVqtA9nsw5mshltt8HY7BJotNjm8/7+/87g8PT4/BVqtc/h8Nnn8wlksfL3+2yh0PX5/P7//w5ms/P4+xFos9fm8g1lshJptBtutn6t1hRqtfX4/BtutxVrtOfw963L5Rlstg9msg9ms9rn883g8OHs9snd7urx+Bxvt/n8/fT3/LDN5s/g8P7+/rvT6Rput/n7/fr7/juDwfT3+0+Pxx1vuOPt9iNzuX6s1U+Qx/P4/NLj8Qlks
v/+/3Gl0
vL3+vP3/A5nsg5nsw9nstjm8tjn8rLN5t3q9d3p9Bdrtdbk8enx+NPj8Z3B4Blttv///ywAAAAAngAkAAAI/wD/CRxIsKDBgwgTKlzIsKFDgqw2bSERgYanGqjOBYlTx4ANIDoeihxJsqTJkwttROjgAECsVqpU+ZtJE4cqHK+ygKrVpc0QlECDCh2acAUZYqBS0VzKtCnTS6CIDCBKtarVhSO6gHol06nXr/6OyTLz6KrZs0EBjQIFtq1bf/lcVfJlchiru3fpEgyGF2+MggT6CsZrcLDhu8C6ETSxTLBeBYcjC3TzSY4wHLMya948S1eWpZg5i9YsCpSqVw4klPyAoTWGSF0K4uniGsMiawNNPNlRu3frSFj0EGQQybfxD20IDAQSoPcNgUyKGzce6J8VERokDHhCq7v377Qk0f8ohcNfKhLcwaun9cTHmVIzQb1xNhLVUhbECuaqtfSVN4EEyMHfW7WoJlAsr7w1Uwt2CJTAC0ulsopAM+Sj4DG1QMCJKw2MZIx5RowUDgAypSLLLyLZRxMLE+g34Ez+CXRDVwqCssGBCSqIAxpR/PNghBP+M0OOYOUDSlnGSPMJSReokkqII7kAQE3MyOCQijOx6GJ///1Tg4I0HVMIjmCGZYOPENIkIYVEeoVDdgIZA0oEJH3BwpMkTSHLUrVosE9DWPqjJUH7cSmQU68kqihTsNhCZn+KvqLUUsY8gyaQAvXjSqSJNtPKTDhAQ5AxALhDUhSr4DlSCrA0BYokDAX/OuhAhdIU4z+fLnUOAmP0OsYFbTb66EwdDODrFAu4QqmlP6oZZBWV+OorJlL448CSA/nwSi8uGGTGL+D+4kQwBQ2RKpQEBVBHuE4YxKpTtXCykKwtEvqiP7fmSlMQBSWwylLC/oPgUrERFEcsy17qrEJaTIBDB+sMlEAHOHBrkE6gZMzHLeWeaxAFLWQMCh/uttqUKsdcoBC9W9rapb4zSVEQL
//SFP
DANHWi3EAiIExTpQrPtCZCSwijCrYDHcGCPxYXRMhSAHBMkLmqEkQMkaCU/NUqKiMUaCqvBODE2E5EsLTLAsHsj8wE0QywowK3qTNBPSfc]
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: [2]
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at [3]
http://archive.midrange.com/web400.
References
Visible links
1. data:%3c;base64,R0lGODlhngAkAPcAAApksWWdzu30+aXG4vf6/VqWy4Wy2Hmq1azK5eTu9/r8/jF8vkWJxNHi8Axlsi15vD2EwV2Yy2CazBBoswBdrqHE4cXa7ZK63E6OxuLs9ghisfj7/X2s1TR+vxZqtVGRyLbQ6LjS6UCGw5i+3nao04Cu1/3+/om02rnT6bzU6h9wuPT4+xdstQZhsHCl0jeAv8jc7vz9/oy22p7C4TmCwCFyuL7W60mMxRpttqDD4fr8/VSSyd7q9ejw+LLO5/H2++ry+Ch2u6jI49vo9CJyuXOm0pS73QpksglisRFmspW83dbl8rTQ5+zz+WKczcPY7MHY69zo9Cd2uqrJ5KvK5dro87vU6ZzA4H2s1g1mso6426/M5bTP50eKxTiBwMzf76/M5s3g71aUyqnI5IKv1xhstW2i0H6u1iR0ukyOxmifzyt4vJvA32+k0fD1+nur1XOn00KHwwRgrzyDwcve7mmg0ODr9dDh8Pb5/NTk8sDX67zU6QBZrIiz2eDs9TZ/wNXk8USIw5C422mgzx1wt+bv97HO5yt4uzaAv1CQyObw+EyMxSR0uW6j0cfc7cbb7RJos0yNxrfR6BxutwBUqafH4ziCwBZqtpq/3xlutnus1eLt9RRptEOIwyZ1ujB7vQpjsY232xNqtHip1G+j0gxlsSJ0uS57vR9xuBhsthputhRqtPP3+xhtthNptBZrtRVqtA9nsw5mshltt8HY7BJotNjm8/7+/87g8PT4/BVqtc/h8Nnn8wlksfL3+2yh0PX5/P7//w5ms/P4+xFos9fm8g1lshJptBtutn6t1hRqtfX4/BtutxVrtOfw963L5Rlstg9msg9ms9rn883g8OHs9snd7urx+Bxvt/n8/fT3/LDN5s/g8P7+/rvT6Rput/n7/fr7/juDwfT3+0+Pxx1vuOPt9iNzuX6s1U+Qx/P4/NLj8Qlksv/+
/3Gl0
2.
http://lists.midrange.com/mailman/listinfo/web400
3.
http://archive.midrange.com/web400
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
midrange.com
