Programa: PPGM001
0010 DEFINE DATA LOCAL
0020 1 TAB (N1/1:5)
0030 END-DEFINE
0040 CALLNAT 'NPGM001' TAB(1:3)
0050 END
Subprograma: NPGM001
0100 DEFINE DATA PARAMETER
0200 1 TAB (N1/1:V)
0300 END-DEFINE
0400 WRITE *OCCURRENCE(TAB,1)
0500 WRITE *PROGRAM
0600 END
Ao se executar o programa PPGM001, o valor mostrado no comando WRITE da linha 0500 do subprograma NPGM001 é:
