Re: Parameter integrity error occurred with reason code 3

When I call my program from a command line straight
after SIGNON I get no errors, but sometimes I get
(especially when i call other programs before):
Message ID . . . . . . :   CPF411D
Parameter integrity error occurred with reason code 1.

Your UFCB is in static storage, but your program never deactivates the
UFCB.

I suggest one of three solutions:

(1) Change your UFCB to be in automatic storage.

(2) Do have your UFCB in static storage; however, do not call the SEPT
program to close the file before the program ends.

(3) Do have your UFCB in static storage, and do close the file; however,
code a DEACTPG * before your PEND.

A personal observation:

Your UFCB has gaps with no explicit initial value.  IMHO that may create a
bug because you must trust that the program will not be compiled with
*NOCLRPSSA and/or *NOCLRPASA in the option template parameter of the
QPRCRTPG API.