Hi again friends,
I need to hook a subroutine to OFS.SOURCE>BROWSERTC and field IN.MSG.RTN. However, on field validation it says that missing application for the subroutine.
This is the way I went through;
1- creating the subroutine for only testing purpose to see it works then go further for modifications
!-----------------------------------------------------------------------------!
* <Rating>86</Rating>
!-----------------------------------------------------------------------------!
SUBROUTINE V.APP.TEST(ARG.FIRST, ARG.SECOND)
!-----------------------------------------------------------------------------!
$INSERT I_COMMON
$INSERT I_EQUATE
!-----------------------------------------------------------------------------!
OPEN "BP" TO F.BP ELSE
PRINT "CANNOT OPEN BP"
END
R.BP<1> = ARG.FIRST
R.BP<2> = ARG.SECOND
WRITE "Input is: " ON F.BP,"APP.TESTING"
RETURN
END
2- PGM.FILE;
PROGRAM V.APP.TEST
------------------------------------------------------------------------------
1 TYPE.............. B
2. 1 GB SCREEN.TITLE Testing purpose
5 PRODUCT........... EB
8. 1 APPL.FOR.SUBR.. OFS.SOURCE OFS SOURCE
3-
KEY............... V.APP.TEST
------------------------------------------------------------------------------
1. 1 GB DESCRIPTION. V.APP.TEST FOR OFS.SOURCE
2 PROTECTION.LEVEL.. FULL
3 SOURCE.TYPE....... BASIC
4- Last step is the adding this routine to OFS.SOURCE>BROWSERTC, field In.Msg.Rtn field. but on validation of the record, it says that missing application for the subroutine.
What am i missing here? this is the way we follow to hook subroutine but why it is not working I am really confused. Any help and suggestion are more than welcome. Thank you in advance.
Topic Author
