RE: Commitment control and open data paths with triggers

Well, in theory you could write your trigger program to check the number 
of parameters.  Then you could just manually call your trigger program 
from the CL or whatever and not pass it any parms.  Then, the trigger 
could say, "Hey I didn't get any parms.  I'm going to bed.".  RCLACTGRP 
can get expensive.  But if you're always coding your trigger programs to 
that activation group that's one method to do a kill them all with one 
command shot.  Curious, what happens if your trigger is fired off by 
someone doing an update to the file via Excel, or command line access 
doing UPDDTA?  then again, a trigger with a bad library list might be one 
way to stop users from trying to update those files.  The update won't 
work because the trigger should fail. 

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Mark Adkins <adkinsm@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/30/2004 02:12 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
RE: Commitment control and open data paths with triggers






I got everything to work, but I had to use a CL.  I don't actually end 
commitment control.  I just reclaim the activation group and this closes 
TESTH that was opened by the trigger.  Is this the only way to get TESTH 
to close? 

PGM        PARM(&COMMIT) 
 
DCL        VAR(&COMMIT) TYPE(*CHAR) LEN(1)
 
CALL       PGM(TEST) PARM(&COMMIT) 
RCLACTGRP  ACTGRP(MYGROUP) 
 
ENDPGM 

Here is the RPGLE.

H DATEDIT(*YMD) ACTGRP('MYGROUP') DFTACTGRP(*NO) 
 *---------------------------------------------------------------
FTEST      UF   E             DISK    USROPN COMMIT(COMMITLOCK) 
F                                     RENAME(TEST:TESTR) 
 *=========================================================- 
D CMDV            S            100    VARYING 
D CMD             S            100 
 *=========================================================- 
 *           Mainline 
 *=========================================================- 
C     *ENTRY        PLIST 
C                   PARM                    COMMITLOCK        1 
 
C                   EVAL      CMDV = 'STRCMTCTL LCKLVL(*ALL)' 
C                   EVAL      LEN = %LEN(CMDV) 
C                   EVAL      CMD = CMDV 
C                   CALL      'QCMDEXC' 
C                   PARM                    CMD 
C                   PARM                    LEN              15 5
 
C                   OPEN      TEST 
 
C     1             SETLL     TEST 
C                   READ      TEST 
C                   IF        NOT %EOF(TEST)
C                   DELETE    TESTR 
C                   ENDIF 
 
C                   ROLBK 
 
C                   EVAL      *INLR = *ON 

Regards,

Mark
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.