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  iWay Software Product Forum on Focal Point    Master file for Variable length non-delimeted flat file

Read-Only Read-Only Topic
Go
Search
Notify
Tools
Master file for Variable length non-delimeted flat file
 Login/Join
 
Gold member
posted
I have a flat file that has a short first record (42 char alpha).

The following records are much longer, but each the same length with 32 fixed length
columns, no delimeter character.

I master file is working fine as long as I don't have the first record, but the
customer will start producing this file with the short first record. How should
the master file change?

My current master file:
FILENAME=TARGET01, SUFFIX=FIX ,
DATASET=baseapp/april_07.txt, $
SEGMENT=TARGET01, SEGTYPE=S0, $
FIELDNAME=PAT_NUMBER, ALIAS=PAT_NUMBER, USAGE=A7, ACTUAL=A7,
MISSING=ON, $
FIELDNAME=GUAR_NO, ALIAS=GUAR_NO, USAGE=A8, ACTUAL=A8,
MISSING=ON, $
FIELDNAME=SERVICE_DATE, ALIAS=SERVICE_DATE, USAGE=A8, ACTUAL=A8,
MISSING=ON, $
FIELDNAME=POSTING_DATE, ALIAS=POSTING_DATE, USAGE=A8, ACTUAL=A8,
MISSING=ON, $
FIELDNAME=TM_MED_PREF, ALIAS=TM_MED_PREF, USAGE=I1, ACTUAL=I1,
MISSING=ON, $
etc etc etc

thank you


WebFocus 7.6.8
iWay Data Migrator 7.6.8
PMF 5.1
 
Posts: 83 | Registered: March 28, 2006Report This Post
Virtuoso
posted Hide Post
You should post this question on the other part of this forum under "Focus/webfocus" I'm sure you will get the answer quicker....




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
Master
posted Hide Post
One option is to create a RECTYPE field as in the following:
FILE=FMFCEXT ,SUFFIX=FIX
$
$ Financial Management Foster Care Extracts
$
 SEGNAME=HREC,$
   FIELD=RECTYPE     , ALIAS=H, A1  , A1  , $
   FIELD=RPT_DATE    ,        , MYY , A6  , $
   FIELD=RSRC_NAME   ,        , A30 , A30 , $
   FIELD=CONTRACT_NO ,        , A6  , A6  , $
   FIELD=COUNTY_ID   ,        , A2  , A2  , $
   FIELD=ADDRVER     ,        , A1  , A1  , $
   FIELD=ADDRESS     ,        , A84 , A84 , $
   FIELD=RSRC_SSN    ,        , A9  , A9  , $
   FIELD=SUPL_SW     ,        , A1  , A1  , $
   FIELD=APPROVED_BY ,        , A10 , A10 , $
   FIELD=H1FILL      ,        , A7  , A7  , $
   FIELD=RSRC_ID     ,        , A8  , A8  , $
   FIELD=CHECK_SEQ   ,        , A5  , A5  , $
   FIELD=H2FILL      ,        , A30 , A30 , $
 SEGNAME=DREC,PARENT=HREC,$
   FIELD=RECTYPE     , ALIAS=D, A1  , A1  , $
   FIELD=CASE_ID     ,        , A10 , A10 , $
   FIELD=PERS_NO     ,        , I3  , A3  , $
   FIELD=CMD_CASE_ID ,        , A7  , A7  , $
   FIELD=CMD_PERS_NO ,        , I3  , A3  , $
   FIELD=CARE_TYPE   ,        , A2  , A2  , $
   FIELD=UNIT_CODE   ,        , A2  , A2  , $
   FIELD=CLIENT_LNM  ,        , A12 , A12 , $
   FIELD=CLIENT_FNM  ,        , A7  , A7  , $
   FIELD=CLIENT_MNM  ,        , A1  , A1  , $
   FIELD=CLIENT_BDT  ,        , YYMD, A8  , $
   FIELD=CLIENT_SSN  ,        , A9  , A9  , $
   FIELD=BEGIN_DAY   ,        , I2  , A2  , $
   FIELD=END_DAY     ,        , I2  , A2  , $
   FIELD=TOTAL_DAYS  ,        , I2  , A2  , $
   FIELD=PAY_RATE    ,        , I5  , A5  , $
   FIELD=CLAIM_AMT   ,        , I7  , A7  , $
   FIELD=ADJ_SW      ,        , A1  , A1  , $
   FIELD=ADJ_DT      ,        , MYY , A6  , $
   FIELD=DFILL1      ,        , A35 , A35 , $
   FIELD=IVESTS      ,        , A2  , A2  , $
   FIELD=LICENSED    ,        , A1  , A1  , $
   FIELD=DCN         ,        , A9  , A9  , $
   FIELD=DFILL2      ,        , A63 , A63 , $
 SEGNAME=SREC,PARENT=DREC,$
   FIELD=RECTYPE     , ALIAS=S, A1  , A1  , $
   FIELD=SVC_FRDT    ,        , A8  , A8  , $
   FIELD=SVC_TODT    ,        , A8  , A8  , $
   FIELD=S1FILL      ,        , A183, A183, $


