/ ReadColumn: what this routine does is to check whether a column */ block has been read from the file, then to extract from it the */ field corresponding to this column and convert it to buffer type. */ /
| 535 | /* field corresponding to this column and convert it to buffer type. */ |
| 536 | /***********************************************************************/ |
| 537 | void VCTCOL::ReadColumn(PGLOBAL g) |
| 538 | { |
| 539 | PTXF txfp = ((PTDBVCT)To_Tdb)->Txfp; |
| 540 | |
| 541 | #if defined(_DEBUG) |
| 542 | assert (!To_Kcol); |
| 543 | #endif |
| 544 | |
| 545 | if (trace(2)) |
| 546 | htrc("VCT ReadColumn: col %s R%d coluse=%.4X status=%.4X buf_type=%d\n", |
| 547 | Name, To_Tdb->GetTdb_No(), ColUse, Status, Buf_Type); |
| 548 | |
| 549 | if (ColBlk != txfp->CurBlk) |
| 550 | ReadBlock(g); |
| 551 | else if (ColPos == txfp->CurNum) |
| 552 | return; // Value is already there |
| 553 | |
| 554 | //ColBlk = txfp->CurBlk; done in ReadBlock |
| 555 | ColPos = txfp->CurNum; |
| 556 | Value->SetValue_pvblk(Blk, ColPos); |
| 557 | |
| 558 | // Set null when applicable |
| 559 | if (Nullable) |
| 560 | Value->SetNull(Value->IsZero()); |
| 561 | |
| 562 | } // end of ReadColumn |
| 563 | |
| 564 | /***********************************************************************/ |
| 565 | /* WriteColumn: Modifications are written back into column buffer. */ |
nothing calls this directly
no test coverage detected