Issue with prodatasets PLEASE HELP

Posted by Darrick Bush on 23-Feb-2017 16:32

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 */

All Replies

Posted by Fernando Souza on 23-Feb-2017 16:58

Does increasing the -s startup parameter avoid the error ?

Posted by Darrick Bush on 24-Feb-2017 09:00

First thing we did....

Posted by Robin Brown on 08-Mar-2017 10:01

I suggest logging a call with Tech Support.

This thread is closed