IBM-i-RPG-Free-CLP-Code/Copy_Mbrs/PRT_P.RPGLE

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