| &ADD-TO-TRANSACTION | Enter true if the started business instance will do database updates that must be part of the transaction in which current business instance is operating. If current instance is not yet part of a transaction instance, a transaction instance will be started automatically, to which both instances will be added immediately. Enter false or blanc in all other situations. |
| &CLASS | class short name |
| &ERROR-STATEMENT | Action to take when an error occurred. |
| &USER-DEFINED-CONTEXT |
BLF
QadFinancials
QadFitnesse
run BusinessClassActions in {&TARGETPROCEDURE}
(input "{&CLASS}":U,
input "START+OPEN":U,
&IF "{&ADD-TO-TRANSACTION}" = ""
&THEN input no,
&ELSE input {&ADD-TO-TRANSACTION},
&ENDIF
&IF "{&CLASS-REF}" = ""
&THEN
input-output vi{&CLASS}OC,
input-output vh{&CLASS}Inst,
input-output vi{&CLASS}Id,
&ELSE
input-output vi{&CLASS-REF}OC,
input-output vh{&CLASS-REF}Inst,
input-output vi{&CLASS-REF}Id,
&ENDIF
input "",
input "{&USER-DEFINED-CONTEXT}",
output viFcIncludeReturn).
if viFcIncludeReturn <> 0
then oiReturnStatus = viFcIncludeReturn.
if viFcIncludeReturn < 0
then do:
&IF "{&ERROR-STATEMENT}" = ""
&THEN
return ?.
&ELSE
{&ERROR-STATEMENT}
&ENDIF
end.