API query PostingLineForTransView

Description

Returns Posting lines and header data. Created for GL Transactions View Extended.

query filter (table tFilter)

tcBusinessFieldName	tcDataType	tcOperator
iiCompanyId	i
icGLDesc	c	matches
ilBSAccount	l	=
icBatchNumber	c	=
icCostCenterCode	c
icCostCenterDesc	c	matches
icCurrCode	c	=
icJournalCode	c	=
icJournalTypeCode	c	=
icJournalDesc	c	matches
icGLCode	c
icGLCategory	c	=
icGLTypeCode	c	=
icInterEntityCode	c
icPostingDesc	c	matches
icProjectCode	c
icProjectDesc	c	matches
icDivisionCode	c
icDivisionDesc	c	matches
itPostingSystemDate	t	=
icVoucher	c	matches
idDebitTC	d	=
idCreditTC	d	=
itPostingDate	t	=
iiPostingYearPeriodFrom	i	>=
iiPostingYearPeriodTo	i	<=
icGLCodeDiff	c
icGLCodeFrom	c	>=
icGLCodeTo	c	<=
icDivisionCodeFrom	c	>=
icDivisionCodeTo	c	<=
icDivisionCodeDiff	c
icProjectCodeFrom	c	>=
icProjectCodeTo	c	<=
icProjectCodeDiff	c
icCostCenterCodeFrom	c	>=
icCostCenterCodeTo	c	<=
icCostCenterCodeDiff	c
itPostingDateFrom	t	>=
itPostingDateTo	t	<=
icLayerCode	c	=
icLayerTypeCode	c	=
iiPostingYearPeriodVal	i	=
icInterEntityCodeDiff1	c
icInterEntityCodeFrom1	c	>=
icInterEntityCodeTo1	c	<=
icPostingLineText	c	matches
tBusinessRelation.BusinessRelationICCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tCompany.CompanyCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tCostCentre.CostCentreCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tCostCentre.CostCentreDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tCurrency.CurrencyCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tDivision.DivisionCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tDivision.DivisionDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLCategory	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLIsBalanceAccount	l	=,<>
tGLOpenItem.GLOpenItemKey	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tLayer.LayerCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tLayer.LayerTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingBatchNumber	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingDate	t	=,>=,>,<>,<=,<
tPosting.PostingInvoiceReferenceTxt	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingIsReversing	l	=,<>
tPostingLine.PostingLineCreditCC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineCreditLC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineCreditTC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitCC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitLC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitTC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineOriginLineNbr	i	=,>=,>,<>,<=,<
tPostingLine.PostingLineText	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginAddressCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginDaybookCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginDaybookNumber	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginDocument	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginDocumentType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginIsExternal	l	=,<>
tPosting.PostingOriginReference	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingOriginTransType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingSystemDate	t	=,>=,>,<>,<=,<
tPosting.PostingText	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingVoucher	i	=,>=,>,<>,<=,<
tPosting.PostingYearPeriod	i	=,>=,>,<>,<=,<
tProject.ProjectCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tProject.ProjectDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tUsr.UsrLogin	c	=,>=,>,<>,<=,<,begins,can-do,matches

Parameters (internal)

iiCompanyId	integer	Company id
icGLDesc	character
ilBSAccount	logical
icBatchNumber	character
icCostCenterCode	character
icCostCenterDesc	character
icCurrCode	character
icJournalCode	character
icJournalTypeCode	character
icJournalDesc	character
icGLCode	character
icGLCategory	character
icGLTypeCode	character
icInterEntityCode	character
icPostingDesc	character
icProjectCode	character
icProjectDesc	character
icDivisionCode	character
icDivisionDesc	character
itPostingSystemDate	date
icVoucher	character
idDebitTC	decimal
idCreditTC	decimal
itPostingDate	date
iiPostingYearPeriodFrom	integer
iiPostingYearPeriodTo	integer
icGLCodeDiff	character
icGLCodeFrom	character
icGLCodeTo	character
icDivisionCodeFrom	character
icDivisionCodeTo	character
icDivisionCodeDiff	character
icProjectCodeFrom	character
icProjectCodeTo	character
icProjectCodeDiff	character
icCostCenterCodeFrom	character
icCostCenterCodeTo	character
icCostCenterCodeDiff	character
itPostingDateFrom	date
itPostingDateTo	date
icLayerCode	character
icLayerTypeCode	character
iiPostingYearPeriodVal	integer
icInterEntityCodeDiff1	character	InterEntityCodeDiff1
icInterEntityCodeFrom1	character	InterEntityCodeFrom1
icInterEntityCodeTo1	character	InterEntityCodeTo1
icPostingLineText	character

