7 lines
138 B
Plaintext
7 lines
138 B
Plaintext
**FREE
|
|
// Prototype for PRT program
|
|
dcl-pr PRT extpgm('PRT');
|
|
line char(132) const;
|
|
ctl char(10) const options(*nopass);
|
|
end-pr;
|