project BLF > include bFcCloseInstance.i

Description

include parameters

Internal usage

include code

run BusinessClassActions in {&TARGETPROCEDURE}
   (input        "{&CLASS}":U,
    input        "CLOSE":U,
    input        no,
    &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        "",
    output viFcIncludeReturn).
if viFcIncludeReturn <> 0
then oiReturnStatus = viFcIncludeReturn.
if viFcIncludeReturn < 0
then do:
    &IF "{&ERROR-STATEMENT}" = ""
    &THEN
    return ?.
    &ELSE
    {&ERROR-STATEMENT}
    &ENDIF
end.