/ ReadColumn: what this routine does is to access the columns of */ list, extract their value and convert it to buffer type. */ /
| 539 | /* list, extract their value and convert it to buffer type. */ |
| 540 | /***********************************************************************/ |
| 541 | void OCCURCOL::ReadColumn(PGLOBAL g) |
| 542 | { |
| 543 | PTDBOCCUR tdbp = (PTDBOCCUR)To_Tdb; |
| 544 | PCOL *col = tdbp->Col; |
| 545 | |
| 546 | for (; I < tdbp->Mult; I++) { |
| 547 | col[I]->ReadColumn(g); |
| 548 | |
| 549 | if (Nullable || !col[I]->GetValue()->IsZero()) |
| 550 | break; |
| 551 | |
| 552 | } // endfor I |
| 553 | |
| 554 | if (I == tdbp->Mult) { |
| 555 | // No more values, go to next source row |
| 556 | tdbp->RowFlag = 2; |
| 557 | I = 0; |
| 558 | return; |
| 559 | } // endif I |
| 560 | |
| 561 | // Set the OCCUR column value from the Ith source column value |
| 562 | Value->SetValue_pval(col[I++]->GetValue()); |
| 563 | tdbp->RowFlag = 1; |
| 564 | } // end of ReadColumn |
| 565 | |
| 566 | |
| 567 | // ------------------------ RANKCOL functions --------------------------- |
no test coverage detected