Re: Clear PASA (*CLRPASA)

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