RE RE RE RE Subtypes

unknown

Message from Mernin, James via eLink Also the Object Priveledges on the Admin Pages displays each SubType ID forthe current version of Livelink.JBM-----Original Message-----From: eLink Discussion: Livelink LiveReports DiscussionTo: eLink RecipientSent: 5/14/02 4:20 PMSubject: RE RE RE SubtypesRE RE RE SubtypesPosted by eLink on 05/14/2002 04:20 PMMessage from David Slimmon via eLinkThanks Marie,The list I posted was from a Livelink 9.0.0.1 I believe, and probablyalsowould have applied to 8.1.5.Have fun out there.Regards,Dave-----Original Message-----From: knowledge@opentext.com [mailto:knowledge@opentext.com]On Behalf OfeLink Discussion: Livelink LiveReports DiscussionSent: Tuesday, May 14, 2002 4:15 PMTo: eLink RecipientSubject: RE RE Subtypes[To reply to this thread, use your normal e-mail reply function.]============================================================Topic: Subtypeshttps://knowledge.opentext.com/knowledge/livelink.exe?func=ll&objId=2735404&objAction=viewDiscussion: Livelink LiveReports Discussionhttps://knowledge.opentext.com/knowledge/livelink.exe?func=ll&objId=2249677&objAction=viewLivelink Server:https://knowledge.opentext.com/knowledge/livelink.exe

eLink User

