Page History

...

Note also that in this sample the drive letter is returned as a char (2) in format A:, B:, etc :

FUNCTION OPTIONS(*DIRECT)

DEFINE FIELD(#OV_RESULT) TYPE(*CHAR) LENGTH(50)

DEFINE FIELD(#OV_DRIVE) TYPE(*CHAR) LENGTH(2)

DEFINE FIELD(#OV_TYPE) TYPE(*CHAR) LENGTH(3)

DEF_LIST NAME(#OV_DRIVD) FIELDS(#OV_DRIVE #OV_TYPE)

DEF_LIST NAME(#OV_DRIVW) FIELDS(#OV_DRIVE #OV_TYPE) TYPE(*WORKING) ENTRYS(26)

********** COMMENT(Extract list off drives and display)

USE BUILTIN(OV_QUERY_SYS_INFO) WITH_ARGS(DRIV_LIST) TO_GET(#OV_RESULT #OV_DRIVW)

CLR_LIST NAMED(#OV_DRIVD)

SELECTLIST NAMED(#OV_DRIVW)

ADD_ENTRY TO_LIST(#OV_DRIVD)

ENDSELECT

DISPLAY BROWSELIST(#OV_DRIVD)