RE: Pointer not set for location referenced. -- RPG400-L

The CLEAR opcode sets the subfields of a data structure to there logical default
value. All numeric subfields are set to zero, all character subfields are set to
blanks, all date/time fields are set to the lowest values.
The presence of the INZ keyword is irrelevant to the CLEAR opcode.
You can use the CLEAR opcode anywhere in RPG IV. It can also be used in the
*INZSR subroutine. In this case, it works similar to the INZ keyword on the DS
declaration itself. However, the INZ keyword is applicable when the storage is
initialized, whereas a CLEAR opcode to a DS within the *INZSR overwrites any
initial values in the DS.

-Bob Cozzi
www.iSeriesTV.com
iPod your industry news instead of reading it.
Coming July 18, 2006
Ask your friends to tune into iSeriesTV.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of DeLong, Eric
Sent: Wednesday, June 07, 2006 11:25 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Pointer not set for location referenced.

Not for a data structure....  By dafault, all DS subfields are character data.
Specifying INZ() on these fields should allow you to set the initial default
values, then you use the RESET (not CLEAR) to re-initialize the DS.  Clear on
the DS will just set everything to *blanks.....

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-297-2863 or ext. 1863



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Eric Wolf
Sent: Wednesday, June 07, 2006 10:51 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Pointer not set for location referenced.


Michael,
It doesn't appear to be a problem with numeric fields but I will try adding 
the INZ to the DS.  I thought that the CLEAR opcode basically set all alpha 
fields to blanks and numeric fields to zeros.  Am I incorrect in this 
assumption?

Eric

----- Original Message ----- 
From: <Michael_Schutte@xxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, June 07, 2006 5:21 AM
Subject: RE: Pointer not set for location referenced.

Eric, if you are still experiencing this problem... (my stab in the 
dark..)
I was thinking that it may have something to do with the passing of the
external database.  You are clearing before passing it.  But doesn't that
throw junk data into the numeric fields?  Are there numeric fields in that
external database?  I'm not sure if you are getting the same error message
that I received awhile ago but it sounds familiar.  Thoughts anyone?

D External   E DS         Inz

/Free

  Reset External;
  result = calledProc(external);

/End-Free

Michael Schutte




            "Eric Wolf"
            <eric_a_wolf@hotm
            ail.com>                                                   To
            Sent by:                  rpg400-l@xxxxxxxxxxxx
            rpg400-l-bounces@                                          cc
            midrange.com
                                                                  Subject
                                      RE: Pointer not set for location
            06/06/2006 07:54          referenced.
            PM


            Please respond to
             RPG programming
             on the AS400 /
                 iSeries
            <rpg400-l@midrang
                 e.com>






  Scott,

  Since I know that I am not calling a RCLRSC, it would not surprise me it
  MAPICS is doing it somewhere in their job stream.  I will try changing
my
  program(s) to a named activation group and see if that solves the
  problem.

  Thanks...

  Eric



    ----------------------------------------------------------------------

    From:  Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
    Reply-To:  RPG programming on the AS400 / iSeries
    <rpg400-l@xxxxxxxxxxxx>
    To:  RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
    Subject:  RE: Pointer not set for location referenced.
    Date:  Tue, 6 Jun 2006 18:04:58 -0500 (CDT)
    >
    >Actually, *CALLER is much more likely to exhibit problems than a
named
    >activation group is.
    >
    >My guess (well, stab in the dark, really) as to what your problem
is...
    >You're running a servie program in *CALLER and calling it from the
    default
    >activation group.   Somewhere along the line, a program is doing a
    RCLRSC
    >command, and since RCLRSC doesn't understand service programs, it's
    >closing the files, but keeping the service program itself in
    memory.  When
    >it's used again, the srvpgm is horribly confused because nothing
    notified
    >it that the files were going to be closed.
    >
    >---
    >Scott Klement  http://www.scottklement.com
    >
    >
    >On Tue, 6 Jun 2006, Eric Wolf wrote:
    >
    > >   Eric,
    > >
    > >   For one of the programs, I am using a named activation group.
For
    the
    > >   modules that seem to be having the problem (which are in the
    service
    > >   program), I am using *CALLER with a Shared AG(*NO).
    > >
    > >   I was thinking along the same lines that maybe somewhere a
    RCLACTGRP was
    > >   being called but I not using that command anywhere.  We are
    running MAPICS
    > >   ERP software which (primarily) is not written in ILE.
    > >
    > >   I was thinking of changing the one program from the named AG to
    *CALLER.
    > >
    > >   Eric
    > >
    >--
    >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.



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