query condition

each Posting where

Posting.Company_Id = iiCompanyId AND
Posting.PostingYearPeriod = iiPostingYearPeriodVal AND
Posting.PostingYearPeriod >= iiPostingYearPeriodFrom AND
Posting.PostingYearPeriod <= iiPostingYearPeriodTo AND
Posting.PostingDate = itPostingDate AND
Posting.PostingDate >= itPostingDateFrom AND
Posting.PostingDate <= itPostingDateTo AND
Posting.PostingSystemDate = itPostingSystemDate AND
Posting.PostingVoucher matches icVoucher AND
Posting.PostingBatchNumber = icBatchNumber AND
Posting.PostingText matches icPostingDesc

first Journal (inner-join) where

Journal.SharedSet_Id = vi_JOURNAL_sharedset(iiCompanyId) AND
Journal.Journal_ID = Posting.Journal_ID AND
Journal.JournalCode = icJournalCode AND
Journal.JournalTypeCode = icJournalTypeCode AND
Journal.JournalDescription matches icJournalDesc

first Layer (inner-join) where

Layer.Layer_ID = Journal.Layer_ID AND
Layer.LayerCode = icLayerCode AND
Layer.LayerTypeCode = icLayerTypeCode

each PostingLine (inner-join) where

PostingLine.Company_Id = iiCompanyId AND
PostingLine.Posting_ID = Posting.Posting_ID AND
PostingLine.PostingLineDebitTC = idDebitTC AND
PostingLine.PostingLineCreditTC = idCreditTC AND
PostingLine.PostingLineText matches icPostingLineText

first BusinessRelation (conditional-join) where

BusinessRelation.BusinessRelation_ID = PostingLine.IntercoBusinessRelation_ID AND
BusinessRelation.BusinessRelationICCode >= icInterEntityCodeFrom1 AND
BusinessRelation.BusinessRelationICCode <= icInterEntityCodeTo1 AND
BusinessRelation.BusinessRelationICCode <> (if icInterEntityCodeDiff1 = '-999999' then '' else icInterEntityCodeDiff1) AND
BusinessRelation.BusinessRelationICCode matches (if icInterEntityCode = '-999999' then '' else icInterEntityCode)

first Company (inner-join) where

Company.Company_Id = iiCompanyId AND
Company.Company_ID = PostingLine.Company_ID AND

first CostCentre (conditional-join) where

CostCentre.SharedSet_Id = vi_COSTCENTRE_sharedset(iiCompanyId) AND
CostCentre.CostCentre_ID = PostingLine.CostCentre_ID AND
CostCentre.CostCentreCode matches (if icCostCenterCode = '-999999' then '' else icCostCenterCode) AND
CostCentre.CostCentreCode >= icCostCenterCodeFrom AND
CostCentre.CostCentreCode <= icCostCenterCodeTo AND
CostCentre.CostCentreCode <> (if icCostCenterCodeDiff = '-999999' then '' else icCostCenterCodeDiff) AND
CostCentre.CostCentreDescription matches icCostCenterDesc

first Currency (inner-join) where

Currency.Currency_ID = PostingLine.Currency_ID AND
Currency.CurrencyCode = icCurrCode

first Division (conditional-join) where

