How to add data to advert with BL600?

DIM rc, s$, dn$ DIM ad$:ad$="\01\02\03\04" DIM prAddr$:prAddr$="" DIM advRpt$, scnRpt$ rc = BleScanRptInit(advRpt$) dn$ = BleGetDeviceName$() print "BleGetDeviceName$() : ";dn$ //Add device name to scan Report rc = BleAdvRptAppendAD(s$, 0x09, dn$) rc = BleAdvRptAppendAD(advRpt$,0x31,ad$) print "rc for BleAdvRptAppendAD : ";rc;"

" rc = BleAdvRptsCommit(advRpt$,scnRpt$)  print "rc for BleAdvRptsCommit(advRpt$,scnRpt$) : ";rc;"

" print "

Free space in advert report: ";BleAdvRptGetSpace(advRpt$);" bytes." print "

Free space in scan report: ";BleAdvRptGetSpace(scnRpt$);" bytes." rc = BleAdvertStart(2,prAddr$, 100, 0,0)