970 Views
**free 02 dcl-s String char(100) inz('RPGPGM is a website that provides stories about IBMi') ; 03 dcl-s wkArray char(10) dim(10) ; 04 wkArray = %split(String) ; Split