– Voici un programme utilisant une PLIST pour gérer les paramètres.
DpCODE s 5A DpACTIF s 5A C *ENTRY PLIST C PARM pCODE C PARM pACTIF /free if pACTIF = 'O'; pCODE = '11111'; endif; *inlr = *on; return; |
Voici le même programme avec des paramètres « prototypés »
D EntryParms PR extpgm('ENTRY') D pCODE 5A D pACTIF 1A D EntryParms PI D pCODE 5A D pACTIF 1A /free if pACTIF = 'O'; pCODE = '11111'; endif; *inlr = *on; return; |