The source code:

Report Z_NO_TCODE.

DATA: t_trdir TYPE STANDARD TABLE OF trdir,
t_tstc TYPE STANDARD TABLE OF tstc,
s_trdir TYPE trdir.

SELECT * FROM trdir INTO TABLE t_trdir
WHERE ( name LIKE ‘Z%’ OR name LIKE ‘Y%’ )
AND subc = ’1′.

SELECT * FROM tstc INTO TABLE t_tstc
WHERE tcode LIKE ‘Z%’ OR tcode LIKE ‘Y%’.

SORT t_tstc BY pgmna.

WRITE: / ‘List of programs with no tcodes’.
SKIP 1.

LOOP AT t_trdir INTO s_trdir.
READ TABLE t_tstc TRANSPORTING NO FIELDS
WITH KEY pgmna = s_trdir-name.

IF sy-subrc ne 0.
WRITE: / s_trdir-name.
ENDIF.

ENDLOOP.

You might also be interested in these posts:

1. ABAP program to get User Exits and BADI List for a T-Code
2. ABAP Program to search specific words(string) in SAP Programs
3. ABAP Program to Track ‘Hard Coding’ in Programs