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.
In my FEX where I'm trying to use MODIFY logic to add new records to a flat file, I am getting the following:
END
(FOC1110) ATTEMPT TO DELETE,UPDATE OR INCLUDE NON-WRITABLE SEGMENT
(FOC1110) ATTEMPT TO DELETE,UPDATE OR INCLUDE NON-WRITABLE SEGMENT
(FOC1110) ATTEMPT TO DELETE,UPDATE OR INCLUDE NON-WRITABLE SEGMENT
(FOC1110) ATTEMPT TO DELETE,UPDATE OR INCLUDE NON-WRITABLE SEGMENT
Here is my code snippet:
TABLE FILE PALSSTD
-*
WRITE
-*
STU_ID AS STU_ID
AA003 AS STU_NAME
CMP AS CMP
BY CMP NOPRINT
BY STU_ID NOPRINT
BY AA003 NOPRINT
WHERE CMP NE ' '
-*
ON TABLE HOLD AS R195CURR
END
-RUN
-*
MODIFY FILE R195PREV
FIXFORM FROM R195CURR
MATCH CMP STU_ID
ON NOMATCH INCLUDE
ON MATCH REJECT
DATA ON R195CURR
END
-RUN
Here is my Master for the file I'm trying to add records to:
Yes, using a FOCUS file would make things easier. However, if this is not an option, then MATCH FILE would be useful:
MATCH FILE PALSSTD
WRITE
STU_ID AS STU_ID
AA003 AS STU_NAME
CMP AS CMP
BY CMP NOPRINT
BY STU_ID NOPRINT
BY AA003 NOPRINT
WHERE CMP NE ' '
RUN
FILE R195PREV
COUNT AA003
BY CMP
BY STU_ID
AFTER MATCH HOLD AS R195CURR OLD-NOT-NEW
END
-RUN
FILEDEF R195PREV DISK R195PREV.FTM (APPEND
-* I suppose that this is the name of your R195 file...
TABLEF FILE R195CURR
PRINT CMP STU_ID AA003
ON TABLE HOLD AS R195PREV
END
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006
Excuse my ignorance, but what is the DYNAM ALLOC line of code to be able to add records to the file, and not overwrite what is already on the file? I only ask because I haven't done this before.
Web, it might be useful for you to download a copy of a mainframe FOCUS manual. There is a chapter in the back called "MVS/TSO Guide to Operations". This chapter, which isn't that long, has detailed instructions on DYNAM ALLOC and other DYNAM commands you might find useful. It will also give you a good idea on how FOCUS operates in a mainframe environment. I think a little reading now will save you many headaches in the future.