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  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] calling a subroutine inside modify file

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED] calling a subroutine inside modify file
 Login/Join
 
Myke
Member
posted
Hi,

I am using mainframe FOCUS version 7.6.7.

We are using focexec programs in creating online screens in our application and we need to call a subroutine cobol program within our focexec.
I would like to ask if we can call a subroutine inside a Modify file procedure?
example:

Moify file abcd

Table file abcd
COMPUTE SNTST/A9 = COBEXEC(JVSSN,SNTST);

End


COBEXEC - cobol program

Thanks

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


WebFOCUS 7.6
Windows, All Outputs
 
Posts: 6 | Registered: September 21, 2012Report This Post
GamP
Virtuoso
posted Hide Post
If you can use the routine with table, there is no reason why it should not also work in modify.
MODIFY FILE ABCD
.
.
.
COMPUTE SNTST/A9 = COBEXEC(JVSSN,SNTST);
.
.
.
DATA
END
should be perfectly OK.


GamP
- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
 
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007Report This Post
Waz
Expert
posted Hide Post
You have a cobol routine, but have you used it with FOCUS ?

The documentation details how to set up and call cobol subroutines from FOCUS.


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Myke
Member
posted Hide Post
quote:
Originally posted by Waz:
You have a cobol routine, but have you used it with FOCUS ?

The documentation details how to set up and call cobol subroutines from FOCUS.


Hi Waz,

I already tried running a batch job Focus program with call cobol subroutine and it works. But i think it's different in focexec programs.


WebFOCUS 7.6
Windows, All Outputs
 
Posts: 6 | Registered: September 21, 2012Report This Post
Myke
Member
posted Hide Post
quote:
Originally posted by GamP:
If you can use the routine with table, there is no reason why it should not also work in modify.
MODIFY FILE ABCD
.
.
.
COMPUTE SNTST/A9 = COBEXEC(JVSSN,SNTST);
.
.
.
DATA
END
should be perfectly OK.


Hi GamP,

I have tried the code. It was compiled successfully with no error's. but when i access the online screen, i cannot access the page anymore.

Thanks


WebFOCUS 7.6
Windows, All Outputs
 
Posts: 6 | Registered: September 21, 2012Report This Post
Waz
Expert
posted Hide Post
Mainframe FOCUS.... Debug mode ?


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Myke
Member
posted Hide Post
quote:
Originally posted by Waz:
Mainframe FOCUS.... Debug mode ?


What do you mean debug mode?

I tried to run it but i got this error.
(FOC001) THE NAME OF THE FILE OR THE WORD 'FILE' IS MISSING
but when i try to include
Table file abcd
Table was not recognized by modify procedure.

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


WebFOCUS 7.6
Windows, All Outputs
 
Posts: 6 | Registered: September 21, 2012Report This Post
GamP
Virtuoso
posted Hide Post
Well, that's ok and is how it should be. Since you're in MODIFY, you can't use TABLE commands.

Debug mode is switched on by saying 'MODIFY FILE abcd DEBUG'.
There must still be a manual around somewhere that explain what you can do with MODIFYF Debug mode.
I'm sure I've forgotten most (if not all) of it.


GamP
- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
 
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007Report This Post
Waz
Expert
posted Hide Post
Its been many many years , but I seem to rememeber setting F12 to DEBUG or something, when on a screen, hit the function key and it starts.

Can't find it in the manual though.

Perhaps its no longer there.

If one of the product managers is reading this, can you let us know.


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Waz
Expert
posted Hide Post
I found it.

Its described in a Tech Memo.

tm77852


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Myke
Member
posted Hide Post
quote:
Originally posted by Waz:
I found it.

Its described in a Tech Memo.

tm77852


I cannot access the tech memo. Im not a member of inforesponse online. I tried to create an account but i dont have the Site Code or Serial Number.


WebFOCUS 7.6
Windows, All Outputs
 
Posts: 6 | Registered: September 21, 2012Report This Post
Kerry
Expert
posted Hide Post
Hi Myke,

A site code and/or serial number is required to register on InfoResponse and then to access the documentation. If you do not have it, please check with your management.

Cheers,

Kerry


Kerry Zhan
Focal Point Moderator
Information Builders, Inc.
 
Posts: 1948 | Location: New York | Registered: November 16, 2004Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] calling a subroutine inside modify file

Copyright © 1996-2020 Information Builders