String ausschneiden

[malzusrex]

hier ein kleines rpgproggi

c     *entry        plist                                              
c                   parm                    feld1           100        
c                                                                      
c                   clear                   pos               4 0      
c                   eval      pos   = %scan(',':feld1)                 
c                   dow       pos   > *zeros                           
c                   eval      feld1 = %replace(%subst(feld1   :pos+1:     
c                                                     %len(feld1)-pos):
c                                              feld1)                  
c                   eval      pos   = %scan(',':feld1)                 
c                   enddo                                              
c                                                                      
c                   eval      *inlr = *on

am ende steht im feld1 nur noch der rest nach dem leztm komma

gruß ronald



[Dieser Beitrag wurde von malzusrex am 20. März 2003 editiert.]