Anyone know of any known issues regarding ProDataSets ad Array's?
I am dumping a table with about 9 arrays....to a json file.
Few samples of db structure....
notes [5] * char * x(70) * Notes * Ref # 56 *
opt [6] * char * x(50) * Opt * Ref # 13-18 *
othplan [2] * logical * yes/no * Other Plan * Ref # 29-30
when the arrays are hidden , the json file is created...
However, when they are not hidden, I get the
SYSTEM ERROR: -s exceeded. Raising STOP condition and attempting to write stack trace to file 'procore'. Consider increasing -s startup parameter. (5635)
Even more strange when I reduce BATCH-SIZE to 95...it works.
CODE IS BELOW......
DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE cWhereClause AS CHARACTER NO-UNDO.
DEFINE VARIABLE hbfttCorpa AS HANDLE NO-UNDO.
DEFINE VARIABLE hRowid AS ROWID NO-UNDO.
DEFINE VARIABLE iBatchSize AS INTEGER NO-UNDO.
DEFINE VARIABLE iCounter AS INTEGER NO-UNDO.
DEFINE TEMP-TABLE ttCorpa NO-UNDO LIKE corpa.
DEFINE TEMP-TABLE ttCorpaIMA NO-UNDO LIKE corpaima.
DEFINE DATA-SOURCE dsCorpa FOR corpa.
DEFINE DATASET OneTIS_Corpa FOR ttCorpa.
BUFFER ttCorpa:HANDLE:ATTACH-DATA-SOURCE (DATA-SOURCE dsCorpa:HANDLE).
ASSIGN cWhereClause = "WHERE type1 = 'CDO'"
iCounter = 1
iBatchSize = 1000
hbfttCorpa = BUFFER ttCorpa:HANDLE
hbfttCorpa:BATCH-SIZE = iBatchSize.
DATA-SOURCE dsCorpa:FILL-WHERE-STRING = cWhereClause.
ASSIGN
hbfttCorpa:BUFFER-FIELD('crate'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('cstal'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('curr'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('notes'):SERIALIZE-HIDDEN = TRUE
/* hbfttCorpa:BUFFER-FIELD('opt'):SERIALIZE-HIDDEN = TRUE */
hbfttCorpa:BUFFER-FIELD('othplan'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('px'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('pxdt'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('ratio'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('rcdsh'):SERIALIZE-HIDDEN = TRUE
hbfttCorpa:BUFFER-FIELD('smseq'):SERIALIZE-HIDDEN = TRUE
/* hbfttCorpa:BUFFER-FIELD('source'):SERIALIZE-HIDDEN = TRUE */
/* hbfttCorpa:BUFFER-FIELD('rcdsh'):SERIALIZE-HIDDEN = TRUE */
.
REPEAT:
ASSIGN cFileName = "/sccs/work/ayb/test.json".
IF hRowid NE ? THEN
DATA-SOURCE dsCorpa:RESTART-ROWID(1) = hRowid .
DATASET OneTIS_Corpa:EMPTY-DATASET().
DATASET OneTIS_Corpa:FILL().
MESSAGE "DARRICK 1" SKIP cFileName VIEW-AS ALERT-BOX.
DATASET OneTIS_Corpa:WRITE-JSON("FILE", cFileName, TRUE).
MESSAGE "TERRY" VIEW-AS ALERT-BOX.
ASSIGN
hRowid = DATA-SOURCE dsCorpa:NEXT-ROWID()
iCounter = iCounter + 1.
IF hRowid = ? THEN LEAVE.
END. /* REPEAT */
Does increasing the -s startup parameter avoid the error ?
First thing we did....
I suggest logging a call with Tech Support.