H DFTNAME(TESTDEC6) DATEDIT(*YMD/)                                                             
     D STR             S             80A                                                            
     D ROW             S             10I 0                                                          
     D COL             S             10I 0                                                          
     D N               S              4S 0                                                          
     D VALUE           S             10A                                                            
     C                   EVAL      STR = 'POS(13,25)'                                               
     C     'POS('        SCAN      STR:1         N                        50                        
     C     *IN50         IFEQ      *ON                                          POS(                
     C                   ADD       4             N                                                  
     C                   EVAL      VALUE = %SUBST(STR:N:4)                                          
     C                   EVAL      ROW = %DEC(VALUE:4:0)                                            
     C     ','           SCAN      STR:1         N                        50                        
     C     *IN50         IFEQ      *ON                                          ,                   
     C                   ADD       1             N                                                  
     C                   EVAL      VALUE = %SUBST(STR:N:4)                                          
     C                   EVAL      COL = %DEC(VALUE:4:0)                                            
     C                   ENDIF                                                  ,                   
     C                   ENDIF                                                  POS(                
     C                   SETON                                        LR