RPG watch program

I'm trying to start a watch for CPI1127 (All jobs at work station QPADEVxxxx
ended)

We changed the timeout value from 180 minutes to 30 minutes (thanks
auditors).

Every time it runs, the watch is cancelled with:
Watch session WSTIMEOUT issued by 003978/xxxxxxxx/QPADEV0002 at
07/18/08 12:15:16 has been ended. Reason code: X'04'
04 - User Exit Program error

It is ending the watch and I am not getting the data I need (user/device).
I had this as SQLRPLE but trimmed it to barebones and it still is not
working.

Any help would be appreciated.

TIA,

Craig


Here is the RPG program:
H Option(*SrcStmt:*NoDebugIO) Debug(*Yes)

D WchCPI1127 PR ExtPgm('WCHCPI1127')
D Type 10 Const
D Session 10 Const
D Error 10
D Data 1000

D WchCPI1127 PI
D Type 10 Const
D Session 10 Const
D Error 10
D Data 1000

D DataDS ds 1000
D MsgId 5 11
D MsgF 391 400
D OffSet 441 444i 0
D DataAll 1 1000

D MsgDtaPtr s *
D MsgDta ds 75 Based(MsgDtaPtr)
D UsrPrf 11 20
D Device 21 30

/Free

*InLr = *On;

DataDs = Data;

If Type <> '*MSGID' AND MsgId <> 'CPI1127';
Return;
EndIf;

MsgDtaPtr = %Addr(Data) + OffSet;

Dump;

Return;

/End-Free