Code: Select all
HDFTACTGRP(*no)
D data1 S 1000 inz('^test^^testing^letstest')
D delimiter1 S 1 inz('^')
D ArrData S 50 dim(50) inz
/Free
ArrData = pssplitd1(data1:delimiter1);
dsply arrdata;
*inlr = *on;
/End-Free
Ppssplitd1 b
Dpssplitd1 pi 50 dim(50)
D data 1000
D delimiter 1
*
D returnArray s 50 dim(50) inz
D startPos s 10i 0
D foundPos s 10i 0
//// some code//////
return returnarray;
pssplitd1 e
I am getting Compile time error as "ARRAY HAS TOO MANY OMITTED INDEX'
[/Text]