CLIPPER HB_UNDOC4() { char szText[ 25 ]; _retds( _pards( 1 ) ); hb_strncpy( szText, _pards( -1 ), sizeof( szText ) - 1 ); szText[ 3 ] = '1'; _retds( szText ); }
CLIPPER HB_DATE2() { _retds( _pards( 1, 1 ) ); }
CLIPPER HB_DATE1() { _retds( _pards( 1 ) ); }
CLIPPER HB_UNDOC13() { _retds( _pards( 1 ) ); _stords( "20010101", -1 ); }
CLIPPER HB_STOD( void ) { /* The length check is a fix to avoid buggy behaviour of _retds() */ _retds( ( ISCHAR( 1 ) && _parclen( 1 ) == 8 ) ? _parc( 1 ) : " " ); }