scottklement.com

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            

Code: Select all

        FOR i = 1 TO %ELEM(arrdata);      
            dsply arrdata(i);             
        ENDFOR;