Focal Point Banner


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.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED]MODIFY not working (FOC419) FIXFORM SUBCOMMAND ELEMENT OR FIELDNAME NOT REC

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED]MODIFY not working (FOC419) FIXFORM SUBCOMMAND ELEMENT OR FIELDNAME NOT REC
 Login/Join
 
Guru
posted
Hi All,

I'm trying to update the FOCUS file through MODIFY but it throws (FOC419) FIXFORM SUBCOMMAND ELEMENT OR FIELDNAME NOT RECOGNIZED.

Please point me out, where I'm going wrong.

-SET &ECHO='ALL';
-SET &ECHO='ON';

-DEFAULTH &SVR='abcdepxyz1';
-DEFAULTH &STATUS='completed';
-DEFAULTH &BLOCKERFLAG='N';
-DEFAULTH &COMMENTS='Good';
APP HOLD ibisamp
-*DEFINE FILE IBI_INVENTORY
-*STATUS/A50='';
-*BLOCKERFLAG/A1='';
-*COMMENTS/A500 ='';
-*END
-*TABLE FILE IBI_INVENTORY
-*SUM  
-*STATUS 
-*BLOCKERFLAG
-*COMMENTS
-*BY SVR 
-*WHERE SVR EQ '$$$$$p$$$$'
-*ON TABLE HOLD AS IBIPROD FORMAT FOCUS
-*ON TABLE SET HOLDLIST PRINTONLY
-*END
-*-RUN

DEFINE FILE IBIPROD
STATUS/A50='&STATUS';
BLOCKERFLAG/A1='&BLOCKERFLAG';
COMMENTS/A500 ='&COMMENTS';
END
TABLE FILE IBIPROD
SUM  
STATUS 
BLOCKERFLAG
COMMENTS
BY SVR 
WHERE SVR EQ &SVR.QUOTEDSTRING
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS HOLD1 FORMAT FOCUS
END

MODIFY FILE IBIPROD
FIXFORM FROM HOLD1
MATCH SVR
ON MATCH UPDATE STATUS BLOCKERFLAG COMMENTS
ON NOMATCH INCLUDE
DATA ON HOLD1
END
-RUN


TABLE FILE IBIPROD
PRINT *
END
-EXIT  


?FF IBIPROD
FILENAME=  IBIPROD
VAH               E01           A20V
SEG01.STATUS      E02           A50
SEG01.BLOCKERFLAG E03           A1
SEG01.COMMENTS    E04           A500
STATUS                          A50
BLOCKERFLAG                     A1
COMMENTS                        A500

?FF HOLD1
FILENAME=  HOLD1
VAH           E01           A20V
STATUS        E02           A50
BLOCKERFLAG   E03           A1
COMMENTS      E04           A500


Thanks,
Rifaz

This message has been edited. Last edited by: Rifaz,


-Rifaz

WebFOCUS 7.7.x and 8.x
 
Posts: 406 | Location: India | Registered: June 13, 2013Report This Post
Expert
posted Hide Post
I don't see SVR in the results of ?FF HOLD1 or IBIPROD, does the TABLE FILE work ?


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Guru
posted Hide Post
Thanks Warren, originally the fieldname is VAH, just replaced it with SVR for focalpoint. And, yes TABLE FILE works.

This message has been edited. Last edited by: Rifaz,


-Rifaz

WebFOCUS 7.7.x and 8.x
 
Posts: 406 | Location: India | Registered: June 13, 2013Report This Post
Master
posted Hide Post
This error indicates that you have a field in the HOLD1 master that is not in the IBIPROD master. I think this error in this case is misleading, which happens sometimes. I've been using the FOCUS language for over 30 years and I've never used another FOCUS file as the input transaction file for MODIFY. Try removing the FORMAT FOCUS in the ON TABLE HOLD command.


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
Guru
posted Hide Post
Thanks John for the insights! Removed FORMAT FOCUS for HOLD1. No errors, here is the output, seems to be a success but not I expected in the report output.

   0 TRANSACTIONS:         TOTAL =     1  ACCEPTED=     1  REJECTED=     0
SEGMENTS:             INPUT =     0  UPDATED =     0  DELETED =     0
TABLE FILE IBIPROD
PRINT *
END
0 NUMBER OF RECORDS IN TABLE=       47  LINES=     47
0 HOLDING HTML FILE ON PC DISK ...


I'm expecting the default values to be supplied to the HOLD1 & make update in the IBIPROD FOCUS file. But, for STATUS, BLOCKERFLAG, COMMENTS is just blank.
   SRV         STATUS    BLOCKERFLAG     COMMENTS 
