[14/09/06@23:56:58.131+0200] P-008232 T-008984 1 4GL SYSERROR Unexpected Exception: Entry 3 is outside the range of list c:\tfs\ef71\1\work\bl,c:\tfs\ef71\1\work\i. (560)
[14/09/06@23:56:58.131+0200] P-008232 T-008984 1 4GL CALLSTACK Initialize com.cintegrity.ABL2DB.Driver at line 74 (.\com\cintegrity\ABL2DB\Driver.cls)
[14/09/06@23:56:58.131+0200] P-008232 T-008984 1 4GL CALLSTACK abl2db_launcher.p at line 94 (.\abl2db_launcher.p)
[14/09/06@23:56:58.131+0200] P-008232 T-008984 1 4GL APPL End ABL2DB
if opsys = "win32"
then do minWhich = 1 to num-entries(propath, "," ):
if substring(entry( minWhich, propath, "," ) ,2 ,1 ) <> ":"
then do:
log-manager:write-message (substitute("Driver: Propath entry &1 does not contain required drive letter", entry(minWhich, chPropath, ",") )).
undo, throw new Progress.Lang.AppError( "Aborting." ).
end.
end.
method public void Initialize():
define variable minWhich as integer no-undo.
define variable mchEntry as character no-undo.
if num-entries(chSourceDirectoryList, "/") > num-entries(chSourceDirectoryList, "~\")
then
assign
chSeparator = "/"
chAntiSeparator = "~\"
.
else
assign
chSeparator = "~\"
chAntiSeparator = "/"
.
if chPropath > "" then propath = chPropath + "," + propath.
if opsys = "win32"
then do minWhich = 1 to num-entries(propath, "," ):
mchEntry = entry( minWhich, propath, "," ).
if mchEntry = "."
then log-manager:write-message ( "Driver: Do you *really* need Current Directory ['.'] in the Propath. Might cause trouble." ).
else if substring( mchEntry ,2 ,1 ) <> ":"
then do:
log-manager:write-message (substitute("Driver: Propath entry &1 does not contain required drive letter", mchEntry )).
undo, throw new Progress.Lang.AppError( "Aborting." ).
end.
end.
end method.
if mchEntry = "." then do:
file-info:file-name = ".".
mchEntry = file-info:full-pathname.
end.
if substring( mchEntry, 2, 1 ) <> ":" then do:
[14/09/07@22:37:43.715+0200] P-007304 T-001536 1 4GL APPL Start CompileDirectory Tree
[14/09/07@22:37:43.733+0200] P-007304 T-001536 1 4GL APPL End CompileDirectory Tree with 24 exceptions
Start CompileDirectoryTree
CompileDirectoryTree: Source direectory c:\tfs\ef71\1\work\bl not in Source Directory List for c:\tfs\ef71\1\work\bl\assets\ifallgen\gdpr_cald.p
[14/09/07@22:51:40.878+0200] P-007912 T-004764 1 4GL -- Logging level set to = 2
[14/09/07@22:51:40.878+0200] P-007912 T-004764 1 4GL -- No entry types are activated
[14/09/07@22:51:40.878+0200] P-007912 T-004764 1 4GL -- Logging level set to = 3
[14/09/07@22:51:40.878+0200] P-007912 T-004764 1 4GL APPL Start ABL2DB Test
[14/09/07@22:51:41.156+0200] P-007912 T-004764 1 4GL APPL Start CompileDirectory Tree
[14/09/07@23:55:29.183+0200] P-007912 T-004764 1 4GL APPL End CompileDirectory Tree with 16 exceptions
[14/09/07@23:55:29.242+0200] P-007912 T-004764 1 4GL APPL Start BuildSchema
[14/09/07@23:55:29.243+0200] P-007912 T-004764 1 4GL APPL End BuildSchema with 0 exceptions
[14/09/07@23:55:29.269+0200] P-007912 T-004764 1 4GL APPL Start BuildDiskFiles
[14/09/07@23:55:37.536+0200] P-007912 T-004764 1 4GL APPL End BuildDiskFiles with 0 exceptions
[14/09/07@23:55:37.571+0200] P-007912 T-004764 1 4GL APPL Start BuildSubUnits
[14/09/07@23:55:43.775+0200] P-007912 T-004764 1 4GL APPL End BuildSubUnits with 2393 exceptions
[14/09/07@23:55:43.806+0200] P-007912 T-004764 1 4GL APPL Start BuildBlocks
[14/09/07@23:55:45.415+0200] P-007912 T-004764 1 4GL APPL End BuildBlocks with 2393 exceptions
[14/09/07@23:55:45.447+0200] P-007912 T-004764 1 4GL APPL Start of BuildRunLinks
[14/09/07@23:55:47.119+0200] P-007912 T-004764 1 4GL APPL End of BuildRunLinks with 2393 exceptions
[14/09/07@23:55:47.163+0200] P-007912 T-004764 1 4GL APPL Start BuildTableLinks
[14/09/07@23:55:48.840+0200] P-007912 T-004764 1 4GL APPL End of BuildTableLinks with 2393 exceptions
[14/09/07@23:55:48.858+0200] P-007912 T-004764 1 4GL APPL Start of GetDescriptions
[14/09/07@23:55:51.050+0200] P-007912 T-004764 1 4GL APPL End of GetDescriptions with 0 exceptions
[14/09/07@23:55:51.071+0200] P-007912 T-004764 1 4GL APPL Start of BuildMenu
[14/09/07@23:55:51.071+0200] P-007912 T-004764 1 4GL APPL BuildMenu ERROR: MenuFile '' not found or not writeable
[14/09/07@23:55:51.085+0200] P-007912 T-004764 1 4GL -- (Procedure: 'BuildMenu com.cintegrity.ABL2DB.BuildMenu' Line:47) Invalid or inappropriate handle value given to DELETE OBJECT or DELETE PROCEDURE statement. (5425)
[14/09/07@23:55:51.085+0200] P-007912 T-004764 1 4GL APPL BuildMenu: Unable to initialize.
[14/09/07@23:55:51.085+0200] P-007912 T-004764 1 4GL APPL End ABL2DB
Exception list for build subunits of c:\tfs\ef71\1\work\bl
BuildSubUnits: DiskFile not found for c:\tfs\ef71\1\work\bl\assets\ifallgen\gdpr_cald.p
BuildSubUnits: DiskFile not found for c:\tfs\ef71\1\work\bl\assets\ifallgen\gdpr_calm.p
...
define variable chDataBaseList as character no-undo initial "exactcs,edis".
define variable chDataBaseConnectParams as character no-undo initial "-S 47110|-S 47111".
define variable chSchemaDirectory as character no-undo initial "".
define variable chSchemaFileList as character no-undo initial "".
define variable chSourceDirectoryList as character no-undo initial "c:\tfs\ef71\1\work\bl". /* <- this was c:\tfs\ef71\1\work\bl\assets\ifallgen to build a subsection */
define variable chRunDirectoryList as character no-undo initial "c:\temp\abl2db\work\run".
define variable chXrefDirectoryList as character no-undo initial "c:\temp\abl2db\work\xrf".
define variable chListDirectoryList as character no-undo initial "c:\temp\abl2db\work\lst".
define variable chDebugDirectoryList as character no-undo initial "c:\temp\abl2db\work\debug".
define variable chReportDestination as character no-undo initial "c:\temp\abl2db\work\rpt".
define variable chPropath as character no-undo initial "c:\tfs\ef71\1\work\bl,c:\tfs\ef71\1\work\i".
define variable chMenuFile as character no-undo initial "".
define variable chMenuItemFile as character no-undo initial "".
define variable chFunctionalUnitFile as character initial "".
define variable chPrimaryLog as character initial "c:\temp\abl2db\ABL2DB.lg".
Driver: Unexpected Exception: Entry 2 is outside the range of list c:\temp\abl2db\work\run. (560)
If you have all your .is in a separate directory tree ... it never ceases to amaze me how people organize their code ... then, yes, you will need that directory in the source list so that it will be scanned and you will have to have a corresponding entry in the run, xref, etc. directories so that there is a match. I haven't tried just repeating the same directory N times, but I see no reason why that would not work. I have considered allowing only a single target, but that greatly complicates the lookup.
Exception list for build subunits of c:\tfs\ef71\1\work\bl,c:\tfs\ef71\1\work\i
BuildSubUnits: DiskFile not found for c:\tfs\ef71\1\work\bl\assets\ifallgen\gdpr_cald.p
BuildSubUnits: DiskFile not found for c:\tfs\ef71\1\work\bl\assets\ifallgen\gdpr_calm.p