Resolution:
Correct the code to add required parameters.
Example:
The following example shows both correct and erroneous code as indicated:
$set sourceformat(variable)
class-id ParamBug.
method-id Main static.
procedure division using by value args as string occurs any.
invoke AssertFormat( *> Ok, all required parameters specified
22, *> parameter a
param sf = type CType::Default,
param p = "Optional object",
param b = 3)
invoke AssertFormat( *> Error, required parameter b not passed
22,
param c = type CType::Default,
param p = "Optional object")
goback.
end method.
method-id AssertFormat private static.
procedure division using by value a as binary-long *> Required parameter
b as binary-long *> Required parameter
c as type CType = type CType::Default *> Optional
p as object = null *> Optional
sf as type CType = type CType::Default. *> Optional
end method.
end class.
enum-id CType.
78 #Default.
end enum.