Figure 7: RPG source code for program ITEMLOOKUP

*=====================================================================

     FITEMS1    IF   E           K DISK     EXTFILE('MYLIB/ITEMS1') 
     		

*=====================================================================
      * Includes to be used in CGIs
*=====================================================================
      /copy mysource/CGIDEV2
      		

     D imagelink       S            100
     D request         S             10
     		

      /free

      
       clrhtmlBuffer();
       IfsMultIndicators =
           GetHtmlifsMult('/itemlookup.html /errorforms.html');
		

       // The variable request holds the result of ZhbGetVar,
       // which determines whether the program was sent a value
       // for the HTML form field called Request.
       request = ZhbGetVar('request');

       select;

       // Determine the action requested.
       when request = 'lookup';
		

         // Get the requested item number from the HTML form.
         number=ZhbGetVar('number');

         // Get item record.
         chain number itemsr;
		

         // If found, update variables and write out a new HTML page.
         if %found(items1);
            updHTMLvar('number': number    );
            updHTMLvar('desc'  : descript  );
            updHTMLvar('price' : %editc(salesprice : '3');
            imagelink = '/js/' + image;
            updHTMLvar('image' : imagelink );
            WrtSection('resultform');
		

         // If not found, display error page.
         else;
            updHTMLvar('number': number );
            WrtSection('notfound');
         endif;
		

       // No request was sent, so write the initial request page.
       other;
          //Write the initial form that asks for an item number.
          WrtSection('initialform');
       endsl;
       		

       //Write the end of the form (required with CGIDEV)
       WrtSection('*fini');
       *INLR = *ON;

      /end-free