/*******************************************************************************
 Header line will point at the separator line ABOVE the column headers. Eg,
 +--------------------------------------------------------------------------...
 ! RAPPORTAVTALNUMMER ! ANTAL_EX_BEST_RAPP ! DAT_F諶EG_RAPUTSKR ! RAPPMOTT_K...
 +--------------------------------------------------------------------------...
*******************************************************************************/
extract_db2_columns_names:

ARG header_line

curr = header_line + 1
line = get_current_line(curr)
db2_columns = ','
DO WHILE line <> ' '
	PARSE VAR line next_column '!' line
	db2_columns = db2_columns',',next_column  /* extra comma here causes crash */
END	
/* Throw away the first comma */
db2_columns = SUBSTR(db2_columns,2)

RETURN db2_columns