Hi All,

Can anybody please tell me what is the purpose of the field SIGN.ON.ITEM in USER application? As per the helptext, any commands that can be entered at the Desktop COMMAND line can be invoked during SIGN.ON. I need to execute a mainline routine just after successful user authentication and I attached it to this field. But the routine is not getting called. FYI, I can run the mainline routine form commandline and I am using R08.
Any idea?

Thanks in advance.

Hi,
you can use SIGN.ON.RTN field in user application for you requirement.

Thanks
Siva

Hi Siva,

Thanks for your reply. But I cant find any field called SIGN.ON.RTN at USER application in my R08. Could you plese tell me in which release this field is available?

Thanks.

Hi subrata,
this field is available in R9 only, but for enabling SIGN.ON.RTN in R8 you need to install some patch(i dont know exactly the patch name)

54. 1 ATTRIBUTES..... SUPER.USER
68 DATE.FORMAT....... 1 <DD> <MONTH> <YEAR>
70. 1 SIGN.ON.RTN.... TEST.RTN
83 CURR.NO........... 2


-Siva

Hi Subrata,

You can make an explicit call to your mainline program in the field SIGN.ON.ITEM.

EG:

TT.SIGN.ON.ITEM is the subroutine linked to the field SIGN.ON.ITEM
In this subroutine you can make an external call like : CALL SIGN.OFF

SUBROUTINE TT.SIGN.ON.ITEM
$INSERT I_COMMON
$INSERT I_EQUATE

CALL SIGN.OFF

RETURN
END

In the same way you can call your mainline program.

Cheers,
Srinu

Thanks Srinu for your reply.... but my problem is the routine I'm attaching to SIGN.ON.ITEM field is not getting called at all.

Hi,

I assume your front end is browser since you have said that you are in R08 now. The SIGN.ON.ITEM will not work in browser. You need to understand the underlying architecture of the browser to understand the reason behind it.

Cheers,
Avinash

Thanks Avinash. In my case, the routine is not even beign called from classic session.

In PGM.FILE to the field ADDITIONAL.INFO mention these values

.NO!.NOU.NOD.GUI.BDA

and try out.

Regards,
Srinu

Thanks Srinu for the info, but the result is same, the routine is not getting called at all!!

Hi Subrata,
Can you do a copy paste of the PGM entry of the routine and tell us what exactly is the program trying to do? If the program is small then you can copy that too which will be helpful to find whats missing.

Cheers,
Avinash

I am just trying to check whether the routine is getting called or not. So i have just placed a DEBUG statement in the test routine. Please see below the PGM.FILE and the routine

Head Office(ATEST) PROGRAM FILE SEE

