...
Free-format:
Code Block theme Emacs firstline 1 linenumbers true **free dcl-pi *n; flda char(1); fldb char(1); end-pi;
Note: **free is required for the code to be identified by the extraction process.
Fixed-format (remove the starting quotes when trying out copying this code block):
Code Block theme Emacs firstline 1 linenumbers true ' C *entry plist ' C parm flda 1 ' C parm fldb 1
Note: Fixed format requires accurate spacing for the correct columns.
...