private static CallTargetParameter CreateCallTargetParameter(ParameterDescriptionEntry param)
{
var symbolReference = new SymbolReference(param.DataName);
var storageArea = new DataOrConditionStorageArea(symbolReference);
var callParameter = new CallTargetParameter {
StorageArea = storageArea
};
return(callParameter);
}
public static StorageArea CreateReceivingStorageArea(SymbolDefinition symbol)
{
if (symbol == null)
{
return(null);
}
var storage = new DataOrConditionStorageArea(new SymbolReference(symbol));
return(storage);
}
public static string ToCobol85(this DataOrConditionStorageArea sa)
{
var str = new StringBuilder();
str.Append(sa.SymbolReference);
if (sa.Subscripts != null)
{
foreach (var subscript in sa.Subscripts)
{
str.Append('(').Append(subscript).Append(')');
}
}
return(str.ToString());
}
