Parameters
| oiGLSharedSetId | output | integer | |
| oiDivSharedSetId | output | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program9/bcoamaskcc.p)
/* Retrieve the GL and Division Shared Set */
<I-1 {bFcOpenInstance
&CLASS = "Session"}>
<M-2 run GetIntegerValue
(input 'SharedSetForGL':U (icName),
output oiGLSharedSetId (oiValue),
output viFcReturnSuper (oiReturnStatus)) in Session>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then do:
<I-7 {bFcCloseInstance
&CLASS = "Session"}>
return.
end.
<M-5 run GetIntegerValue
(input 'SharedSetForDIVISION':U (icName),
output oiDivSharedSetId (oiValue),
output viFcReturnSuper (oiReturnStatus)) in Session>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then do:
<I-9 {bFcCloseInstance
&CLASS = "Session"}>
return.
end.
<I-10 {bFcCloseInstance
&CLASS = "Session"}>