I am not aware of a report like you have suggested. However, here is a simple script that might give you a start on developing ove.
Names Default To Here( 1 );
dt = New Table( "Table of Contents",
New Column( "Table", character ),
New Column( "Variable", character ),
New Column( "Row 1", character ),
New Column( "Row 2", character )
);
table = 1;
While( Try( Data Table( table ), "" ) != "",
tableName = Data Table( table ) << get name;
colNames = Data Table( table ) << get column names( string );
If( tableName != "Table of Contents",
For Each( {col}, colNames,
dt << add rows( 1 );
dt:Table[N Rows( dt )] = tableName;
dt:Variable[N Rows( dt )] = col;
If( N Rows( Data Table( table ) ) >= 1,
dt:Row 1[N Rows( dt )] = Char( Column( Data Table( table ), col )[1] )
);
If( N Rows( Data Table( table ) ) >= 2,
dt:Row 2[N Rows( dt )] = Char( Column( Data Table( table ), col )[2] )
);
)
);
table++;
);
Jim