Use cWmlReport.pkg
Use cWebBusinessProcess.pkg
Use DataDict.pkg
Use cWmlReport.pkg
Use Customer.DD

Object oWapCustList is a cWebBusinessProcess

    // This WBO, oWapCustList, is used to output a Customer WAP report and is
    // called by WapCustList.asp.
    //
    // This WBO was created using the WAP Entry Wizard.
    Set pbAllowDelete to False
    Set pbAllowSaveEdit to False
    Set pbAllowSaveNew to False
    Set psDescription to "Wap Customer List"

    Object oCustomer_DD is a Customer_DataDictionary
        Send DefineAllExtendedFields
    End_Object    // oCustomer_DD

    Set Main_DD to oCustomer_DD

    Object oReport is a cWmlReport
                        
        Procedure OnPageTop
            Send WriteWML '<select name="rowid" >'
        End_Procedure // OnPageTop
        
        Procedure OnBody
            String sLinkText sRowId sName
        
            Move (SerializeRowId(GetRowId(Customer.File_Number))) To sRowId
            Get ddValueEncode "Customer.Name" To sName
        
            Send WriteWml ('<option value="' - sRowId - '">')
            Send WriteWml sName
            Send WriteWml '</option>'
        End_Procedure // OnBody
        
        Procedure OnPageBottom
            String sIndex sLink
        
            Get psHrefName To sLink
            Get piOrdering To sIndex
            Send WriteWml '</select><br/>'
        
            Send WriteWml '<do type="accept" label="Show">'
            Send WriteWml ('   <go href="' - sLink - '?RowId=$(rowid)&amp;Index=' - sIndex - '"/>')
            Send WriteWml '</do>'
        End_Procedure // OnPageBottom
        
        Function RunWapCustList Integer iIndex RowId riStart Returns RowId
            RowId   riEnd
            Integer iStat
        
            Set piOrdering           To iIndex
            Set priStartRowId        To riStart
            Get DoRunReport          To iStat
            Get priLastRowId         To riEnd
            Function_Return riEnd
        End_Function // RunWapCustList
        
    End_Object    // oReport

    { Published = True  }
    { Description = ""  }
    Procedure SetHRefName String sName
        Set psHRefname Of oReport To sName
    End_Procedure // SetHRefName
    
    { Published = True  }
    { Description = ""  }
    Procedure SetMaxChars String sChars
        Set piWmlMaxLength Of oReport To sChars
    End_Procedure // SetMaxChars
    
    { Published = True  }
    { Description = ""  }
    Procedure SetMaxLines String sLines
        Set piMaxCount Of oReport To sLines
    End_Procedure // SetMaxLines
    
    { Published = True  }
    { Description = ""  }
    Function RunWapCustList Integer iIndex string sStart Returns String
        RowId riEnd
        Get RunWapCustList Of oReport iIndex (DeSerializeRowId(sStart)) To riEnd
        Function_Return (SerializeRowId(riEnd))
    End_Function // RunWapCustList
    
    //  Register WBO interfaces
    Send RegisterStandardInterface
    // Send RegisterDebugInterface
    // Send RegisterFullErrorInterface
    // Send RegisterAutoEntryInterface

End_Object    // oWapCustList