&ANALYZE-SUSPEND _VERSION-NUMBER WDT_v2r1 Web-Object
&ANALYZE-RESUME
&ANALYZE-SUSPEND _CODE-BLOCK _CUSTOM Definitions 
/*------------------------------------------------------------------------

  File: 

  Description: 

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

  Created: 

------------------------------------------------------------------------*/
/*           This .W file was created with WebSpeed Workshop.           */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */
def stream s_err.
&ANALYZE-RESUME
&ANALYZE-SUSPEND _PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Web-Object


&ANALYZE-RESUME


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _INCLUDED-LIBRARIES
/* Included Libraries --- */
{src/web/method/wrap-cgi.i}
&ANALYZE-RESUME _END-INCLUDED-LIBRARIES

&ANALYZE-SUSPEND _CODE-BLOCK _CUSTOM "Main Code Block" 

/* ************************  Main Code Block  *********************** */

/* The CLOSE event can be used from inside or outside the procedure to  */
/* terminate it.                                                        */
ON CLOSE OF THIS-PROCEDURE 
   RUN dispatch ('destroy':U).

/* Process the latest WEB event. */
RUN process-web-request.

/* Run the local/adm-destroy procedures, if the procedure is ending.    */
IF NOT THIS-PROCEDURE:PERSISTENT THEN RUN dispatch ('destroy':U).
&ANALYZE-RESUME
/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _CODE-BLOCK _PROCEDURE output-header 
PROCEDURE output-header :
/*------------------------------------------------------------------------------
  Purpose:     Output the MIME header, and any "cookie" information needed 
               by this procedure.  
  Parameters:  <none>
  Notes:       In the event that this Web object is State-Aware, this is also
               a good place to set the "Web-State" and "Web-Timeout" 
               attributes.              
------------------------------------------------------------------------------*/

  output-content-type ("text/vnd.wap.wml":U). 

  {&out}
    '<?xml version="1.0"?>' skip
    '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"' skip
    '"http://www.wap.org/DTD/wml_1.1.xml">' skip.

END PROCEDURE.
&ANALYZE-RESUME
&ANALYZE-SUSPEND _CODE-BLOCK _PROCEDURE process-web-request 
PROCEDURE process-web-request :
/*------------------------------------------------------------------------------
  Purpose:     Process the web request.
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
def var                v_num_kom         as char                        no-undo.
def var                v_arg_kom         as char                        no-undo.
  
  /* 
   * Output the MIME header and set up the object as state-less or state-aware. 
   * This is required if any HTML is to be returned to the browser.
   */
  RUN output-header.

  
  {&OUT} "<wml>":U skip.
  
  /* Output your custom WML to WEBSTREAM here (using {&OUT}).                */
  {&out}
    '<card id="First">' skip
    '<do type="accept" label="Next">' skip
    '<go href="#Cnts" />' skip
    '</do>' skip
    '<p>' skip
    'Select <b>Next</b> to continue.' skip
    '</p>' skip
    '</card>' skip
    .

  {&out}
    '<card id="Cnts">' skip
    '<p>' skip
    'Welcome to <anchor title="link"> page <go href="http://wap.mi.com.pl/" />' skip
    '</anchor>' skip
    'of Internet Magazine.' skip
    '</p>' skip
    '</card>' skip
    .


/*
  {&out}
    '<card id="Hello_World" title="Hello World">' skip
    '<p>' skip
    'Hello World and Universe' skip
    '</p>' skip
    '</card>' skip
    .
*/
  {&OUT} "</wml>":U SKIP.
  
END PROCEDURE.
&ANALYZE-RESUME