Macro: CLI_Get_Database_Attribute

Module location: cli.pkg line 751 (view source)

    #IFSAME !4 TO
        Move (Repeat(Character(" "), 255)) To CLI$StrDummy
        Call_driver 0 !1 Function CLI_GETDBATTRIBUTE Callback 0 Passing CLI$StrDummy !3 !2 Result CLI$IntDummy
        Move (Left(CLI$StrDummy, Pos(Character(0), CLI$StrDummy) - 1)) To !5
    #ELSE IFSAME !5 TO
        Move "" To CLI$StrDummy
        Call_driver 0 !1 Function CLI_GETDBATTRIBUTE0 Callback 0 Passing CLI$StrDummy CLI$StrDummy !4 Result CLI$IntDummy
        Move (Repeat(Character(" "), 255)) To CLI$StrDummy
        Call_driver 0 !1 Function CLI_GETDBATTRIBUTE Callback 0 Passing CLI$StrDummy !3 !2 Result CLI$IntDummy
        Move (Left(CLI$StrDummy, Pos(Character(0), CLI$StrDummy) - 1)) To !6
    #ENDIF