return value of a rpg program

["Knezevic, Mihael" <m.knezevic@xxxxxxxx>]

hi,

is it possible in rpg to return a value from a program. i don't mean to
get a return value of a procedure.

i like to do something in perl like this:

$myvar = `system myrpgprogram`;

but i don't know how i should define my prototype in the rpg program.
the rpg program name is BS_SUBS. it tried it like this: 

DMain             PR            10A   EXTPGM('BS_SUBS') 
D  subname                      10A                     
D  sublib                       10A                     
 *                                                      
 *Entry list (parameter)                                
DMain             PI            10A                     
D  subname                      10A                     
D  sublib                       10A                     

but it says that a return value is not supported with EXTPGM key word.

thanx in advance for any help.

mk