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     [CLOSED] Duplicate file check

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED] Duplicate file check
 Login/Join
 
Gold member
posted
Hi All -

My requirement is to update the focus database but before updating the D/b, I need to check wheather the input file is a duploicate file or processed already by checking the input file header with previously processed file header.

It has a unique field named RECID#.

I should not miss the file or duplicate.

Any suggestions/help..

Thanks in advance...

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


WebFOCUS 7.6.13

Mainframe
all output (Report in mainframe)
 
Posts: 64 | Registered: February 24, 2010Report This Post
Expert
posted Hide Post
So you need to check to see if the header is in another input file ?

Is the headers recorded anywhere for each load ?


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
Gold member
posted Hide Post
Yes Waz, I need to check the current file header record with previouly processed file's header record before updating the focus d/b.

If its processed already it shouldn't update the focus d/b but it has to send a warning message.

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


WebFOCUS 7.6.13

Mainframe
all output (Report in mainframe)
 
Posts: 64 | Registered: February 24, 2010Report This Post
Expert
posted Hide Post
Do you record previous headers from load files, or have access to the previous load files ?

You could query the record, or check each load file header.


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
Gold member
posted Hide Post
Yes It copies the header record onto a table and then compares the header to a table.

Any examples..


WebFOCUS 7.6.13

Mainframe
all output (Report in mainframe)
 
Posts: 64 | Registered: February 24, 2010Report This Post
Expert
posted Hide Post
Then why can't you just pull the header record, then filter this value against your previou headers.

Then if you get a record, i.e. &LINES, branch to a message to indicate the file is already loaded.


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
Master
posted Hide Post
Maybe I'm missing something, but why not use MATCH?

MODIFY FILE YOUR_REMOTE_TABLE
FIXFORM FROM MY_HOLD_FILE
MATCH YOUR_PRIMARY_KEY
	ON MATCH REJECT
	ON NOMATCH INCLUDE
DATA ON MY_HOLD_FILE
END
-RUN


- ABT


------------------------------------
WF Environment:
------------------------------------
Server/Client, ReportCaster, Dev Studio: 7.6.11
Resource Analyzer, Resource Governor, Library, Maintain, InfoAssist
OS: Windows Server 2003
Application/Web Server: Tomcat 5.5.25
Java: JDK 1.6.0_03
Authentication: LDAP, MRREALM Driver
Output: PDF, EXL2K, HTM

------------------------------------
Databases:
------------------------------------
Oracle 10g
DB2 (AS/400)
MSSQL Server 2005
Access/FoxPro
 
Posts: 561 | Registered: February 03, 2010Report This Post
Silver Member
posted Hide Post
You said there is a unique field RECID. Does that value come from the input file?

If so check the input file value against the database and if it exists send an error message and quit.

-READ input_file &INRECID.A?

TABLE FILE DB
PRINT RECID
WHERE RECID EQ &INRECID
END
-RUN
-IF &LINES EQ 0 THEN GOTO LOADIT;
-IF &LINES NE 0 THEN GOTO WARNEM;


Signature changes from project to project
 
Posts: 38 | Location: Chicago, IL area | Registered: June 16, 2004Report This Post
Gold member
posted Hide Post
Thanks Sandy/ABT/Waz.

RECID has a serial numbers which is incremented by 1. Example, current run RECID is 11111 and the next run it should be 11112.

And also I need to check if there is a input file missing without loading into focus d/b (by checking the serial numbers).

If there is a miss in the i/p file then it should only send warning messages but load the file...

Would highly appreciate if anyone provides a sample code..

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


WebFOCUS 7.6.13

Mainframe
all output (Report in mainframe)
 
Posts: 64 | Registered: February 24, 2010Report This Post
Gold member
posted Hide Post
Hi All -

Can anyone pls tell me how to accomplish this..

Thanks!!!


WebFOCUS 7.6.13

Mainframe
all output (Report in mainframe)
 
Posts: 64 | Registered: February 24, 2010Report This Post
Expert
posted Hide Post
Why can't you build on what Sandy suggested?


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Virtuoso
posted Hide Post
Building on Sandy's suggestion...

If your input file has a synonym/master, you can TABLE it to get the first RECID. Otherwise, you will have to -READ it, as Sandy suggested. If the input file is not sorted by lowest RECID first, then use the MIN. prefix operator instead of FST. to get the lowest RECID from the input file. This approach assumes you will never have an input file where some of the records have already been loaded and some have not.

TABLE FILE INPUT_FILE
 SUM FST.RECID
 ON TABLE SAVE AS RECID1
END
-*
-RUN
-IF (&LINES GT 0) GOTO ID_CHECK1 ;
-TYPE ERROR: Input file is empty.
-TYPE ERROR: Load terminated.
-EXIT
-*
-ID_CHECK1
-READ RECID1, &RECID_1
-*
TABLE FILE DB_FILE
 PRINT RECID
 WHERE RECID EQ &RECID_1 ;
 ON TABLE SAVE
END
-*
-RUN
-IF (&LINES EQ 0) GOTO ID_CHECK2 ;
-TYPE ERROR: Input file has already been loaded.
-TYPE ERROR: Load terminated.
-EXIT
-*
-ID_CHECK2
-SET &RECID_0 = &RECID_1 - 1 ;
-*
TABLE FILE DB_FILE
 PRINT RECID
 WHERE RECID EQ &RECID_0 ;
 ON TABLE SAVE
END
-*
-RUN
-IF (&LINES GT 0) GOTO DB_LOAD ;
-TYPE WARNING: Input file RECIDs are out of sequence.
-TYPE WARNING: Load will continue.
-*
-DB_LOAD
MODIFY FILE DB_FILE
.
.
.
.


WebFOCUS 7.7.05
 
Posts: 1213 | Location: Seattle, Washington - USA | Registered: October 22, 2007Report This Post
Gold member
posted Hide Post
Please find a sample code below:
TABLE FILE CAR
PRINT
CAR
COUNTRY
MODEL
-*Creating a serial counter manually
COMPUTE RECID/I9=IF RECID EQ 2 THEN 4 ELSE IF RECID EQ 7 THEN 9 ELSE LAST RECID+1;
-****Checking if records are missing****
COMPUTE MISSED_RECORD/A2=IF (RECID-LAST RECID) GT 1 THEN 'Y' ELSE 'N';
ON TABLE HOLD AS TABLE_MISSED
END
-*If MISSED_RECORD equals Y then insert record whose record id is (RECID-1)
TABLE FILE TABLE_MISSED
PRINT
COMPUTE INSERT_REC/I9=RECID-1;
BY TOTAL INSERT_REC
WHERE MISSED_RECORD EQ 'Y';
ON TABLE SAVE AS CHECK_MISSED
END
-RUN
-*Append those records with record id IN FILE CHECK_MISSED


WebFOCUS 8.1.05
Windows
Excel, PDF, HTML
 
Posts: 72 | Location: Flowood , MS | Registered: May 11, 2011Report 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     [CLOSED] Duplicate file check

Copyright © 1996-2020 Information Builders