Parameters
Internal usage
unused
program code (program3/bfrwcolumngroup.p)
empty temp-table tApiFRWCol.
empty temp-table tApiFRWColDet.
empty temp-table tApiFRWColDetComp.
assign oiReturnStatus = -98.
<Q-61 run ColumnGroupForAllData (all) (Read) (NoCache)
(input ?, (Col_ID)
output dataset tqColumnGroupForAllData) in BFRWColumnGroup>
for each tqColumnGroupForAllData by tqColumnGroupForAllData.tiFRWCol_ID:
create tApiFRWCol.
<M-7 run BufferCopy
(input buffer tqColumnGroupForAllData:handle (ihFrom),
input buffer tApiFRWCol:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
/* assign calculated fields */
assign tApiFRWCol.tcFRWChartCode = tqColumnGroupForAllData.tcFRWChartCode.
/* Load FRWColDet */
<Q-5 run ColumnGroupDetForAllData (all) (Read) (NoCache)
(input tqColumnGroupForAllData.tiFRWCol_ID, (FRWCol_ID)
output dataset tqColumnGroupDetForAllData) in BFRWColumnGroup>
for each tqColumnGroupDetForAllData where
tqColumnGroupDetForAllData.tiFRWCol_ID = tqColumnGroupForAllData.tiFRWCol_ID
by tqColumnGroupForAllData.ti_sequence:
create tApiFRWColDet.
<M-49 run BufferCopy
(input buffer tqColumnGroupDetForAllData:handle (ihFrom),
input buffer tApiFRWColDet:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
/* assign calculated fields */
assign tApiFRWColDet.tc_ParentRowid = tqColumnGroupForAllData.tc_rowid
tApiFRWColDet.tcFRWChartCode = tqColumnGroupForAllData.tcFRWChartCode.
if tqColumnGroupDetForAllData.tiFRWAnCode_ID <> ? and
tqColumnGroupDetForAllData.tiFRWAnCode_ID <> 0
then do:
<Q-25 run FRWAnCodePrim (all) (Read) (NoCache)
(input tqColumnGroupDetForAllData.tiFRWAnCode_ID, (FRWAnCode_ID)
input ?, (FRWAnCodeCode)
output dataset tqFRWAnCodePrim) in BFRWAnalysisCode>
find first tqFRWAnCodePrim where
tqFRWAnCodePrim.tiFRWAnCode_ID = tqColumnGroupDetForAllData.tiFRWAnCode_ID no-error.
if available tqFRWAnCodePrim
then assign tApiFRWColDet.tcFRWAnCodeCode = tqFRWAnCodePrim.tcFRWAnCodeCode.
end.
if tqColumnGroupDetForAllData.tcFRWColDetColumnType = {&FRWCOLDETCOLUMNTYPE-COMPOSED}
then do:
<Q-11 run ColumnGroupDetCompForAllData (all) (Read) (NoCache)
(input tqColumnGroupDetForAllData.tiFRWColDet_ID, (FRWColDet_ID)
output dataset tqColumnGroupDetCompForAllData) in BFRWColumnGroup>
for each tqColumnGroupDetCompForAllData where
tqColumnGroupDetCompForAllData.tiFRWColDet_ID = tqColumnGroupDetCompForAllData.tiFRWColDet_ID
by tqColumnGroupDetCompForAllData.ti_sequence:
create tApiFRWColDetComp.
<M-48 run BufferCopy
(input buffer tqColumnGroupDetCompForAllData:handle (ihFrom),
input buffer tApiFRWColDetComp:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
/* assign calculated fields */
assign tApiFRWColDetComp.tc_ParentRowid = tqColumnGroupDetForAllData.tc_rowid
tApiFRWColDetComp.tcFRWAnCodeCode = tqColumnGroupDetCompForAllData.tcFRWAnCodeCode
tApiFRWColDetComp.tcFRWAnCodeCode1 = tqColumnGroupDetCompForAllData.tcFRWAnCodeCode1
tApiFRWColDetComp.tcFRWAnCodeFRWChartCode = tqColumnGroupForAllData.tcFRWChartCode
tApiFRWColDetComp.tcFRWAnCodeFRWChartCode1 = tqColumnGroupForAllData.tcFRWChartCode
tApiFRWColDetComp.tcFRWAnCodeFRWChartCode2 = tqColumnGroupForAllData.tcFRWChartCode.
if tqColumnGroupDetCompForAllData.tiSourceFRWAnCode_ID <> ? and
tqColumnGroupDetCompForAllData.tiSourceFRWAnCode_ID <> 0
then do:
<Q-17 run FRWAnCodePrim (all) (Read) (NoCache)
(input tqColumnGroupDetCompForAllData.tiSourceFRWAnCode_ID, (FRWAnCode_ID)
input ?, (FRWAnCodeCode)
output dataset tqFRWAnCodePrim) in BFRWAnalysisCode>
find first tqFRWAnCodePrim where
tqFRWAnCodePrim.tiFRWAnCode_ID = tqColumnGroupDetCompForAllData.tiSourceFRWAnCode_ID no-error.
if available tqFRWAnCodePrim
then assign tApiFRWColDetComp.tcFRWAnCodeCode2 = tqFRWAnCodePrim.tcFRWAnCodeCode.
end.
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
end. /* for each tqColumnGroupDetCompForAllData */
end. /* if tqColumnGroupDetForAllData.tcFRWColDetColumnType = {&FRWCOLDETCOLUMNTYPE-COMPOSED} */
end. /* for each tqGolumnGroupDetForAllData */
end. /* for each tqColumnGroupForAllData */
assign oiReturnStatus = 0.
return.
Sample code: how to call this method 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 = "BFRWColumnGroup".
create ttContext.
assign ttContext.propertyName = "methodName"
ttContext.propertyValue = "ApiLoadFRWColumnGroup".
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 = "".
/* 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.