As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you need access to myibi, contact us at myibi@ibi.com and provide your corporate email address, company, and name.
First of all welcome to Focal Point. I think you will find it very useful for getting answers to your development questions.
If you want to read this information with a WF program there is a table called syscolumn which contains the information you are looking for. The master file can be found in the ibi\srv81\home\catalog directory. You can set a WHERE statement to select on TBNAME.
Hope this helps.
Thank you for using Focal Point!
Chuck Wolff - Focal Point Moderator WebFOCUS 7x and 8x, Windows, Linux All output Formats
Posts: 2128 | Location: Customer Support | Registered: April 12, 2005
I'm not sure it will contain the CRJOINTYPE data, but you can probably get a lot of that info from:
CHECK FILE TABLE_CURR HOLD
TABLE FILE HOLD
PRINT *
END
WebFOCUS 8.1.03, Windows 7-64/2008-64, IBM DB2/400, Oracle 11g & RDB, MS SQL-Server 2005, SAP, PostgreSQL 11, Output: HTML, PDF, Excel 2010 : Member of User Group Benelux :
First of all welcome to Focal Point. I think you will find it very useful for getting answers to your development questions.
If you want to read this information with a WF program there is a table called syscolumn which contains the information you are looking for. The master file can be found in the ibi\srv81\home\catalog directory. You can set a WHERE statement to select on TBNAME.
Hope this helps.
please share the sample code. it's helps to resolve the issue.
DEFINE FILE SYSCOLUM JOIN_TYPE/A20= IF SYSCOLUM.SYSSEG.JOINTYPE EQ 'L' THEN 'Left Outer' ELSE IF SYSCOLUM.SYSSEG.JOINTYPE EQ 'I' THEN 'Inner' ELSE 'No Join Type'; END TABLE FILE SYSCOLUM BY SYSCOLUM.SYSCOLUM.TBNAME BY SYSCOLUM.SYSSEG.SEGNAME BY SYSCOLUM.SYSSEG.JOIN_TYPE WHERE SYSCOLUM.SYSCOLUM.TBNAME EQ '&TBNAME.(FIND SYSCOLUM.SYSCOLUM.TBNAME IN SYSCOLUM).TBNAME:.'; ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLEMBEDIMG ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty, $ ENDSTYLE END
Thank you for using Focal Point!
Chuck Wolff - Focal Point Moderator WebFOCUS 7x and 8x, Windows, Linux All output Formats
Posts: 2128 | Location: Customer Support | Registered: April 12, 2005
So here is the updated code but it only works in WF 8.2 the JOIN_EXPR field does not exist in SYSCOLUMN prior to that. Thanks Dan for your input on including PARENT and finding JOIN_EXPR!
DEFINE FILE SYSCOLUM JOIN_TYPE/A20= IF SYSCOLUM.SYSSEG.JOINTYPE EQ 'L' THEN 'Left Outer' ELSE IF SYSCOLUM.SYSSEG.JOINTYPE EQ 'I' THEN 'Inner' ELSE 'No Join Type'; END TABLE FILE SYSCOLUM BY SYSCOLUM.SYSCOLUM.TBNAME BY SYSCOLUM.SYSSEG.SEGNAME BY SYSCOLUM.SYSSEG.PARENT BY SYSCOLUM.SYSSEG.JOIN_TYPE BY SYSCOLUM.SYSSEG.JOIN_EXPR WHERE SYSCOLUM.SYSCOLUM.TBNAME EQ '&TBNAME.(FIND SYSCOLUM.SYSCOLUM.TBNAME IN SYSCOLUM).TBNAME:.'; ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLEMBEDIMG ON ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty, $ ENDSTYLE END
Thank you for using Focal Point!
Chuck Wolff - Focal Point Moderator WebFOCUS 7x and 8x, Windows, Linux All output Formats
Posts: 2128 | Location: Customer Support | Registered: April 12, 2005