ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Message Reply probelm

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Message Reply probelm

    Hi,

    Since our upgrade to V7R3M0, messages that would normally request a reply, have been auto- replying.

    For example, last night we had an un-monitored error:


    CPF2113 Escape 40 22/01/19 18:49:58.750138 QLIRNOBJ QSYS 0DE3 BLK98C BLBSYSLIB
    Message . . . . : Cannot allocate library BLBEODLIB.
    CPA0701 Sender copy 99 22/01/19 18:49:58.878809 QCLXERR QSYS 00DA QCLXERR QSYS
    Message . . . . : CPF2113 received by BLK98C at 8600. (C D I R)
    *NONE Reply 22/01/19 18:49:58.916874 QMHSNINQ QSYS 1065 QCLXERR QSYS
    Message . . . . : C
    CPF9999 Sender copy 40 22/01/19 18:49:58.917410 COBB15C BLBSYSLIB 003D COBB15C BLBSYSLIB
    Message . . . . : Function check. CPF2113 unmonitored by BLK98C at statement
    8600, instruction X'004B'.
    *NONE Reply 22/01/19 18:49:58.931222 QMHSNINQ QSYS 1065 COBB15C BLBSYSLIB
    Message . . . . : *N


    Both the C "Cancel and the *N replies were made automatically and caused us problems today.


    So I ran a test using SNDUSRMSG with a reply..

    Again the job auto replied with *N

    here:
    Batch has been halted (see second level text)- Do you wish to continue?
    Enter "Y" to continue or "N" to End the batch
    Reply . . : *N


    The job9s) are using "Inquiry message Reply" *RQD


    Oddly, our other LPAR is fine with the same test.


    I'm a bit confused about the *N

    Any ideas as to what is causing these issues?

    Many thanks
    www.midlifegamers.co.uk

  • #2
    So here?s my simple test.. I created this CLP:



    Code:
    DCL        VAR(&ANS) TYPE(*CHAR) LEN(1)
    Code:
    [I]SNDUSRMSG  MSGID(COB0087) MSGF(COBMSGF) VALUES('Y' 'y' +  [/I]
    [I]                      'N' 'n') TOMSGQ(QSYSOPR) MSGRPY(&ANS)        [/I]
    
    [I]IF         COND(&ANS = 'n') THEN(CHGVAR VAR(&ANS) +       [/I]
    [I]                      VALUE('N'))                                  [/I]
    [I]IF         COND(&ANS = 'Y') THEN(CHGVAR VAR(&ANS) +       [/I]
    [I]                      VALUE('Y'))                                  [/I]
    [I]CHGDTAARA  DTAARA(HALTEODH (1 1)) VALUE(&ANS)             [/I]

    When run I get this on QSYSOPR:

    Batch has been halted (see second level text)- Do you wish to continue?
    Enter "Y" to continue or "N" to End the batch
    Reply . . : *N

    But it did not wait for my reply.

    The data area afterwards :

    Data area . . . . . . . : HALTEODH
    Library . . . . . . . : BLBDAYLIB
    Type . . . . . . . . . : *CHAR
    Length . . . . . . . . : 1
    Text . . . . . . . . . : Halt EoD - Answer flag

    Value
    0 '*'
    Last edited by Huddy; January 23, 2019, 10:03 AM.
    www.midlifegamers.co.uk

    Comment


    • #3
      Issue resolved:

      The "Delivery" option on MSGQ QSYSOPR was set to *DFT and should have been *HOLD.

      Hope this helps others.
      www.midlifegamers.co.uk

      Comment

      Working...
      X