Re: CGIDEV2 Missing Data

[Henrik Rützou <hr@xxxxxxxxxxxx>]

Joe

you are absolutely right, the 'action' parameter '0' reset all variables in
the array that holds the variable names in CGIDEV2/XXXWRKHTML
service program

On Thu, Oct 1, 2015 at 5:54 PM, Joe W Holt <joe.holt@xxxxxxxxxxx> wrote:

>    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.