Figure 5. Linear-main procedure

H main(myPgm)
D myPgm           pr                  extpgm('MYPGM')
P myPgm           b
 /free
    dsply ('Hello from mypgm!');
 /end-free
P myPgm           e