RPG Code Sample
RPG 101 - Ep5
**free
// SAMPLE HELLO WORLD PROGRAM
// NICK LITTEN
// MARCH 5TH 2024
dcl-s msg char(50) inz('Hello World Free Format with inz variable');
dsply msg;
msg = 'new value for msg variable';
dsply msg;
return;
RPG 101 - Ep6
**free
// SAMPLE HELLO WORLD PROGRAM
// NICK LITTEN
// MARCH 5TH 2024
dcl-c UPPERBOB 'this is a constant message';
dsply UPPERBOB;
return;