Re: Why are files opened in *DFTACTGRP?

[Peter Dow <petercdow@xxxxxxxxx>]

Fwiw, the OVRDBF parameter ACTGRP help says this:

                   Activation group (ACTGRP) - Help

Specifies the activation group this program is associated with when
it is called.

QILE
    When this program is called, it is activated into the named
    activation group QILE.  This is the default.

So I always assumed that the default activation group is named QILE 
(please correct me if that's not correct!)  If true, then perhaps those 
files showing QILE are opened by a program with DFTACTGRP(*NO) and 
ACTGRP(*CALLER) instead of DFTACTGRP(*YES).  The program that displays 
the open files in that case would determine the name of the caller's 
activation group instead of just displaying *DFTACTGRP.

Just a theory; nothing to back it up.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>/


On 1/10/2013 10:52 AM, Robert Rogerson wrote:
>     Hi all, I'm a little stumped here.  I'm debugging a program and when I
>     look at the job's open files (14. Display open files, if active) there are
>     files being opened in the *DFTACTGRP.
>
>     I'm calling an SQLRPGLE program and the program's Activation Group
>     Attribute is QILE.  So my understanding is that files which are opened
>     will be in the QILE activation group (there are no OVRDBF in the job
>     stream and in fact only this program is called from the command line)
>
>     When the program breaks just before the sql statement the open files are
>     File       Library    Device      Scope       Activation Group
>     QDUI80     QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     QASQRESL   QSYS2      QASQRESL    *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     FA1120P    TESTAM247  FA1120P     *ACTGRPDFN  QILE       0000000000000013
>     POSDAYP    QS36F      POSDAYP     *ACTGRPDFN  QILE       0000000000000013
>     DSTHSTP    QS36F      DSTHSTP     *ACTGRPDFN  QILE       0000000000000013
>     ROSHSTP    TESTAM247  ROSHSTP     *ACTGRPDFN  QILE       0000000000000013
>     ROSHSTP    TESTAM247  ROSHSTP     *ACTGRPDFN  QILE       0000000000000013
>     QDUI80     QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     QDDSPOF    QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>
>     This looks as I expect.  But when I execute the following sql statement
>
>     Exec SQL
>       SELECT Min(a.FirstDate)
>         INTO :firstDate :firstDateNI
>         FROM (SELECT MIN(veendt) AS FirstDate
>                FROM posmvep
>               WHERE veitm# = :i_Item
>                 AND vecus# = :i_Store
>                 AND veendt >= :g_oldestdate80
>
>              UNION ALL
>
>              SELECT MIN(dhindt) AS FirstDate
>                FROM dsthstp
>               WHERE dhitm# = :i_Item
>                 AND dhcus# = :i_Store
>                 AND (dhwhid = 99
>                  OR dhrel = 'Y')
>                 // AND (dhtype <> 'O'
>                 // AND  dhtype <> 'P')
>                 AND dhindt >= :g_oldestdate80
>
>              UNION ALL
>
>              SELECT DateToDecimalDate(MIN(rodate)) AS FirstDate
>                FROM roshstp
>               WHERE roitm# = :i_Item
>                 AND rostr# = :i_Store
>                 AND rodate >= :oldestdate) AS a;
>
>     the open files are
>     File       Library    Device      Scope       Activation Group
>     QDUI80     QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     QASQRESL   QSYS2      QASQRESL    *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     FA1120P    TESTAM247  FA1120P     *ACTGRPDFN  QILE       0000000000000013
>     POSDAYP    QS36F      POSDAYP     *ACTGRPDFN  QILE       0000000000000013
>     DSTHSTP    QS36F      DSTHSTP     *ACTGRPDFN  QILE       0000000000000013
>     ROSHSTP    TESTAM247  ROSHSTP     *ACTGRPDFN  QILE       0000000000000013
>     ROSHSTP    TESTAM247  ROSHSTP     *ACTGRPDFN  QILE       0000000000000013
>     POSMVEP    QS36F      POSMVEP     *ACTGRPDFN  QILE       0000000000000013
>     DSTHSTP    QS36F      DSTHSTP     *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     ROSHSTP    TESTAM247  ROSHSTP     *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     POSMVEL11  QS36F      POSMVEL11   *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     DSTPALU1   QS36F      DSTPALU1    *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     QDUI80     QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>     QDDSPOF    QSYS       RROGB       *ACTGRPDFN  *DFTACTGRP 0000000000000002
>
>     I checked (15. Display file overrides, if active) and there are no
>     overrides.
>
>     Can someone explain why these new files show the *DFTACTGRP?
>
>     Thanks,
>
>     Rob