谁来帮忙写出这个CL?(不足20行能搞定吗)

forgot2000

传入一个以逗号分隔的字符串,比如'ABC,B,D1'
想逐个DSPLY出来,可以吗?
单个字符串不需要逗号

roden

用RPGLE方便些

huangxkst

rpgle或C都可以。。！

没想到

可以用CL写的，以下供参考

0001.00 PGM PARM(&STR)                                                      
0001.01 DCL VAR(&STR) TYPE(*CHAR) LEN(30)                                    
0001.02 DCL VAR(&POS) TYPE(*INT)  LEN(2) VALUE(0)                           
0001.03 DCL VAR(&DSP) TYPE(*CHAR) LEN(5) VALUE(' ')                          
0001.05                                                                     
0001.08 MAIN: CHGVAR VAR(&POS) VALUE(&POS+1)                                 
0001.09       IF (&POS <=30) DO                                             
0001.12         IF ( (%SST(&STR &POS 1) *NE ',') ) DO                        
0001.14            CHGVAR VAR(&DSP) VALUE(&DSP *TCAT %SST(&STR &POS 1))      
0001.15            ENDDO                                                     
0001.16         ELSE  DO                                                     
0001.17            SNDPGMMSG MSG(&DSP)                                       
0001.18            CHGVAR VAR(&DSP) VALUE(' ')                              
0001.19            ENDDO                                                     
0001.20         GOTO MAIN                                                   
0001.21       ENDDO                                                         
0001.22       ELSE DO                                                        
0001.23            SNDPGMMSG MSG(&DSP)                                       
0001.24            GOTO END                                                  
0001.25       ENDDO                     
0001.26 END:                           
0002.00 ENDPGM