Division.SharedSet_Id = vi_DIVISION_sharedset(iiCompanyId) AND
Division.Division_ID = PostingLine.Division_ID AND
Division.DivisionCode matches (if icDivisionCode = '-999999' then '' else icDivisionCode) AND
Division.DivisionCode >= icDivisionCodeFrom AND
Division.DivisionCode <= icDivisionCodeTo AND
Division.DivisionCode <> (if icDivisionCodeDiff = '-999999' then '' else icDivisionCodeDiff) AND
Division.DivisionDescription matches icDivisionDesc

first GL (inner-join) where

GL.SharedSet_Id = vi_GL_sharedset(iiCompanyId) AND
GL.GL_ID = PostingLine.GL_ID AND
GL.GLCode matches (if icGLCode = '-999999' then '' else icGLCode) AND
GL.GLCode >= icGLCodeFrom AND
GL.GLCode <= icGLCodeTo AND
GL.GLCode <> (if icGLCodeDiff = '-999999' then '' else icGLCodeDiff) AND
GL.GLCategory = icGLCategory AND
GL.GLTypeCode = icGLTypeCode AND
GL.GLIsBalanceAccount = ilBSAccount AND
GL.GLDescription matches icGLDesc

each GLOpenItemMovement (outer-join) where

GLOpenItemMovement.PostingLine_ID = PostingLine.PostingLine_ID AND

first GLOpenItem (outer-join) where

GLOpenItem.Company_Id = iiCompanyId AND
GLOpenItem.GLOpenItem_ID = GLOpenItemMovement.GLOpenItem_ID AND

first Project (conditional-join) where

Project.SharedSet_Id = vi_PROJECT_sharedset(iiCompanyId) AND
Project.Project_ID = PostingLine.Project_ID AND
Project.ProjectCode matches (if icProjectCode = '-999999' then '' else icProjectCode) AND
Project.ProjectCode >= icProjectCodeFrom AND
Project.ProjectCode <= icProjectCodeTo AND
Project.ProjectCode <> (if icProjectCodeDiff = '-999999' then '' else icProjectCodeDiff) AND
Project.ProjectDescription matches icProjectDesc

first Usr (inner-join) where

Usr.Usr_ID = Posting.CreatorUsr_ID AND

query resultset tqPostingLineForTransView

field name	data type	db field	description
tcBusinessRelationICCode	character	BusinessRelation.BusinessRelationICCode	Intercompany Code. When Intercompany is true, this field is mandatory. The code entered here must match the intercompany code entered for GL accounts in order to generate intercompany reports. The intercompany code must be unique for this business relation.
tiCompany_ID	integer	PostingLine.Company_ID	Link to Company
tcCompanyCode	character	Company.CompanyCode	Entity Code
tiCostCentre_ID	integer	CostCentre.CostCentre_ID	Record ID
tcCostCentreCode	character	CostCentre.CostCentreCode	Cost Center: A code that identifies the cost center.
tcCostCentreDescription	character	CostCentre.CostCentreDescription	Description: a brief description of the cost center.
tiCreatorUsr_ID	integer	Posting.CreatorUsr_ID	Login
tiCrossCompany_ID	integer	PostingLine.CrossCompany_ID	Link to Company
tiCurrency_ID	integer	PostingLine.Currency_ID	Currency Code
tcCurrencyCode	character	Currency.CurrencyCode	Currency Code
tcCustomShort0	character	PostingLine.CustomShort0	Custom Short Field
tcCustomShort1	character	PostingLine.CustomShort1	Custom Short Field
tcCustomShort2	character	PostingLine.CustomShort2	Custom Short Field
tcCustomShort3	character	PostingLine.CustomShort3	Custom Short Field
tcCustomShort4	character	PostingLine.CustomShort4	Custom Short Field
tcCustomShort5	character	PostingLine.CustomShort5	Custom Short Field
tiDivision_ID	integer	Division.Division_ID	Record ID
tcDivisionCode	character	Division.DivisionCode	Sub-Account
tcDivisionDescription	character	Division.DivisionDescription	Description
tiGL_ID	integer	GL.GL_ID	Record ID
tcGLCategory	character	GL.GLCategory	Category: A code for classifying the account based on its function on financial statements.
tcGLCode	character	GL.GLCode	A code identifying the GL account.
tcGLDescription	character	GL.GLDescription	A description of the GL account.
tlGLIsBalanceAccount	logical	GL.GLIsBalanceAccount	This field will be calculated by the system based on the value of tcBalance. If the account is a Balance Sheet account the value will be true, if it is a Profit and Loss account then it will be false.
	api annotation:		This field can be left blank as it will be calculated by the system.
