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.
Join the TIBCO Community TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.
From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
Request access to the private WebFOCUS User Group (login required) to network with fellow members.
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.
I am trying to only include a field (IVCITM) in the report only if there is no Cross Reference Type (IVXRT_CODE = T). So for every Item Number with Cross Reference Type (IVXRT_CODE = T) then I dont want to print that Item Number. How do I go about doing this?
I dont think I am explaining myself clearly. I am printing 4 fields: Item Number (IMLITM), Inventory Code (IM_C20_CODE), Quantity on Hand (LIPQOH), and Cross Ref Item Number (IVCITM). So for every Item Number there are multiple Cross Ref Item Numbers. What i need to do is only print the Item Number that includes the field Cross Ref Item Number (IVCITM) in the report only if there is no Cross Ref Type (IVXRT_CODE = T).
I tried using the Define that Francis posted but that didnt work. It just eliminated the Cross Reference Item Number but still printed the Item Number.
Below is the code I am using:
DEFINE FILE CAR CROSS/A25 = IF IVXRT_CODE EQ 'T' THEN ' ' ELSE IVCITM; END
TABLE FILE CAR SUM LIPQOH BY IMLITM PRINT IM_C20_CODE CROSS BY IMLITM WHERE IMGLPT_CODE FROM 'F' TO 'FZZZ' WHERE IM_C20_CODE LIKE 'T%' WHERE LIPQOH GT '0' END
TABLE FILE F4101 BY IMLITM WHERE IVXRT_CODE EQ 'T' WHERE IMGLPT_CODE FROM 'F' TO 'FZZZ' WHERE IM_C20_CODE LIKE 'T%' WHERE LIPQOH GT '0' ON TABLE SAVE AS T_ITEMS END
DEFINE FILE F4101 CROSS/A25 = IF IVXRT_CODE NE 'T' THEN ' ' ELSE IVCITM; END
TABLE FILE F4101 SUM LIPQOH BY IMLITM PRINT IM_C20_CODE -*IVCITM CROSS BY IMLITM IF IMLITM NE (T_ITEMS) WHERE IMGLPT_CODE FROM 'F' TO 'FZZZ' WHERE IM_C20_CODE LIKE 'T%' WHERE LIPQOH GT '0' ON TABLE SET ASNAMES ON ON TABLE SET HOLDLIST PRINTONLY ON TABLE HOLD AS TEST_ITEM END -RUN