× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thank you Steve!  DSPPGM shows it when we page down to the end.  Yes, the
default used to be *CLRPASA for us but now it is *NOCLRPASA after
compilation due to an environment change.  My tests have proven this to be
a recent environment change specific to us.  I am working with IBM on this,
but fortunately I don't think this will affect anyone else.  I will
remember that workaround for the worst case scenario where IBM decides to
do nothing and we need to force it to *CLRPASA.

-Craig

** Steve wrote:
On 1/16/06, craigs@xxxxxxxxx <craigs@xxxxxxxxx> wrote:
>
> I have some CLP objects from BPCS as unmodified showing *CLRPASA under
the
> program performance information on the DSPPGM.  I think this is causing
the
> MCH3602 (pointer type not valid for requestion operation) when going
> between databases and using TFRCTL.  Debug shows the MCH3602 is generated
> on the TFRCTL.  The object performance information values are
Optimization
> (*NOOPTIMIZE), Paging pool (*USER), Update PASA (*NOUPDPASA), Clear PASA
> (*CLRPASA), Paging amount (*BLOCK).

how do you display that information?  DSPPGM does not do it for me.

>  We had modified this CLP and created
> with CRTCLPGM placing higher in library list.  CRTCLPGM creates the
program
> with identical values of unmodified object except having Clear PASA
> (*NOCLRPASA).
> I tried CHGPGM and I didn't see anything there.  The only thing close I
> found that deals with clearing PASA is an API called QPRCRTPGM but this
is
> for MI.  I cannot be sure that the unmodified BPCS source was not
converted
> to MI before compiling as the source modification date is older than the
CL
> source I now see.
> The only thing we modified was adding another call or two which aren't
> actually hit for the error.  I found the only difference was the
*CLRPASA.
> Putting original object higher in the list, it is fine.  Putting the
> modified object higher in list causes the MCH3602.
> Any ideas how to create a CL program with *CLRPASA?

Craig,

do you mean create the program with *NOCLRPASA?  I assume the default
is *CLRPASA.

the only way I know to control which setting is used is to compile the
CL program with GENOPT(*LIST).
  CRTCLPGM PGM(QTEMP/TESTcl) SRCFILE(QclSRC) GENOPT(*LIST)

Read the MI/IRP code from the spooled file listing.  Take that IRP
code, load it into an 80 char wide array, then call the QPRCRTPG api
with the array of IRP code as one of the parms and the create options
*NOCLRPASA as another.  The result should be your CL program with the
*NOCLRPASA run time option.

-Steve


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.