Код: Выделить всё
MAP
GetData1(*cJson j)
GetData2(), *cJson
END
json &cJson
CODE
GetData1(json)
! тут json NULL
...
json &= GetData2()
! тут json не NULL
GetData1 PROCEDURE(*cJson j)
jf cJSONFactory
CODE
...
j &= json.Parse(...)
! тут j не NULL
GetData2 PROCEDURE()!, *cJson
r &cJson
jf cJSONFactory
CODE
...
r &= json.Parse(...)
! тут r не NULL
RETURN r