dcl-imenu-generic-expression

dcl-imenu-generic-expression is a variable defined in `dcl-mode.el'.
Its value is

((nil "^\\$[ 	]*\\([A-Za-z0-9_$]+\\):[ 	]+SUBROUTINE\\b" 1)
 ("Labels" "^\\$[ 	]*\\([A-Za-z0-9_$]+\\):\\([ 	]\\|$\\)" 1)
 ("GOTO" "\\s-GOTO[ 	]+\\([A-Za-z0-9_$]+\\)" 1)
 ("GOSUB" "\\s-GOSUB[ 	]+\\([A-Za-z0-9_$]+\\)" 1)
 ("CALL" "\\s-CALL[ 	]+\\([A-Za-z0-9_$]+\\)" 1))

Documentation:
Default imenu generic expression for DCL.

The default includes SUBROUTINE labels in the main listing and
sub-listings for other labels, CALL, GOTO and GOSUB statements.
See `imenu-generic-expression' for details.

You can customize this variable.