...
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________
alpha( 10) wProgramObjectFileName
alpha( 128) wProgramPublicProcedureName
alpha(1000) wParameters
num_e( 2,0) myParameterNum01
num_e( 2,0) myParameterNum02
/* ___ Code _____________________________________________________________________________
call myProgram
call myProgram.myProcedure
myParameterNum01= 22
call myProgram.myProcedure2 myParameterNum01
myParameterNum01= 22
myParameterNum02= 05
call myProgram.myProcedure2 myParameterNum01 myParameterNum02
/* ___ Dynamic program name _____________________________________________________________
wProgramObjectFileName = 'mypgm'
call &wProgramObjectFileName
wProgramObjectFileName = 'mypgm'
call &wProgramObjectFileName.myProcedure
/* ___ Dynamic program name and public procedure name ___________________________________
wProgramObjectFileName = 'mypgm'
wProgramPublicProcedureName = 'myProcedure'
call &wProgramObjectFileName.&wProgramPublicProcedureName
wProgramObjectFileName = 'mypgm'
wProgramPublicProcedureName = 'myProcedure2'
myParameterNum01 = 22
call &wProgramObjectFileName.&wProgramPublicProcedureName myParameterNum
/* ___ Dynamic program name, procedure name and parameters ______________________________
wProgramObjectFileName = 'mypgm'
wProgramPublicProcedureName = 'myProcedure2'
wParameters = '22 05'
call &wProgramObjectFileName.&wProgramPublicProcedureName &wParameters
|
...