Hallo,
Für genau diese Situation gibt es in RPG ab 7.1 das Schlüsselwort RTNPARM bei der Procedurdefinition:
Code:
D getFileData     pr    a     varying len(1000000)
D                             rtnparm
D file                  a     const varying len(500)

/free
  data = getFileData ('/home/mydir/myfile.txt');