H DFTNAME(TESTDEC62) DATEDIT(*YMD/)                                                            
     D STR             S             80A                                                            
     D ROW             S             10I 0                                                          
     D COL             S             10I 0                                                          
     D N               S              4S 0                                                          
     D M               S              4S 0                                                          
     D L               S              4S 0                                                          
     C                   EVAL      STR = 'POS(13,25)'                                               
     C     'POS('        SCAN      STR:1         N                        50                        
     C     *IN50         IFEQ      *ON                                          POS(                
      /FREE                                                                                         
        ROW = %DEC(%SUBST(STR:N+4:4):4:0);                                                          
      /END-FREE                                                                                     
     C     ','           SCAN      STR:1         N                        50                        
     C     ')'           SCAN      STR:N         M                        50                        
     C     *IN50         IFEQ      *ON                                          ,                   
      /FREE                                                                                         
        L   = M - N - 1;                                                                            
        COL = %DEC(%SUBST(STR:N+1:L):4:0);                                                          
      /END-FREE                                                                                     
     C                   ENDIF                                                  ,                   
     C                   ENDIF                                                  POS(                
     C                   SETON                                        LR