REPOS RDK info (OpenInsight 32-Bit)
At 12 OCT 2009 10:04:27AM Martin Drenovac wrote:
I want to programatically (LIST) the Repos or what ever table to detail what is in each RDK deployment.
How can I achieve this?
Having done that how do you delete a deployment definition?
TIA
At 12 OCT 2009 10:25AM Sean FitzSimons wrote:
Martin,
The tables you need to access are:
SYSREPOSVIEWS - contain Repository Views with a key structure of *. There is a Insert record RDKVIEW_Equates that contains the structure of the Repository View record.
SYSREPOSRELEASES - contain Deployment Definitions with a key structure of *. There is a Insert record RDKDEPLOY_Equates that contains the structure of the Deployment Definition record.
A delete_row may be performed against each table for the items you wish to delete.
Thank you,
Sean
At 12 OCT 2009 04:03PM Ray Chan wrote:
Martin,
Here's some code we use to display our reposview. We call this from a Click event after we tell it what Reposview we want to see listed. You may need to modify it to suit your specific needs.
Open [/color]"SYSREPOSVIEWS" [/color]To [/color]RDK_fh [/color]Else [/color] End [/color] [/color]ReposView_Key=Get_Property([/color]@Window[/color]:[/color]'.EDL_REPOSVIEW'[/color],[/color]'DEFPROP'[/color]) [/color] Exit=XLATE([/color]"SYSREPOSVIEWS"[/color],ReposView_Key,[/color]''[/color],[/color]'X'[/color]) [/color] [/color]If [/color]Len(exit) [/color]Else [/color]Msg([/color]@window[/color],[/color]"Not a valid ReposView!"[/color]) [/color]return End [/color] [/color]Option=Get_Property([/color]@Window[/color]:[/color]'.RAG_OPTION'[/color],[/color]'DEFPROP'[/color]) [/color] [/color]Read [/color]RDK_rec [/color]from [/color]RDK_fh, ReposView_Key [/color]Then [/color]Content=RDK_Rec11] [/color]Count_Cnt=Count(Content,[/color]@VM[/color]) + (Content NE [/color]''[/color]) [/color]If [/color]Option=[/color]'P' [/color]Then [/color]Output=[/color]3 [/color]End Else [/color]OutPut=[/color]99 [/color]End [/color]Output1[/color],[/color]2] [/color]= [/color]0 [/color];[/color]//display all print buttons including print setup [/color]Output1[/color],[/color]5] [/color]= [/color]1 [/color]Output1[/color],[/color]6] [/color]= [/color]7 [/color];[/color]//mouse (click and drag) and keyboard support for scrolling [/color] [/color]Output2] [/color]= -[/color]1 [/color];[/color]//zoom to page width [/color] [/color]Output3] [/color]= [/color]10 [/color];[/color]//10% from left edge of screen [/color] [/color]Output4] [/color]= [/color]10 [/color];[/color]//10% from top of screen [/color] [/color]Output5] [/color]= [/color]90 [/color];[/color]//10% from right of screen [/color] [/color]Output6] [/color]= [/color]75 [/color];[/color]//25% from bottom of screen [/color] // L T R B W H [/color]Margin=[/color]'1'[/color]:[/color]@FM[/color]:[/color]'.5'[/color]:[/color]@FM[/color]:[/color]'.25'[/color]:[/color]@FM[/color]:[/color]'.25'[/color]:[/color]@FM[/color]:[/color]'8.5'[/color]:[/color] @FM[/color]:[/color]'11' [/color] [/color]stat=Set_Printer([/color]'INIT'[/color],[/color]''[/color],[/color]'RDK Content'[/color],Margin,[/color]''[/color],Output,[/color]''[/color]) Font=Get_Printer([/color]'FONT'[/color]) Font4] [/color]= [/color]1 [/color]Font2] [/color]= [/color]14 [/color]stat=Set_Printer([/color]'Font'[/color],font) stat=Set_Printer([/color]'TEXT'[/color],[/color]'RDK Content For ReposView: '[/color]:ReposView_Key) Rdk_date=RDK_Rec1] [/color]If [/color]Index(Rdk_date,[/color]'_'[/color],[/color]1[/color]) [/color]Then [/color]stat=Set_Printer([/color]'TEXT'[/color],[/color]'This RDK Date is from: '[/color]:Fmt(Field(Rdk_date,[/color]'_'[/color],[/color]1[/color]),[/color]'L##-##-##'[/color]):[/color]' to: '[/color]:Fmt(Field(Rdk_date,[/color]'_'[/color],[/color]2[/color]),[/color]'L##-##-##'[/color])) [/color]End Else [/color]stat=Set_Printer([/color]'TEXT'[/color],[/color]'This RDK Date is from: '[/color]:Field(Rdk_date,[/color]'-'[/color],[/color]1[/color]):[/color]' to: '[/color]:Field(Rdk_date,[/color]'-'[/color],[/color]2[/color])) [/color]End [/color]stat=Set_Printer([/color]'TEXT'[/color],[/color]'Printed On: '[/color]:Oconv(Date(),[/color]'D4-'[/color]):[/color]' Printed By: '[/color]:[/color]FUNCTION[/color](GET_USERNAME(X))) stat=Set_Printer([/color]'Header'[/color],Space([/color]80[/color]):[/color]"Page 'P'"[/color]) J=[/color]0 [/color]For [/color]I=[/color]1 [/color]TO [/color]Count_Cnt Line=Content1[/color],I] Cnt_Line=Count(Line,[/color]':'[/color]) [/color]If [/color]Index(Line,[/color]":"[/color],[/color]1[/color]) [/color]Then [/color]Font4] [/color]= [/color]0 [/color]Font2] [/color]= [/color]10 [/color]stat=Set_Printer([/color]'Font'[/color],font) [/color]If [/color]Line[/color]1[/color],[/color]1[/color]=[/color]'2' [/color]Then [/color]Font4] [/color]= [/color]1 [/color]Font2] [/color]= [/color]12 [/color]J=[/color]0 [/color]stat=Set_Printer([/color]'Font'[/color],font) stat=Set_Printer([/color]'TEXT'[/color]) line=Field(Line,[/color]':'[/color],[/color]2[/color],Cnt_Line) stat=Set_Printer([/color]'TEXT'[/color],line) [/color]End Else [/color]line=Field(Line,[/color]':'[/color],[/color]2[/color],Cnt_Line) J=J + [/color]1 [/color]stat=Set_Printer([/color]'TEXT'[/color],J:[/color]'. '[/color]:line) [/color]End End Else [/color]Font4] [/color]=[/color]1 [/color]Font2] [/color]= [/color]14 [/color]stat=Set_Printer([/color]'Font'[/color],font) stat=Set_Printer([/color]'TEXT'[/color]) stat=Set_Printer([/color]'TEXT'[/color],line) J=[/color]0 [/color]End Next [/color]I [/color] [/color]End [/color]stat=Set_Printer([/color]'TERM'[/color])[/color][/color][/size]HTH. Good luck,
Ray Chan
At 12 OCT 2009 04:48PM Martin Drenovac wrote:
Cheers guys - thank you so much.
At 18 OCT 2009 06:35AM Chris Meyer wrote:
Have you considered using the Dave Goddard rdkinstall routine. This displays all you need at the client including dictionaries. Ring David for further details.