| View previous topic :: View next topic |
| Author |
Message |
deepeshk79
Beginner
Joined: 20 Jun 2003
Posts: 112
Topics: 48
Location: Bangalore
|
 Posted: Tue Aug 03, 2004 11:56 am Post subject: Occurs Depending On : Equivalent in Eztrieve |
 |
|
Hi All,
Is there anything equivalent to "Occurs Depending On" Clause of Cobol in Ezetrieve...???
I have a VB file in which the Account Number Position keeps changing from one record to another as it is defined thru the Occurs Depending Clause of Cobol. How to handle this file in Ezetrieve??
Thanks,
Deepesh |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Tue Aug 03, 2004 12:08 pm Post subject: |
|
|
Deepesh,
Post your cobol definition
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
deepeshk79
Beginner
Joined: 20 Jun 2003
Posts: 112
Topics: 48
Location: Bangalore
|
| Posted: Wed Aug 04, 2004 7:05 am Post subject: |
|
|
Hi Kolusu,
The cobol definition is a very big copybook. Anyhow do you have any utility which can convert a Cobol Copybook to an Ezetrieve one??
Thanks,
Deepesh |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed Aug 04, 2004 8:38 am Post subject: |
|
|
Deepesh,
| Quote: |
The cobol definition is a very big copybook. Anyhow do you have any utility which can convert a Cobol Copybook to an Ezetrieve one??
|
The CBLCNVRT Macro routine converts COBOL file and field definitions to their Easytrieve Equivalent. CBLCNVRT determines the file characteristics, the field name, and the attributes for each COBOL field. The converted file and field definitions are listed in a report and written to a file.
However I just ran the job with a sample definition of OCCURS DEPENDING ON and I got the following message.
| Code: |
***** CBL246 - 'OCCURS DEPENDING ON' NOT FULLY SUPPORTED
*PLEASE SUPPLY 'OCCURS DEPENDING ON' FIELDS WITH INDEXES
|
I tried converting the following
| Code: |
01 W-PARTS-TABLE.
05 W-PARTS-TBL OCCURS 0 TO 30000 TIMES
DEPENDING ON W-COUNT-MAX
INDEXED BY W-PARTS-NDX.
10 W-PARTS-TBL-REC PIC X(10) VALUE SPACES.
|
The equivalent easytrieve conversion is as follows
| Code: |
W-PARTS-TABLE W 4 N OCCURS 75000
W-PARTS-TBL W-PARTS-TABLE 10 A OCCURS 30000
W-PARTS-TBL-REC W-PARTS-TBL 10 A
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
