VOID
doretsel(
QRB * qrb
) {
switch( qrb->step )
{
case 0: /* get row descriptor */
if ( qrrowdesc( qrb ) == OK )
{
qrinitsz( qrb );
qrb->step ++;
}
/* else- bad row, don't pass go (IIflush()?) */
break;
case 1: /* format top of header lien */
/* only show top line if not in silent mode */
if (!TrulySilent)
{
qrputc( qrb, '\n' );
printhor( qrb, DRCH_TT );
}
qrb->step ++;
break;
case 2: /* format column names */
/* don't show titles if \notitles in effect */
if (Showtitles)
qrnamfmt( qrb );
qrb->step ++;
break;
case 3: /* format final header line */
/* if no titles or silent mode don't put header line */
if (Showtitles && !TrulySilent)
printhor( qrb, DRCH_X );
qrb->step ++;
break;
case 4: /* return and output a domain */
if ( IIqrfetchret( qrb ) != OK ) /* !OK -> done w/ retrieve */
{
/* no header for -S flag */
if (!TrulySilent)
printhor( qrb, DRCH_BT ); /* put out final header line */
IIflush( (char *)0, 0 );
qrb->step = 0;
}
break;
}
return;
}
void
IIpflush(char *file_nm,i4 line_no)
{
IIflush(file_nm,line_no);
}