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. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you need access to myibi, contact us at firstname.lastname@example.org and provide your corporate email address, company, and name.
Adeh, I have successfully used the COBOL-To-FOCUS translator (CTF) to define all types of files (VSAM, IMS, sequential) for many years - yes I am an oldie but goodie
The file structure does not have to be flatten, just include the entire COBOL description as input into the translator. The CTF knows how to handle nested descriptions with different field layouts. This will give you a pretty good MASTER. You will probably have to tweak it but CTF will supply an excellent starting point and save you hours of time.
There is documentation in the 'COBOL FD Translator Users Manual and Installation Guide'. I believe this used to be contained within the 'Power Book' documentation but I might be wrong.
If all else fails - open a ticket with IBI and the FOCUS group will help you.
Hi, a subject for an old guy If the Occuring variable "segment" in the end of the record : Occurs = Variable is ok ( The end of the record will tell Focus that this Occurs is Finished) ALIAS=ORDER ( the last Field of the Occurring Segment is purely Virtual : Focus deliver the Rank of the Occurring Child). If the Number of Occurrences is a real (Numeric) field preceding the Occuring Segment, Let's say DIMSEG field, then OCCURS=DIMSEG will be all right Cordially and Focusely FILE=CILL310B ,SUFFIX=FIX SEGNAME=THEPAPA ,SEGTYPE=S03 FIELDNAME =AP_APP_NOM , ,A8 ,A08 ,$ FIELDNAME =AP_OWNER , ,A8 ,A08 ,$ FIELDNAME =AP_REQ_NOM , ,A8 ,A08 ,$ FIELDNAME =IND_REQUETE , ,I04 ,I04 ,$ FIELDNAME =AP_REQ_DESC , ,A50 ,A52 ,$ $ SEGNAME=PSEUFILS,PARENT=THEPAPA,OCCURS=VARIABLE,$ FIELDNAME =CAR_FILS , ,A001, A001,$ FIELDNAME =IND_FILS ,ORDER ,I008, I004,$ **************************** Bottom of Data ************************
Focus Mainframe 7.6.11 Dev Studio 7.6.11 and !!! PC Focus, Focus for OS/2, FFW Six, MSO