tcGLOpenItemKey	character	GLOpenItem.GLOpenItemKey	Allocation Key
tiGLOpenItemMovement_ID	integer	GLOpenItemMovement.GLOpenItemMovement_ID	Record ID
tcGLTypeCode	character	GL.GLTypeCode	A code identifying the type of account.
tiJournal_ID	integer	Journal.Journal_ID	Record ID
tcJournalCode	character	Journal.JournalCode	A daybook code (maximum eight characters).
tcJournalDescription	character	Journal.JournalDescription	A brief description of the daybook.
	api annotation:		Value for this field defaults to null.
tcJournalTypeCode	character	Journal.JournalTypeCode	A daybook type code.
	api annotation:		Value for this field defaults to "Journal Entries".
tcJournalTypeCodeTr	character	calculated	JournalTypeCodeTr: obsolete calc-field as this field is no longer used by the callers but we cannot delete it either as that would break the backwards-compatibility
tcLayerCode	character	Layer.LayerCode	Layer Code
tcLayerTypeCode	character	Layer.LayerTypeCode	Layer Type
tiObsoleteClosing_ID	integer	Posting.ObsoleteClosing_ID	Link to Closing
tiPeriod_ID	integer	Posting.Period_ID	Link to Period
tiPosting_ID	integer	PostingLine.Posting_ID	Link to Posting
tcPostingBatchNumber	character	Posting.PostingBatchNumber	Some financial input programs allow you to enter a batch number and to keep a control total on the screen of all the transactions entered with the same batch number.
	api annotation:		Not applicable for application integration.
ttPostingDate	date	Posting.PostingDate	The accounting date on which the journal entry is posted. The posting date must be a valid calendar date and must be within the GL calendar year (PostingYear) and period (PostingPeriod).
tcPostingInvoiceReferenceTxt	character	Posting.PostingInvoiceReferenceTxt	When the posting is part of an invoice posting, then this field contains the invoice number (Year/Daybook/Voucher extended with supplier invoice Reference in case of a supplier invoice). Used for information purpose on reports and browsers.
	api annotation:		Value for this field defaults to blank
tlPostingIsReversing	logical	Posting.PostingIsReversing	Indicate whether the posting is a reversal of an existing posting.
	api annotation:		Value for this field defaults to "false".
tiPostingLine_ID	integer	PostingLine.PostingLine_ID	Record ID
tdPostingLineCreditCC	decimal	PostingLine.PostingLineCreditCC	SC Credit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLinCreditTC, PostingLineCCRate & PostingLineCCScale. SC Amount = TC Amount * Exchange rate (TC/SC) * Scale Factor (TC/SC). If Partial Update is false, you should enter the correct value for this field
tdPostingLineCreditLC	decimal	PostingLine.PostingLineCreditLC	BC Credit
	api annotation:		Partial Update = yes - it will get a default value depends on the value of PostingLineCreditTC, PostingLineExchangeRate & PostingLineRateScale. BC Amount = TC Amount * Exchange rate (TC/BC) * Scale Factor (TC/BC). If Partial Update is false, enter a value for this field.
