RE: Commitment control and open data paths with triggers

[rob@xxxxxxxxx]

Keep in mind that triggers have a well defined set of parameters.

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





"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/30/2004 02:30 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: Commitment control and open data paths with triggers






I normally use entry parm to shut down program.

example: 
FMYFILE    UF   E             DISK 
 *=========================================================- 
 *           Mainline 
 *=========================================================- 
C     *entry        plist 
C                   parm                    MyParm 

C                                                  if        myParm = 
'SHUTDOWN'
C                   eval      *inlr = *ON 
C                                        return
C                   endif

C                                        return

To shut down this program, I just do CALL MYPGM  PARM('SHUTDOWN')

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mark Adkins
Sent: Thursday, September 30, 2004 2:13 PM
To: rpg400-l@xxxxxxxxxxxx
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.


--
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.