abcdepxyz1


-Rifaz

WebFOCUS 7.7.x and 8.x
 
Posts: 406 | Location: India | Registered: June 13, 2013Report This Post
Virtuoso
posted Hide Post
Is IBIPRD a single segment focus file?


WebFOCUS 8206, Unix, Windows
 
Posts: 1853 | Location: New York City | Registered: December 30, 2015Report This Post
Guru
posted Hide Post
yes... here goes the master

 FILENAME=IBIPROD , SUFFIX=FOC     , $
  SEGMENT=SEG01, SEGTYPE=S1, $
    FIELDNAME=SVR, ALIAS=E01, USAGE=A20V, $
    FIELDNAME=STATUS, ALIAS=E02, USAGE=A50, $
    FIELDNAME=BLOCKERFLAG, ALIAS=E03, USAGE=A1, $
    FIELDNAME=COMMENTS, ALIAS=E04, USAGE=A500, $
 


-Rifaz

WebFOCUS 7.7.x and 8.x
 
Posts: 406 | Location: India | Registered: June 13, 2013Report This Post
Virtuoso
posted Hide Post
I created ibiprod and tested the following in 8.203. Does this code work on your machine? It seems to work for me.

  

DEFINE FILE CAR
SVR/A20V=COUNTRY;
STATUS/A50=CAR;
BLOCKERFLAG/A1='F';
COMMENTS/A500=COUNTRY|CAR|COUNTRY|'THIS IS JUST A TEXT FIELD I CREATED SO I CAN TEST THE MODIFY';
END
TABLE FILE CAR
PRINT SVR STATUS BLOCKERFLAG COMMENTS
ON TABLE HOLD AS HOLD1
END
-RUN
MODIFY FILE IBIPROD
FIXFORM FROM HOLD1
MATCH SVR
ON MATCH UPDATE STATUS BLOCKERFLAG COMMENTS
ON NOMATCH INCLUDE
DATA ON HOLD1
END
-RUN
TABLE FILE IBIPROD
PRINT *
END


WebFOCUS 8206, Unix, Windows
 
Posts: 1853 | Location: New York City | Registered: December 30, 2015Report This Post
Master
posted Hide Post
Rifaz,

Please try it without specifying a hold format on the table request.

FYI for those out there that are using hold format focus if you are creating temporary files and have a lot of data this can add a lot amount of over head. When I worked for IBI I visited a customer that was using FORMAT FOCUS with several steps and the job would take hours, after they removed the FORMAT FOCUS where is was not actually needed it finished in less than 30 minutes.

Just some Food for Thought.

This message has been edited. Last edited by: TexasStingray,




Scott

 
Posts: 865 | Registered: May 24, 2004Report This Post
Virtuoso
posted Hide Post
I'm not using any format focus in my code. In my environment this code works as expected.


WebFOCUS 8206, Unix, Windows
 
Posts: 1853 | Location: New York City | Registered: December 30, 2015Report This Post
Master
posted Hide Post
BabakNYC, sorry had it addressed to the wrong individual.




Scott

 
Posts: 865 | Registered: May 24, 2004Report This Post
Guru
posted Hide Post
Thanks Scott.

Thank you so much BabakNYC for the hints.

I have not touched the FOCUS for couple of years, totally with the infrastructure in the LINUX platform, made me to forget one of the basics.. i.e., order executing the FOCUS code.
The fields STATUS, BLOCKERFLAG & COMMENTS are considered from the IBIPROD FOCUS which is empty and I didn't tell in my FOCUS code to update which rows.

Problem is here with the DEFINE,
 
DEFINE FILE IBIPROD
STATUS/A50=IF SVR EQ &SVR.QUOTEDSTRING THEN '&STATUS' ELSE ''; 
BLOCKERFLAG/A1=IF SVR EQ &SVR.QUOTEDSTRING THEN '&BLOCKERFLAG' ELSE ''; 
COMMENTS/A500 =IF SVR EQ &SVR.QUOTEDSTRING THEN '&COMMENTS' ELSE '';
END
TABLE FILE IBIPROD
SUM  
STATUS 
BLOCKERFLAG
COMMENTS
BY SVR 
WHERE SVR EQ &SVR.QUOTEDSTRING
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS HOLD1 
END  


Thanks everyone for the help!


-Rifaz

WebFOCUS 7.7.x and 8.x
 
Posts: 406 | Location: India | Registered: June 13, 2013Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED]MODIFY not working (FOC419) FIXFORM SUBCOMMAND ELEMENT OR FIELDNAME NOT REC

Copyright © 1996-2020 Information Builders