*---------------------------------------------------------------* 
 * Get length of filled part of a field                Logiforce * 
 *---------------------------------------------------------------* 
 *                                                                 
H DATEDIT(*YMD) DEBUG(*YES) OPTION(*NODEBUGIO : *SRCSTMT)          
D P_FLD           S             60                                 
D P_LEN           S              3  0                              
C     *entry        plist                                          
C                   parm                    P_FLD                  
C                   parm                    P_LEN                  
 *                                                                 
C                   eval      P_LEN = %len(%trimr(P_FLD))          
C                   return