*=============================================================================================
       * TAGOPT - Example about using subprocedure CrtTagOpt
       *
       * CRTBNDRPG PGM(CGIDEV2/TAGOPT) SRCFILE(CGIDEV2/QRPGLESRC)
       *           DFTACTGRP(*NO) ACTGRP(TAGOPT) DBGVIEW(*SOURCE)
       *
       *=============================================================================================
       /copy CGIDEV2/qrpglesrc,hspecs
       /copy CGIDEV2/qrpglesrc,hspecsbnd
       /copy CGIDEV2/qrpglesrc,prototypeb
       /copy CGIDEV2/qrpglesrc,variables3
       /copy CGIDEV2/qrpglesrc,usec
      D dates           s             15    dim(3)
      D i               s             10i 0
      D optionValue     s            200    varying
       /free
            // load dates
            dates(1)='Oct 1, 2011';
            dates(2)='Nov 3, 2012';
            dates(3)='Dec 7, 2013';
            // load external html
            gethtml('DEMOHTML':'CGIDEV2':'TAGOPT':'«as400»');
            // start response
            wrtsection('top');
            // provide option list
            for i=1 to 3;
               optionValue=CrtTagOpt(%char(i):dates(i));
               updhtmlvar('optionvalue':optionValue);
               wrtsection('seldate');
            endfor;
            wrtsection('endseldate');
            // send response and return
            wrtsection('*fini');
            return;