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

Products

• PanApt

Issue/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 Panvalet file (PANDD1) for output.

Is there an option or parameter to tell PANAPT to open the input Panvalet file (PANDD1) for read only?

 

Environment

Release: 3.2

Resolution

1. First go into PanApt and inquiry on the library code that the Move request is using.
2. Go to model specifications and see what model is being executed during the 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'