tdPostingLineCreditTC	decimal	PostingLine.PostingLineCreditTC	TC Credit
tdPostingLineDebitCC	decimal	PostingLine.PostingLineDebitCC	SC Debit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLineDebitTC, PostingLineCCRate & PostingLineCCScale. SC Amount = TC Amount * Exchange rate (TC/SC) * Scale Factor (TC/SC). If Partial Update is false, enter the correct value for this field.
tdPostingLineDebitLC	decimal	PostingLine.PostingLineDebitLC	BC Debit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLineDebitTC, PostingLineExchangeRate and PostingLineRateScale. BC Amount = TC Amount * Exchange rate (TC/BC) * Scale Factor (TC/BC). If Partial Update = false, enter the correct value into this field.
tdPostingLineDebitTC	decimal	PostingLine.PostingLineDebitTC	TC Debit
tiPostingLineOriginLineNbr	integer	PostingLine.PostingLineOriginLineNbr	Equivalent to PostingLineSequence, however there is a difference in format and the value may differ in a number of specific cases. MfgPro Equivalent: glt_line
	api annotation:		Value for this field defaults to 0.
tcPostingLineText	character	PostingLine.PostingLineText	Description
	api annotation:		Value for this field defaults to blank. Note: if a new record is created through the user interface, the default value is as same as the value of "PostingText" of tPosting.
tcPostingOriginAddressCode	character	Posting.PostingOriginAddressCode	For invoices created with Invoice Post and Print, the address code of the bill-to customer is stored in this field.
tcPostingOriginDaybookCode	character	Posting.PostingOriginDaybookCode	Daybook Code (normally this corresponds with our JournalCode) MfgPro equivalent: glt_dy_code
tcPostingOriginDaybookNumber	character	Posting.PostingOriginDaybookNumber	Daybook Number (normally this corresponds with our PostingVoucher) MfgPro equivalent: glt_dy_num
tcPostingOriginDocument	character	Posting.PostingOriginDocument	Transaction History Number (Inventory or Operations) or Invoice Number (Sales Order) MfgPro equivalent: glt_doc
tcPostingOriginDocumentType	character	Posting.PostingOriginDocumentType	Document Type (I for Invoice, OP for Work Orders) MfgPro equivalent: glt_doc_type
tlPostingOriginIsExternal	logical	Posting.PostingOriginIsExternal	Indicate whether the posting is from an External Origin. When creating cross company postings, set this to true.
	api annotation:		Value for this field defaults to false.
tcPostingOriginReference	character	Posting.PostingOriginReference	GL Reference Number. Format is ZZYYMMDD999999 where ZZ = module (IC, SO, WO) YY = Year, MM = Month, DD = Day, 999999 = Running Journal Number. MfgPro equivalent: glt_ref
tcPostingOriginTransType	character	Posting.PostingOriginTransType	System generated code used to identify a transaction (IC for Inventory, WO for Work Orders, SO for Sales Orders, FA for Fixed Assets) MfgPro equivalent: glt_tr_type
ttPostingSystemDate	date	Posting.PostingSystemDate	The system date of the posting corresponding to "PostingDate".
	api annotation:		In Create mode, when Partial Update = yes - this field gets a default value which is the current date of the system.
tcPostingText	character	Posting.PostingText	Free text describing the posting.
	api annotation:		Value for this field defaults to blank
tiPostingVoucher	integer	Posting.PostingVoucher	Voucher is a sequential number that uniquely identifies the journal entry (within the combination of an entity and a daybook code).
	api annotation:		In create mode,enter 0 in this field - the voucher number is generated by the system. In Modify/Delete, the correct voucher number must be entered because this identifies the record.
tiPostingYearPeriod	integer	Posting.PostingYearPeriod	The GL calendar year/period for the posting. This field is determined by "PostingPeriod" and "PostingYear".
	api annotation:		If Partial Update is true, the value defaults using PostingPeriod and PostingYear.
