COM***********************************************************
COM The original concept for this was provided by ACL and has remained pretty much unchanged
COM since the solution was provided in 2005.  This is the combination currently utilized by
COM Porter Broyles.
COM***********************************************************

SET LOG TO Temp_Log
DISPLAY
SET LOG

IMPORT PRINT TO "%v_output_table_name%2" "%v_output_table_name%2.FIL" FROM "Temp_Log.LOG" 0 RECORD "Detail" 0 1 0 TEST 0 2 AT 1,1,1 0 "E" TEST 1 0 AT 1,1,0 0 "Log" TEST 1 0 AT 1,1,0 0 "Name" TEST 1 0 AT 1,1,0 7 "Switching" FIELD "full_record" C AT 1,1 SIZE 100,1 DEC 0 WID 88  PIC "" AS "" OPEN %v_output_table_name%

DEFINE FIELD field_name COMPUTED SUBSTR(SPLIT(full_record, " ", 1), 1, 33)

DEFINE FIELD type COMPUTED

  CLEAN(SUBSTR(full_record, LEN(ALLTRIM(field_name)) + 2, 8), " ") IF LEN(ALLTRIM(field_name)) >= 15
  CLEAN(SUBSTR(full_record, 16, 8), " ")

DEFINE FIELD field_start COMPUTED

  VALUE(SUBSTR(full_record, LEN(ALLTRIM(field_name)) + 11, 4), 0) IF LEN(ALLTRIM(field_name)) >= 15
  VALUE(SUBSTR(full_record, 25, 4), 0)

DEFINE FIELD field_length COMPUTED

  VALUE(SUBSTR(full_record, LEN(ALLTRIM(field_name)) + 15, 4), 0) IF LEN(ALLTRIM(field_name)) >= 15
  VALUE(SUBSTR(full_record, 29, 4), 0)

EXTRACT FIELDS field_name type field_start field_length TO "%v_output_table_name%"