Message from Sean M Alderman via eLink--=-MskV+1I4w76dQo08AgHWContent-Type: text/plainContent-Transfer-Encoding: 7bitFor those who have the Builder, the attached script below generates anicely formated and sorted list of SubTypes.On Wed, 2002-05-15 at 13:39, eLink Discussion: Livelink LiveReportsDiscussion wrote:> RE RE RE RE Subtypes> Posted by eLink on 05/15/2002 01:39 PM> > Message from Mernin, James via eLink> > > Also the Object Priveledges on the Admin Pages displays each SubType ID for> the current version of Livelink.> > JBM> > -----Original Message-----> From: eLink Discussion: Livelink LiveReports Discussion> To: eLink Recipient> Sent: 5/14/02 4:20 PM> Subject: RE RE RE Subtypes> > RE RE RE Subtypes> Posted by eLink on 05/14/2002 04:20 PM> > Message from David Slimmon via eLink> > Thanks Marie,> > The list I posted was from a Livelink 9.0.0.1 I believe, and probably> also> would have applied to 8.1.5.> > Have fun out there.> > Regards,> Dave> > > > -----Original Message-----> From: knowledge@opentext.com [mailto:knowledge@opentext.com]On Behalf Of> eLink Discussion: Livelink LiveReports Discussion> Sent: Tuesday, May 14, 2002 4:15 PM> To: eLink Recipient> Subject: RE RE Subtypes> > [To reply to this thread, use your normal e-mail reply function.]> > ============================================================> > Topic: Subtypes> https://knowledge.opentext.com/knowledge/livelink.exe?func=ll&objId=2735> 404&objAction=view> > Discussion: Livelink LiveReports Discussion> https://knowledge.opentext.com/knowledge/livelink.exe?func=ll&objId=2249> 677&objAction=view> > Livelink Server:> https://knowledge.opentext.com/knowledge/livelink.exe> > [To reply to this thread, use your normal e-mail reply function.]> > ============================================================> > Discussion: Livelink LiveReports Discussion> https://knowledge.opentext.com/knowledge/livelink.exe?func=ll&objId=2249677&objAction=view> > Livelink Server:> https://knowledge.opentext.com/knowledge/livelink.exe> > -- Sean M. AldermanITRACK Systems AnalystPACE/NCI - NASA Glenn Research Center(216) 433-2795Calling a windowed operating system "Windows" is like naming anautomobile "Wheels."--=-MskV+1I4w76dQo08AgHWContent-Disposition: attachment; filename=listTypesSorted.lxeContent-Transfer-Encoding: quoted-printableContent-Type: text/plain; name=listTypesSorted.lxe; charset=ISO-8859-1// Print the Subtypes on this system.=0D=0Dfunction String listTypesSorted()=0D String g=0D Boolean useEcho =3D false=0D=0D RecArray typeRecArray =3D RecArray.Create( { "value", "name" } )=0D for g in Global.Application()=0D if ( g[ :4 ] =3D=3D "Type" )=0D Dynamic value =3D $Builder.PathUtils.GetValue( {{ -1, g }} )=0D RecArray.AddRecord( typeRecArray, { value, g } )=0D end=0D end=0D=0D RecArray.Sort( typeRecArray, 1 )=0D return( DumpRecArray( typeRecArray ) )=0D=0Dend=0D=0D// =20=0D// Script: DumpRecArray=0D//=0D// Parameters: 1) a RecArray or record to be output=0D// 2) Optional boolean to determine whether or not to use=20=0D// echo(). False by Default.=0D//=0D// Returns: If boolean is false: String containing Output.=0D// If boolean is true: String containing a success message.=0D//=0D// Output: Opens the Debug Window and outputs the RecArray to it.=0D//=0D// Notes: Will prompt to be sure if the RecArray has more than 500=0D// cells, and will limit the width of each column to 40 chars.=0D// Both of these values can be changed with the fourth and fifth=0D// initialized vars=0D//=0D=0Dfunction String DumpRecArray( \=0D Dynamic theTbl, \=0D boolean useEcho =3D FALSE )=0D=0D integer i=0D integer nCols=0D integer tblLen=0D list colLen=0D list colNames=0D integer thisColLen=0D string sepBuf=0D string outputBuffer =3D ""=0D String newLine=0D=0D Boolean useDefaultWidth =3D FALSE=0D Boolean row =3D FALSE=0D integer defaultColWidth =3D 20=0D integer maxColWidth =3D 40 // Maximum width of cell output=0D integer prompNOfCells =3D 500 // Prompt user if RA has more cells than t=his=0D Boolean sure =3D true // Initialize sure to the 'ok' value=0D integer totalLen =3D 0=0D=09=0D=0D if ( useEcho )=0D newLine =3D Str.Ascii(13) + Str.Ascii(10)=0D else=0D newLine =3D "
"=0D end=0D=0D if ( IsDefined( theTbl ) )=0D tblLen =3D Length( theTbl )=0D colNames =3D RecArray.FieldNames( theTbl )=0D nCols =3D Length( colNames )=0D =09=0D if Type( theTbl ) =3D=3D RecArray.RecordType=0D tblLen =3D 1=0D row =3D TRUE=0D end=0D =09=0D if ( ( nCols * tblLen ) > prompNOfCells )=0D outputBuffer =3D [LLAPI_Message.ThereAreALotOfCells] + newLine=0D end=0D =09=0D if sure && ( nCols > 0 )=0D=09=0D // Get the line width by summing each column's width plus separators=0D // Save each column's width in the colLen list.=0D =09=0D for i =3D 1 to nCols=0D=09=0D if ( useDefaultWidth )=0D thisColLen =3D defaultColWidth=0D else=0D thisColLen =3D MaxColLength( theTbl, i, maxColWidth )=0D end=0D=09=0D // We need space for the column header, so use that if it is wider=20=0D // than the column's data.=0D colLen[ i ] =3D Math.Max( thisColLen, Length( colNames[ i ] ) )=0D=09=0D totalLen +=3D colLen[ i ] + 1 // Add 1 char for between column separat=or=0D=09=0D end=0D=09=0D totalLen +=3D 1 // Add one more for the initial "|"=0D sepBuf =3D Str.Set( totalLen, "-" ) // Between-row separator=0D =09=0D =09=0D if ( tblLen > 0 && nCols > 0 )=0D=09=0D // Output column headers=0D outputBuffer =3D outputBuffer + FormatRow( colNames, colLen ) + newLine=0D outputBuffer =3D outputBuffer + sepBuf + newLine=0D=09=0D // Output each row=0D for i =3D 1 to tblLen=0D if row=0D outputBuffer =3D outputBuffer + FormatRow( RecArray.GetRecord( theTbl= ), colLen ) + newLine=0D else=0D outputBuffer =3D outputBuffer + FormatRow( RecArray.GetRecord( theTbl=, i ), colLen ) + newLine=0D end=0D end=0D=09=0D outputBuffer =3D outputBuffer + sepBuf + newLine=0D end=0D else=0D=09=0D outputBuffer =3D outputBuffer + Str.Format( "There are %1 rows and %2 co=lumns; I can't print that.", Str.String( tblLen ), Str.String( nCols ) )=0D =09=0D end=0D end=0D=0D if ( useEcho)=0D echo(outputBuffer)=0D return("Success!")=0D else=0D return(outputBuffer)=0D end=0Dend=0D=0D=0D//=0D// Return the length of the cell as an output string.=0D//=0Dfunction integer ValueLen( \=0D dynamic val )=0D=0D return ( Length( StrVal( val ) ) )=0Dend=0D=0D=0D//=0D// Convert the value of the cell to an output string=0D//=0Dfunction string StrVal( \=0D dynamic val )=0D=09=0D string retVal=0D=09=0D=0D if ( Type( val ) !=3D StringType )=0D retVal =3D Str.ValueToString( val )=0D else=0D retVal =3D val=0D end=0D=09=0D return ( retVal )=0Dend=0D=0D=0D//=0D// Get the maximum cell width for a column.=0D//=0D// Actually, it cheats, and only checks the first 100 rows of=20=0D// the column, and assumes it will have found a max by then.=0D//=0D// Also note that a maximum column width can be passed in, and it will=0D// stop looking for a max if it exceeds the not-to-exceed width. This=20=0D// value defaults to 0 (no max)=0D//=0Dfunction integer MaxColLength( \=0D Dynamic theTbl, \=0D integer whichCol, \=0D integer maxColWidth =3D 0 )=0D=09=0D Boolean row=0D integer i=0D integer len=0D integer vLen=0D integer bogus=0D Record theRow=0D=09=0D integer maxl =3D 0=0D =09=0D=0D=09=0D if Type( theTbl ) =3D=3D RecArray.RecordType=0D row =3D TRUE;=0D theRow =3D theTbl=0D bogus =3D 1=0D else=0D bogus =3D Math.Min( Length( theTbl ), 100 )=0D row =3D FALSE=0D end=0D=09=0D for i =3D 1 to bogus=0D=0D if !row=0D theRow =3D theTbl[ i ]=0D end=0D vLen =3D ValueLen( theRow[ whichCol ] )=0D=0D maxl =3D Math.Max( maxl, vLen )=0D =09=0D if ( ( maxColWidth !=3D 0 ) && ( maxl =3D=3D maxColWidth ) )=0D break;=0D end=0D=0D end=0D=09=0D return( maxl )=0Dend=0D =09=0D=0D//=0D// For the Row passed in as theRow, format each column into an output=0D// buffer with column width limited by the values in colLens and add=0D// a separator=0D//=0Dfunction string FormatRow( \=0D List theRow, \=0D list colLens )=0D=0D string colBuf=0D string colFill=0D integer i=0D integer fillLen=0D integer bufLen=0D=20=0D string outBuf =3D "|" // Start with an initial separator=0D =20=0D=09=0D // For each column=0D for i =3D 1 to Length( colLens )=0D=0D // Get the cell as a string, and get it's length=0D colBuf =3D StrVal( theRow[ i ] )=0D bufLen =3D Length( colBuf )=0D=0D // If the cell width is wider than the width we want to output...=0D if ( bufLen >=3D colLens[ i ] )=0D=0D // add just as many chars as we want to show to the output buffer=0D outBuf +=3D colBuf[ 1:colLens[ i ] ]=0D=0D else=0D=0D // otherwise, add the cell to the output buffer=0D outBuf +=3D colBuf=0D =09=0D // and then pad it to the desired width with blanks=0D fillLen =3D colLens[ i ] - bufLen=0D colFill =3D Str.Set( fillLen, " " )=0D outBuf +=3D colFill=0D=0D end=0D =09=0D // Add a terminal separator=0D outBuf +=3D "|"=0D=0D end=0D=09=0D return( outBuf )=0Dend=0D--=-MskV+1I4w76dQo08AgHW--