tiProject_ID	integer	Project.Project_ID	Record ID
tcProjectCode	character	Project.ProjectCode	Project
tcProjectDescription	character	Project.ProjectDescription	Description
tcUsrLogin	character	Usr.UsrLogin	Login
PostingCustom	character	calculated	custom fields
PostingLineCustom	character	calculated	custom fields
CompanyCustom	character	calculated	custom fields
GLCustom	character	calculated	custom fields
JournalCustom	character	calculated	custom fields
LayerCustom	character	calculated	custom fields
CurrencyCustom	character	calculated	custom fields
UsrCustom	character	calculated	custom fields
DivisionCustom	character	calculated	custom fields
CostCentreCustom	character	calculated	custom fields
ProjectCustom	character	calculated	custom fields
BusinessRelationCustom	character	calculated	custom fields
GLOpenItemMovementCustom	character	calculated	custom fields
GLOpenItemCustom	character	calculated	custom fields
ti_sequence	integer	calculated	primary index
tc_rowid	character	calculated	= rowid(Posting),rowid(Journal),rowid(Layer),rowid(PostingLine),rowid(BusinessRelation),rowid(Company),rowid(CostCentre),rowid(Currency),rowid(Division),rowid(GL),rowid(GLOpenItemMovement),rowid(GLOpenItem),rowid(Project),rowid(Usr)

Internal usage

unused

Sample code: how to call this query through RPCRequestService (QXtend Inbound)

define temp-table ttContext no-undo
    field propertyQualifier as character
    field propertyName as character
    field propertyValue as character
    index entityContext is primary unique
        propertyQualifier
        propertyName
    index propertyQualifier
        propertyQualifier.

define dataset dsContext for ttContext.

define variable vhContextDS as handle no-undo.
define variable vhExceptionDS as handle no-undo.
define variable vhServer as handle no-undo.
define variable vhInputDS as handle no-undo.
define variable vhInputOutputDS as handle no-undo.
define variable vhOutputDS as handle no-undo.
define variable vhParameter as handle no-undo.

/* Create context */
create ttContext.
assign ttContext.propertyName = "programName"
       ttContext.propertyValue = "BPosting".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "PostingLineForTransView".
create ttContext.
assign ttContext.propertyName = "applicationId"
       ttContext.propertyValue = "fin".
create ttContext.
assign ttContext.propertyName = "entity"
       ttContext.propertyValue = "1000".
create ttContext.
assign ttContext.propertyName = "userName"
       ttContext.propertyValue = "mfg".
create ttContext.
assign ttContext.propertyName = "password"
       ttContext.propertyValue = "".

/* Create input dataset */
create dataset vhInputDS.
vhInputDS:read-xmlschema("file", "xml/bposting.postinglinefortransview.i.xsd", ?).
vhParameter = vhInputDS:get-buffer-handle("tParameterI").
vhParameter:buffer-create().

assign vhParameter::icRange = "A"
       vhParameter::icRowid = ""
       vhParameter::iiRownum = 0
       vhParameter::iiNumber = 5 /* Number of records to read */
       vhParameter::icSortColumns = ""
       vhParameter::ilCountOnly = false
       vhParameter::ilForwardRead = true
       vhParameter::iiMaximumBrowseRecordsToCount = 0.

vhParameter = vhInputDS:get-buffer-handle("tFilter").
vhParameter:buffer-create().

assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

/* Connect the AppServer */
create server vhServer.
vhServer:connect("-URL <appserver-url>").

if not vhServer:connected()
then do:
    message "Could not connect AppServer" view-as alert-box error title "Error".
    return.
end.

/* Run */
assign vhContextDS = dataset dsContext:handle.

run program/rpcrequestservice.p on vhServer
    (input-output dataset-handle vhContextDS by-reference,
           output dataset-handle vhExceptionDS,
     input        dataset-handle vhInputDS by-reference,
     input-output dataset-handle vhInputOutputDS by-reference,
           output dataset-handle vhOutputDS).

/* Handle output however you want, in this example, we dump it to xml */
if valid-handle(vhExceptionDS)
then vhExceptionDS:write-xml("file", "Exceptions.xml", true).

if valid-handle(vhOutputDS)
then vhOutputDS:write-xml("file", "Output.xml", true).

/* Cleanup */
vhServer:disconnect().
assign vhServer = ?.

if valid-handle(vhInputDS)
then delete object vhInputDS.

if valid-handle(vhOutputDS)
then delete object vhOutputDS.

if valid-handle(vhExceptionDS)
then delete object vhExceptionDS.