 |
|||||
|
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
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. | |||||
Read-Only TopicGo | Search | Notify | Tools |
| DYNAM CONCAT | Login/Join |
| Silver Member |
Hi Can any one suggest r give me details regarding the below code of FOCUS, I want to convert the below Line of Code to COBOL, //*code-starts DYNAM CONCAT FI TBRMAST XBRMAST //*code-ends How to convert this code to COBOL. ???? Focus Core 7.1.1 & 7.6.4 XP MainFrames | ||
|
| Expert |
DYNAM CONCAT would be most similar to JCL, not COBOL. The purpose of the command is to treat multiple files that have the same format as a single file. For COBOL you would have one FD for the file but the JCL to run the COBOL program would have one DD card with multiple files for the same DDNAME. Hope this makes sense to you. Ginny --------------------------------- Prod: WF 7.7.01 Dev: WF 7.6.9-11 Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google | |||
|
| Expert |
Sounds like a good example on the demostration on how to spot a line of FOCUS code against a line of JCL. RB4U have the bank not even given you basic JCL courses? T
| |||||||||
|
| Platinum Member |
There are two ways you can do this in COBOL 1. Create an Assembler Sub-Routine to issue a Supervisor 99 call. My advice is DO NOT GO THERE, double that if you are wonder what is a supervisor call . 2. The concatenation causes one file to be read then the other in order. You can accomplish the same functionality by using two FD statements. Read the first to End of File (TBRMAST), then Read the second (XBRMAST) to end of file using the same logic. But, the real question is: why change from FOCUS to COBOL? Well written FOCUS code is just as efficient as any COBOL. I have seen instances, where the COBOL performed worst then the FOCUS equivalent. Jim Morrow Web Focus 7.6.10 under Windows 2003 MVS 7.3.3 | |||
|
| Expert |
I though I would never agree with you Tony  , This probably should be done in JCL.Also keep in mind DYNAM is also a CLIST/REXX command. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Expert |
Waz, My point (albeit it slightly obscure  ) was that knew what DYNAM does, and if he had any JCL training at all (his platform in mainframe), then he would realise that the requirement could be fulfilled by a line in his JCL and not in his Cobol.I find it most discouraging that some folks are being asked to achieve certain tasks without either the training or the ability to research themselves. They seem to think "I'll get the naive folks on Focal Point to do it for me". BTW Congrats on winning with the most useful tip! (IMHO) Jim, expect a PM as per promise at Summit. T
| |||||||||
|
| Platinum Member |
Tony: Even worse is the management types who order changes to something that "Isn’t broke". It seems there is a process that works and meets the business need, because rb4u is cloning that process. But, someplace somewhere a decision maker has gotten the idea WebFocus/Focus is not a good tool to use. Jim Morrow Web Focus 7.6.10 under Windows 2003 MVS 7.3.3 | |||
|
| Silver Member |
Hi all, Actually the work assigned for me is to convert a FOCUS code to COBOL. The code that i have mentioned previously can be done using JCL, i just want to know whether COBOL code gives a better result r not. Thanks to all your replies. And also need help regarding the above mentioned conversion of the FOCUS code to both COBOL & JCL. Is it possible to convert to COBOL/JCL as that of FOCUS. [I am new to Mainframe Technology] Thanks. Focus Core 7.1.1 & 7.6.4 XP MainFrames | |||
|
| Virtuoso |
Really weird! I can understand converting COBOL to FOCUS, but the opposite? Somebody is really way out in left field... Now, if you wanted to convert FOCUS to WebFOCUS, that would be interesting. Mayube you can suggest it... Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF | |||
|
| Expert |
rb, there is no auto tool to convert FOCUS to COBOL. You will have to read the FOCUS code to discern the business rules and then rewrite the whole thing in COBOL. You'll have a lot more code to write and debug when you are through. I don't envy you but good luck! Ginny --------------------------------- Prod: WF 7.7.01 Dev: WF 7.6.9-11 Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google | |||
|
| Expert |
For COMP 3 PIC S9(11)V9(2) or whatever, FOCUS P and D formatted data will have to be converted via PCKOUT. Zoned decimal will also have to be converted. The DYNAM CONCAT means multiple files with the exact same structure; they would equal 1 copybook. Good Luck, you'll need it!!! Tom Tom Flynn WebFOCUS 8.1.05 - PROD/QA DB2 - AS400 - Mainframe | |||
|
| Expert |
RB4U,
Make sure that you ask your management for adequate training then. T
| |||||||||
|
| Expert |
Unless your getting rid of Focus, I think its a bad idea to go to Cobol, more from the development and maintenance perspective. Although this is about DB2, about 12 years ago IB Australia went head to head Focus against COBOL reading DB2. as I remember a day or two for FOCUS, weeks of SQL tuning for COBOL and could not match performance. should the conversion to Cobol happen ? I would hope a review and comparison of the costs development and ongoing should be done to see what is the best for you. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Master |
Waz, We are talking about management here! You would think decision are made on what the long term financial picture is like, but usually it is about what the manager understands. If they don't understand what Focus/WebFocus can do and the licensing costs are high they will get rid of it. Pat WF 7.6.8, AIX, AS400, NT AS400 FOCUS, AIX FOCUS, Oracle, DB2, JDE, Lotus Notes | |||
|
| Guru |
Well said Pat. I fight that battle here all the time. Thank goodness I'm winning or I'd be up there asking you for a job. Glenda In FOCUS Since 1990 Production 8.2 Windows | |||
|
| Expert |
I am aware of many companies that get "New Management" that decide to get rid of that "Old outdated Focus", this new osftware is better, usually only because it is the current "Buzz Word". One in particular spent a couple of Million to replace focus only to give up due to the cost. There need to be an understanding of why this is happening, and it should be our jobs to educate management on what the capabilities of Focus are. p.s. Sorry for Venting Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Powered by Social Strata |
 | Please Wait. Your request is being processed... |
Read-Only TopicCopyright © 1996-2020 Information Builders
| View $GS_USERNAME's Public Profile |
| Add $GS_USERNAME to my Ignore List |
| View Recent Posts by $GS_USERNAME |
| Notify me of New Posts by $GS_USERNAME |