This is one flat file with 3 record types. The file comes from a COBOL program and all the rows are 200 characters long, however, this concept should still work with variable length records. In my case there is data in the H2FILL, DFILL2 ans S1FILL fields, I just don't need it for the report. In this case, RECTYPE is a single character field at the beginning of each row that identifies the record. 'H' for the header, 'D' for the detail and 'S' for sub-detail, hence the ALIAS names.


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
Silver Member
posted Hide Post
Hi Here is an idea.This is how I would handle it.I have been working with FOCUS since 1988.
Get hold of the user written subroutione library and look up ARGLEN.
Even though one line may be 42 chars and the others in excess of say 512 chrs, you can flag your header record not to come out, by doing the following
1) Create the first field in you master file in excess of 42 characters long. Say 45. Remember that all your fields are shown as alpha.
In the case of your header record, you will be using 42 of the 45. You can use ARGLEN to flag this one as NON KOSHER, with in a define.
2)For your first data field the ARGLEN will be greater that 42 chars so the first field will occupy the first "32 chars" and the remaining 13 of (45) will form the first part of you second field, a second define will concatenate this with the 19 characters of the next field in your master file to create a KOSHER second field.
So instead of having
fieldname = firstfield1, e01, a32, a32,$
fieldname = firstfield2, e03, a32, a32,$

you should have

fieldname = firstfield1, e01, a45, a45,$
fieldname = firstfield2, e03, a19, a19,$

DEFINE FILE MYFILE
HEADER/I9 = ARGLEN(45,FIRSTFIELD1,'I9');
ISHEADER/A1 = IF (HEADER EQ 42) THEN 'Y' ELSE 'N';
PATNO1/A32 = SUBSTRING(45,FIRSTFIELD1, 1,32,32,'A32');
GARNUM/A13= SUBSTRING(45,FIRSTFIELD1, 33,45,13,'A13');
WHOLEGARNUM/A32 = GARNUM || FIRSTFIELD2;
END


TABLE FILE MY FILE
PRINT PATNO1 WHOLEGARNUM etc
WHERE ISHEADER NE 'Y'
ON TABLE HOLD AS TEMP1
END
-RUN

I hope that this helps.
It is so hard to place the exact code here.Please feel free to contact me at
njm870t@hotmail.com should you need clarification or more help(e.g creating the master file) .

Sincerest regards Steve


WebFOCUS 7.7.01 Windows, TSO 7.0
 
Posts: 43 | Registered: April 18, 2007Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  iWay Software Product Forum on Focal Point    Master file for Variable length non-delimeted flat file

Copyright © 1996-2020 Information Builders