Rick,

If you want to add a system reply message then do this:

Its CPF message CPA4278

Active file found on this volume (C I R).
I                                        

Message ID . . . . . . :   CPA4278       Severity . . . . . . . :   99

Message type . . . . . :   Inquiry

Date sent  . . . . . . :   09/10/03      Time sent  . . . . . . :   01:50:34

 

Message . . . . :   Active file found on this volume (C I R).

Cause . . . . . :   An output volume open operation found an existing file

  (sequence number 73 label TLDB60 on volume CSXI01 device TAP02) with an

  ending date (in the HDR1 label) greater than the current system date, at
the
  location where the new file must be created. The output file QSYSTAP in
QSYS
  will write over the existing data file with an ending date of *PERM.

Recovery  . . . :   Do one of the following:

    -- Use C to cancel processing.

    -- Use I to write over the existing data file and all other files beyond

  it on the current volume.

    -- Load a different volume on the tape drive and use R to try again.

Possible choices for replying to message . . . . . . . . . . . . . . . :

C -- Cancel processing                             
I -- Ignore error and write over existing data file
R -- Try volume open operation again               
                                                   
in the WRKRPYLE type this:

                      Change Reply List Entry (CHGRPYLE)

 

Type choices, press Enter.

 

Sequence number  . . . . . . . . > 9997          1-9999

Message identifier . . . . . . .   CPA4278       Character value, *SAME,
*ANY
Compare data:

  Comparison data  . . . . . . .   *NONE

  Message data start position  .   *SAME         1-999, *SAME, *NONE

Message reply  . . . . . . . . .   'I'

 

                           Additional Parameters

 

Dump the sending job . . . . . .   *NO           *SAME, *NO, *YES

Coded character set ID . . . . .   *SAME         *JOB, *SAME, *HEX...


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.