PROGRAM TEST1
------------------------------------------------------------------------------
1 TYPE.............. M
2. 1 GB SCREEN.TITLE TEST1
3 ADDITIONAL.INFO... .NO!.NOU.NOD.GUI.BDA
5 PRODUCT........... EB
14 CURR.NO........... 2
15. 1 INPUTTER....... 1097_SUBRATA.KUMAR
16. 1 DATE.TIME...... 02 MAR 10 09:59
17 AUTHORISER........ 1097_SUBRATA.KUMAR
18 CO.CODE........... AE-001-1000 Head Office(ATEST)
19 DEPT.CODE......... 1
------------------------------------------------------------------------------
02 MAR 2010 13:14:43 USER (03 FEB) SUBRATA.KUMAR [1097,10PAGE 1
ACTION
AWAITING PAGE INSTRUCTIONS


SUBROUTINE TEST1

$INSERT I_COMMON
$INSERT I_EQUATE

DEBUG
PRINT "This is fun"
RETURN


Also see the USER record where the routine is attached

54. 1 ATTRIBUTES..... SUPER.USER
57. 1 SIGN.ON.ITEM... TEST1
60. 1 OTH.BOOK.ACCESS AE0010001

Hi Subrata,

Can you paste the Record present in DESKTOP.PARAMETER file .

Regards,
Srinu.
00966-540625165

Hi Srinu,

I dont have any record in DESKTOP.PARAMETER.
By the way, I am using R08.

thanks.

Hi Subrata,

Please try your program as i did . It is working fine. You have to include the user level and company level INSERT Files .

SUBROUTINE XX.SIGN.ON.ITEM --------> ROUTINE ATTACHED TO USER PROFILE

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.COMPANY
$INSERT I_F.PROTOCOL
$INSERT I_F.GTS.COMMON

IF NOT(GTSACTIVE) THEN
DATA 'Y' -------------------------> SET THE DATA TO 'Y'
CALL XXX.M.TEST.RTN -------------> PGM.TYPE = M , ADDITINAL.INFO = .GUI
END

RETURN
END

There is no need of record in DESKTOP.PARAMETER .

It should work fine.

Cheers,

Srinivas Yadav
This e-mail address is being protected from spambots. You need JavaScript enabled to view it

Hi Srinivas,

Thanks for your reply. Can you please check what is going wrong with me.
This is routine attached with USER > SIGN.ON.ITEM

SUBROUTINE TEST.SIGN.ON

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.COMPANY
$INSERT I_F.PROTOCOL
$INSERT I_GTS.COMMON

IF NOT(GTSACTIVE) THEN
DATA 'Y'
CALL TEST1
END
RETURN

PGM.FILE
------------
1 TYPE.............. M
2. 1 GB SCREEN.TITLE TEST.SIGN.ON
5 PRODUCT........... EB
14 CURR.NO........... 3
15. 1 INPUTTER....... 804_SUBRATA.KUMAR
16. 1 DATE.TIME...... 04 MAR 10 19:28
17 AUTHORISER........ 804_SUBRATA.KUMAR
18 CO.CODE........... AE-001-1000
19 DEPT.CODE......... 1

TEST1
-----------

SUBROUTINE TEST1

$INSERT I_COMMON
$INSERT I_EQUATE

DEBUG
PRINT "This is fun"

RETURN

PGM.FILE - TEST1

1 TYPE.............. M
2. 1 GB SCREEN.TITLE TEST1
3 ADDITIONAL.INFO... .GUI
5 PRODUCT........... EB
14 CURR.NO........... 3
15. 1 INPUTTER....... 804_SUBRATA.KUMAR
16. 1 DATE.TIME...... 04 MAR 10 19:00
17 AUTHORISER........ 804_SUBRATA.KUMAR
18 CO.CODE........... AE-001-1000
19 DEPT.CODE......... 1

In my case why the routine is not getting called?

Thanks,

Dear,

First thing is DEBUG Wont work . Because SIGN.ON.ITEM routine doesnt trigger in classic session.
Second thing Replace PRINT with DISPLAY.MESSAGE("THIS IS FUN",2) and check. u can see the message "THIS IS FUN" in the bottom left of the Desktop .
REMOVE DEBUG AND RECOMPILE THE PROGRAM. It must be 'OK'

Cheers,

Srinivas Yadav.

Hi Srini,

I think we have a misunderstanding here. I told earlier that I dont have a desktop. I'm using R08. Will it not work for R08 classic?

Thanks,

Yes it wont trigger in Classic Session.Check it out in Desktop , it does work.

do you want this routine to run when ever any user logs in?
is your requirement on browser?

if both answers are yes then consider calling this routine in the ofs.source record BROWSERTC. as follows

SOURCE.NAME....... BROWSERTC
------------------------------------------------------------------------------
1 DESCRIPTION....... FOR BROWSER CONNECTOR
2 SOURCE.TYPE....... SESSION
3. 1 LOGIN.ID.......
4. 1 EB.PHANT.ID....
5 MAX.CONNECTIONS...
6 RESTRICT.LINK.....
7 INITIAL.ROUTINE...
8 CLOSE.ROUTINE.....
9 IN.MSG.RTN........ USER.RTN USER ROUTINE
10 OUT.MSG.RTN.......
11 MSG.PRE.RTN.......
12 MSG.POST.RTN......
13 LOG.FILE.DIR......
14 LOG.DETAIL.LEVEL.. NONE
15 OFFLINE.QUEUE.....
16 MAINT.MSG.DETS....


Hope this helps
Regards
Ali