Does IDMS have a FASTLOAD/FASTUNLOAD kind of program? We used that when we had an enormous amount of data in DB2 tables and that solved the problem. Used the Fast Unload to extract a specific time period, then Fast Load to build the smaller file and then Focus/WebFOCUS to write the reports at the end.

Worked great.

Vivian

I'd love to know what the overhead is for WHERE over IF.

A millisecond or two ?, or is it related to when the data is being extracted, and then related to each row returned ?

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

quote:

Can you please suggest any non-FOCUS method in which I can extract the data?

I'm not that familiar with IDMS, it was a general suggestion. How would others in your organisation read from the IDMS db ?

Vivian suggestion an IDMS FASTUNLOAD utility

Also do you know all the indexes that exist on the table ?, others may be useful in getting better performance.

Sussanah,

I have coded as suggested by you and I see that the Master file is also created. But when I try to get the sample data from the master file, I get the below error message:

0 ERROR AT OR NEAR LINE 38 IN PROCEDURE _wcsmpldata
(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED: MMIS/ACCVAL

The code looks like below:

APP HOLD MMIS
DEFINE FILE CSBILLCH
TYPEBILL/A1=EDIT(I2586_BILL_TYPE_CODE,'9$$');
BILL/A3=DECODE TYPEBILL(1 'ACT' 2 'EST' 3 'CUS' 4 'ADJ' 5 'PAY'
6 'IDC' 7 'MIS' 8 'REF' 9 'FRS');
YY/A2 = EDIT(I2582_BILL_GEN_DATE,'99$$$$');
MM/A2 = EDIT(I2582_BILL_GEN_DATE,'$$99$$');
NY/I3 = EDIT(YY);
NM/I3 = EDIT(MM);
CRAPFY/I3 = IF NM GE 07 THEN NY + 1 ELSE NY;
FY/A2 = EDIT(CRAPFY,'$99');
END
TABLE FILE CSBILLCH
COUNT I2511_CODE_ID_CSACCT/I9 AS 'ACCT1'
BY FY
BY MM
BY I2582_BILL_GEN_DATE AS 'GEN_DT'
IF I2586_BILL_TYPE_CODE NE '5$$'
IF FY EQ '14'
IF RECORDLIMIT EQ 10
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS ACCVAL FORMAT FOCUS INDEX I2582_BILL_GEN_DATE
END

APP HOLD

Also, when I right-click and select 'Edit Access file as text' on the master file, I get the below error:

(FOC1562) EDAGET:FILE mmis/accval NOT FOUND.

May I know whats wrong with my code?

Thanks
Teju

Teju,
Indexed fields are a maximum of 12 bytes.

APP HOLD MMIS
DEFINE FILE CSBILLCH
GEN_DT/A8 = I2582_BILL_GEN_DATE;
TYPEBILL/A1=EDIT(I2586_BILL_TYPE_CODE,'9$$');
BILL/A3=DECODE TYPEBILL(1 'ACT' 2 'EST' 3 'CUS' 4 'ADJ' 5 'PAY'
6 'IDC' 7 'MIS' 8 'REF' 9 'FRS');
YY/A2 = EDIT(I2582_BILL_GEN_DATE,'99$$$$');
MM/A2 = EDIT(I2582_BILL_GEN_DATE,'$$99$$');
NY/I3 = EDIT(YY);
NM/I3 = EDIT(MM);
CRAPFY/I3 = IF NM GE 07 THEN NY + 1 ELSE NY;
FY/A2 = EDIT(CRAPFY,'$99');
END
TABLE FILE CSBILLCH
COUNT I2511_CODE_ID_CSACCT/I9 AS 'ACCT1'
BY FY
BY MM
BY GEN_DT
IF I2586_BILL_TYPE_CODE NE '5$$'
IF FY EQ '14'
IF RECORDLIMIT EQ 10
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS ACCVAL FORMAT FOCUS INDEX GEN_DT
END
-EXIT

This message has been edited. Last edited by: Tom Flynn,

names of indexedfields have to be 12 characters or fewer in length. someone here has already told you that.

Tom & Susannah,

Thanks a lot for responding.

I have tried reducing the indexed fields to A8 as you said but I still get the same error messages.

I am not sure where I went wrong.

Thanks
Teju

No such thing as an Access file for FOCUS databases.

quote:

I have tried reducing the indexed fields to A8 as you said but I still get the same error messages

As previously mentioned, indexed field NAMES are a maximum of 12 bytes, the limit is not on the format "A8"...

Francis,

Ok..But I have both my indexed field name and also the format within 12 bytes.

But no luck.

Thanks
Teju

Hi Friends,

I can see my master file with SUFFIX=FOC. But all the master files that I have come across has their SUFFIX=IDMSR.

What is the difference between SUFFIX=FOC & SUFFIX=IDMSR?

Can anyone help me out to create a master file with SUFFIX=IDMSR?

Thanks
Teju

Teju,

You have some learning to do.

FOC is a FOCUS database. IDMSR is most likely an IDMS mainframe database table.

I don't think you can create IDMSR database tables.

What you're trying to do should be done by the ETL group in your company.

quote:

Originally posted by Waz:
Also, I think your admin is a bit lazy.

I was thinking the same thing.

I have seen DBA's treat there databases and tables like a baby, and getting indexes added can be quite hard.

Teju,

I worked with you at this client from January to March of this year. During this tenure you were coached several times that IDMS files cannot be indexed as FOCUS files can.

I also gave you a “FOCUS for the Mainframe” manual with specially marked pages which clearly explained the difference between SUFFIX=FOC & SUFFIX=IDMS, and other particulars of Information Builders’ products.

The errors you have cited,
0 ERROR AT OR NEAR LINE 38 IN PROCEDURE _wcsmpldata
(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED: MMIS/ACCVALiF

You may recall I received this sort of APP allocation error at this client as well. When we presented it to the IBI help desk it was explained that this particular installation of WebFOCUS is problematic with regard to allocating temporary files.

I suggest that you review the copious notes you took during our work time and the reading material I gave to you at this client. You will find that the issues you are having now are not new ones.

Good luck.

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