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,

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.

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.

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.

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

Mainframe FOCUS.... Debug mode ?

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,

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.

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.

I found it.

Its described in a Tech Memo.

tm77852

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.

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