VAR-LENGTH Directive This directive forces an alphanumeric COBOL field to be defined as VARCHAR in the database. $EFD VAR-LENGTH or *(( EFD VAR-LENGTH )) or *>(( EFD VAR-LENGTH )) Example $EFD VAR-LENGTH 03 CUS-NAME PIC X(32).