Is there an option or parameter we can set to tell PANAPT to open the input (PANDD1) for read only?

Document ID : KB000026833
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction:

When a programmer attempts to retrieve a program from a production library, via PanApt, it abends with a security violation S913 because it is attempting to open the input file (PANDD1) for output.

Is there an option or parameter we can set to tell PANAPT to open the input (PANDD1) for read only?

 

Instructions:

  1. First go into Panapt and inquiry on the library code the move request is using.
  2. Go to model specifications and see what model is being execute during RETRIEVE process.
  3. Go into the APTMODEL file and edit that model most likely it is APJCPANV.
  4. Since Panvalet always opens for update, you need to update the model to open for read-only.
  5. Sample of the model is below. Add the PARM="OPEN=INP' on the EXEC statement.

@*--------------------------------------------------------------------*
@* GENERATE PAN#2 TO COPY THE $FROMNAME MEMBER IN THE $ORIGDSN *

@* PANVALET LIBRARY TO THE $DEST1DSN LIBRARY.
*
@*--------------------------------------------------------------------*
//XFER<$MEMBERCOUNT,4,4> EXEC PGM=PAN#2<COND_COMMA>,PARM='OPEN=INP'