Kommando SNDRPY funktioniert nicht

[rafnin]

Ich bin relativ neu in der IBM i Welt unterwegs und bin dabei ein CL Programm zu erstellen
welches im Batch laufen soll.
Problem habe ich mit dem Kommando SNDRPY.

Ich möchte Journale löschen. Falls diese noch nie gesichert wurden soll die Meldung
mit "C" automatisch beantwortet werden falls CPA7025 erscheint.

DLTJRNRCV JRNRCV(SAPSJ1RNL/QSQJRN*) DLTOPT(*NONE)
MONMSG MSGID(CPA7025) EXEC(SNDRPY MSGKEY(7025) +
MSGQ(QSYS/QSYSOPR) RPY('C'))

Beim Start im Batch wird die Fehlermeldung in die Message-Queue QSYSOPR/QSYS geschrieben.
Der MONMSG bzw. SNDPRY Befehl scheint nicht zu funktionieren.

Mache ich hier etwas falsch , z.B. bzgl. Message-Key ( 7025 ???? )

http://newsolutions.de/forum-systemi-as400-i5-iseries/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA8cAAABtCAIAAAA DAoQYAAAKEklEQVR4nO3dyZLbOhIF0Pr/n1ZvXjjcRRG8SKQ4yOeEFmUSBBIjs9165Z8fnuX18/O6OoZZt435toHB b5gO3xBFwA4z NeG68Hxgz/mi/Yp1/QBQBOdfPXxmvnA9zHF zTL gCABe7 ZvDew7u7wv26Rd0AQAAAAAAAAAAAAAAAAAA4BI3 W 0bxIGAABMu1sie7d4zuH3TwEAPNsgk v9haNhbSdnlnv/WsGZYQwaTa58jakV0lXssHC4NvaaGBSeiq0WfLnRxPn/OzDvwrjM1H7vWkjbYodOXpbPcqsunL8XehWW9zlOeAMenhJfr6 Wn/8hYHcvfTItDVniNnWMvsNNimB2Kb127U1lCV7FB cOq3s5LktYU9sJU5C0Dkrjk/Zp0oTwaH11I2zKFLs92IV Wj3OrLpy8F9qFZ0LX0bGtM7/bPs7r /TpGl8HF7o8gP8kcXzo7Xv41jnH5TNxeQB3EK6Q3mKDSMZX8ka3 jxdSn0HYJwzITeRd HVxUOawid6F9OvxqZH/9LJ8oi/owt2EQ9o78pfP4 UBfIfLh/HyAP5zZla9fv0TLp JywO4g3Al9BYLI5lq9PDxPLY/Vw6z6jC2/PEbmp2FbZnLF9JPNqdhbb3L8om oAt3I6um7PJhvDyA/1ybVX uxfa23r4ODzOht zX4XHJfMyP0GLbwML292rKuzs2GKWU6stfHY2tvHjhdgKo9qYH Y6bSMJeXBu/aqsVqw3I vjU7ible5dlOYxxo4fP5mdI48GVKB qh3U2xpZcn2p0cZfttRjOaRh/uIrC8Pa6U5vTvdpCjYu8Ngt5bNvy V6e6kJSYdjTkyTNr4c4W8OZgzJ1jhyu1KTMuHDY7myZqfDCCqc 6O3a4r7YtrtcWPjvu 7bY3vVybLXts9ho3so47K7Drnfqe9fbVCTJ3aR877Ish/H2 iC2vYBrJ1Lt4EpMVZW01R5bcn220TCkwq7PZz ssNbNWmzjcfj0kit0tjwLK7EtznterLaQzpM0vx7ibA1nDsrsU n7789ti44u/7hYCnrqSX1x59me O OnkvNipbZai4cd3/s5LzYb9jbOQmwFh2EfLq3Ztlqm/m2x8SKfDX5cuLbrx4GdMPXrw/v24vgMCQ f/IxKFFbv1F5Yj 3weqHRqaNmpYaVR5KpyfteHpBPr7e3F6eKFQLIY9s 0r5Pk8MhvHWqJI71WGvb5hyv/c9eSHs/b/94eH18axzzuIZ8OZa70DhNs OWT1ZyfVwmWR6/HgxXyKDYbNjbOAuxFcyG3dXiuKeHUxbu rDRwSO1u0n53mVZCCNc5IWLYZnywZUoRFvYwuXtkBx6hUbX13a hR uPhJPVOyAnrLft9cVihQDy2tr36foheY2VQ623ld4W29taeZ2M W0lO6vHrs/dMGbS4uOgHVk6ocECmahtcmT07Pr1C9sp3DUjSVn6rd2vv9TTc MuPlnTc6KFa7m5TvXZaFMGaPwfJ6aD 4EoVoD/dCV2xv20quhHEWWv91a6qbyd1kOx9W2zsghdoGehd57ywsrory Pp0dyfJuarZyqPW20ttie1t/F9v7eVDbyr49 Uz53KIfWDyharNQHrf8wXJs4a09643WGjq81b61G6e t9FxE vj1rssQ6//f/y1U1s IEkY7QdX4hNz2hXb27by83n9qEnGIe/p riVt0wYwNStxvW2vZ4vpPZZuKoLufJuarZyqK230rsuaworZu/nQW0f3be9Z0o I3TtBhbY7Fk3MIjIH8BDK7Xbq03GpqNrdziOSuksdFxE vj1rssQ3 e vsA3LaSD0gSRvvBlThhThe9/n8W8mjX4yx05/zzLdkLJ8QWOmeR9/Y0LFbuwmxnP7HLKlYOtdlWknfAVIstg1hoa3CczfZ0HMAnzpTD i Nok/AKVmJrLDZ48DDgqWLhcX94d31AFs2u3nKjUz09DGZqhXctpEE8 s/Xv1VBelqHX5tntlbwLe El0a4cXIlCtLP7dNF2FpJGx5FM7YsptUZXtnPY9/KAFGobOGeRN/Z0 8jUZH1imYWHyRmS0Vw/FLZVhXNwWOeivcAGK2ZwnCVV5b0oxJZcPAxvqliXcNxOKPa2zF 7A42JTw3t T1emrzZuK42urMlkssqN7hX7aG3tyzKxjWc8EeVeDNo9nP2WdV 4Y89rUd 3BwwJJi2FUs0t3KshCbflk5bGdP6eNi3xqFrp6On623NNcuNjO kC/3xYCm9lhe4aLCvt37 e8/5uM2LlBezeH2GD e7MZGUyvkQ8X2Chxen3o8iS05d/La8mKh2vJYbLe8JsPJqjX6tlhYVb5Pxz3auz77 KHtg0kX9orlYWwHJNxZXd0cRFvegIt7cBDSbGzb8uVi SJ/ 0hY2 Eiz3dW2O5h5IPaQo2LPJ FrtU7rr/chSlJL07StcO/I4wVT4z/njH3LoYvWFoA3Fzvi8Zri3/dE/fAbWN2PAHwIF5b0Olxe8Bf4gLAOv8XKzS7 R7Iv2sFAOzpfZ96O8MbN98GNi0ArOt9n3o7AwAAAAAAAAAAAAA AAADwITf5z1dvEgYAAEy7WyJ7t3gAAODYIIvt/V2MYW2yagAAHmacwn7696VLrAEA AZJ/tr4t9SHF7taBACA85yZVa9fBwCAO7o2q/5ciwAAcB5ZNQAArJJVAwDAKlk1AACsklUDAMAqWTUAAKzym/UAAGCVfwUGAAAaHP7L4Sf/i VSagAAnuecrDqvTVYNAMAjtSTNXxMGAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAA/4LXXx8AAGDaa/PpqvOe7hwbAACP9CuT7kqs75y53jk2AACe520O3ZJY3zlzvXNs AAA8z15 ev6nz8m3xLZfp/kbdYeBpN8O VteIOS7V93AQDgnzaVVYf5aGNWHba7VywsCQAAS2az6sGVsOaV RgsXZ2MDAIBpg7/lffsNkO2z45oPb 39PKhhKoGejQ0AAKbJqgEAYNXUlzHCZw/v/rn1K4OXVQMA8EiXZ9U/f/0gqwYA4JEuzKq33/142 jbBPo WXVvgi7dBwB4pE9n1ePMeJxVbyt5W YwkqnYZsmqAQD4YFb9M5kHjyMZJ8GFZFRWDQAAAAAAAAAAAAAA AAAAAADc3N6vNfTx8fHx8fHxOf8DD/XKXB0mAADcmKwaAAAAAAAAAAAAAAAAAAAA7uGc//TfLxIAAOCbyaoBAGDVOfmurBoAgG8mqwYAgFVhvvunWPL9kO3X SN6W/9wXTgAA4FRTWXWSB4ff0s4rBACAu5tNggdX8ov5swAA8ABTWfX bZw Lba HxQAA4BnCRPYTWXWSzQMAwAPIqgEAYNWFWXUpXgAAuJ9PZNWHF/21NAAAXyX8MkaYVY8rLBQDAIAHaM qt3WOH5dSAwAAAAAAAAAAAAAAAAAAAACL/gdkTYqrq2ybvAAAAABJRU5ErkJggg==
---> F1

http://newsolutions.de/forum-systemi-as400-i5-iseries/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAvsAAACFCAIAAAB KVKCBAAAMZElEQVR4nO3d3XajuBIGUL//S dczFkZj42KTz/EgPdeuXBAVElCFEr3TOfxAAAAAAAA4PF4PH6efLovADS0yvRk b79C CgeRtLuiTsZORL3O4jluXPfy2MfB73Hh3wLT6 47loJW0N0I7n0EsmLX9z32ArkPT/BsME MyfVXwk0Vp32vEscYkdz3KGAHAZdjxjfp68Hz806UHBJ9nxXNQ NhgAQ6drx/LwpYu5W0vdoRU SNu Nx6IlnjNuHu8dZtKyd5h5y92pWNi3fE5222wmTYZQNBiINjOEV t6fcnpfDg50bGwIrdlIRro5zL JBvB49Ox4Nuvj2hLZqmvDzYaHsOv3wpcIw0mTIYTDHG5ZD3ZV3 1qNw6QDcxuOdDjazBDCqSva/Kx4TsNmm1MRJp3s2HA0gP97LhOtz4 n vJ bavKhAVoN0KStDg4M4Sw28W8Fdfu9m1mCMmEdJ1a2LfhpMm87d 7QrqRrow0c3Gzz/rnVvWQUSYS62dqbtTYawL ea0Tr8/u3u8frU5MRWgVxLNFYlQznLezM5FyNTUjYfnnfZk4l81Z3uDfp 2mibx3tX7/x6680 FmHsZh1364FvF1bSn9Ju5LADm6eSpEmugSHk3f79ttW3OunkXI 1NSNh ed/yU2PzVne4tz9ro20eT2b4uU3r8/ORet56s9fNwpGG03vcrQe 3W NeCkrm/XlI5U0SZrkGhhCV7dn5m1yrsYmJGy/vG/5qbF5qzvc25 10TaPJzP83Kb1 fHR53T3eDi9x9164Nv91ojnGvrIqlUYebhZnjRpubYa1pV6N nY9IbR8oBJ V9OzppfW1v0rXRNo/3rt7W566kXdnHIiR9G166AzcL HY/T1pHng/2Rp5plifN3xmrCmJRcAfeQK2 Db/PFt6s5X2bSZpEqC/s7c9ktM37MnCzntu0Phehxu5CV4TdkYbTe9ytB0iLzk/bZsCiQdF4N1TRt3CkyRDCUK34ScbNIdTNWl0dnpDNvEmbmb61w q5Kmo8iubCeyeTsWN6iTetzkbFIsdsmiZNkzMeeDCGPBvCvsDY 9GpUoaZZ0YCZpXunCIYRxkuObGYtRFG16k YD2Z2NhX1rhV2VNI WXJj0v3U2SZoEeWnT tzKWKR v2RsCEmzrund7X9XNAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO7p5/H46Tl aNIlYScjHzrwv/Tz9rXb4B4DZ62xhVSspbpNK1qYeu0QPBE1k8bF1CXg0KQHhf37 Hc85H/LlLyq ULJIurYLM5uPMO/RQ DXzebtuj0ndacdzxK32fH8o hbUffhsbc5eDkycG2 3lpJw76NDYFd a2/hIt2mw71Dz2HJj2nb97xPK5crViutRLC7cLY5qMVJyxQM32jVz i9V3HRbtPh9x7vFpT8jy53Wz4nraP1tsyr53zfkmitZskwl jd8dSXcJwTTnvYpbWbj7DB5Oq141mi6y7kZXBJtOcLB0p0671Q H yq5O/prMPDtea6dS/DVVu3TNrMtKwHu6pvrcZh0t42Y4o4u2WCv3TCaQ 7FC6ksfVWP1a90Voxj3sA7y2/NXkZTLIc vrI zZTybteNCzzPMWtz/W1m4WjyNJq1nuw6FLY28m DSdN5q33GW4Z6Lan7iNOOO1hl qFuhttbAEPF676kfT66RLOW1cZbGXpjVYfLIaTnxqr7V0HWWy4 cGw2mymRm8d7V8DYah7r28ypZN7qF0lYl f7xtfqemTy196SBTxWuFrp6meNlq5b37p889vinp7n9RFmHJ4Q 1mstpq6C1YoWJi2OH71kZ/qWnxqbtyWrf6Dbnjr 0fXI7G5iBnY8a1fvwA7Gs1ALd4oDZXB3x5MspKNfH2HGvGPW2 E2b8b78Zk3d5K06MyhS3amb/mpsXlbsvrXvjP4KpOPTNjsb3Y8A9udugM84rvQWwZfztrxsEzr ZoRbGTue45J ZMcz9mLglj711M cWruqPQu1g1bIz9OR4WhdLXfb2/HcRFggulb27i3/4I5nYd9mkiYR/n7Hs2S7s/ahFe2DNtdDXhw2o XHk1P5 6bu4dp90vfoen2EZfC55fuRPFqre2Ptw2507XiOKL J2xeuSu S3fzavLZolte fDbrXh3Rt1bYVUknV9LuhCR3czjvKqJ9Vv7Ih6Hy47uRJ8tRWN 8o5PPWexdaR7ry9t7B YKZV/IPLrlvKFxNeRmaXNwzSfOB7K6bhX1rhV2VdHIlzd mmbyriPZx4UIK4 THk8hji7x4Bv/43XN14RuhaLzZpj4yE61rRLtnJyv5e f/ZtV9SeECAE7K7gEAuD87HgDg5vxdKgBwN13/CRQAwCXZ7gAAAAAAAAAAAAAAAAAAQAf/Xy7wpwZ vd9xSZeEnYys/sKLI7Ym/iUS4K8t/K2zvUkPCvv3O54blOwbDIGDHPHvpNnoAB9wpx3PEnY88OulPqz aqVhvwAe0fnSz4zn0krO5wRBYrqgM/u4YuJ7f0rO748l/D8huy ekdbTelruVdGHfkmitZskw5zMmo8hvK4c64czvrq6Xb5MllKy3 cPUOV6TW0DwIcHOtEtDaCoTVqm6ZtJlpWQ92Vd9ajcOkvW26Wk 7OMH/vhDNfL8KXb8NVtHD1rn0WukYBXNLzU936XF 7WfuKLK1mvQeLLoW9nezbcNJk3vKCe/S88TdOeAt6dzzFkTBycfnCijTcDLi2mR3Pe7Oxq4rjvRVn/qWe923mVDJv dgPnTe 1k/59dJs89o68tjZpM 7ocaaAdfWevKLn3h6a99u0uL4PXY8C98ZSbS6S71D4GudfMczU 5E2myVPFnBhmy/L9 MztS9JWnTGjqc3Wt2l3iHwtbq2C G182ef29jxAB3q12rRbPO4Hc/CpPls2PFwhPPveMb6ljcDbqWoVjM/KiXNks4s3/Es7NtM0iTCRXc8a18eon3QbXY8m09HUriAW na8bS Nq8tmh3x5q57dUTfWmFXJe2a2yU7niV1/8z7gO JtsT5dzyrKlLeDLiw3s1HUhGG38czb 6wTi3sWyvsqqT53M7veHaH0BtnFdE 6Mw7nsd/V2xXRar7bLsDANyE3QwAcH92PADAzfkbKwDgbsL/1gcA4MJsdwAAAAAAAAAAAAAAAAAAAADodJJ/r L2v5oRLmf4d/ReLulzzPm fY TTMip7oW1cV7n TdJz7bjsWT5cmO/nHyyhnwk6UvMyb59j/NMyKluRD4Pp r2/W3emE tWjseOI wOKytIR9J nJ5K8KpquUZnGpCLnoXLtrtq2pN9w2WrB0PzAiLw9oa8pGkzxf u7ngWJr26U03IRe/CRbt9VV3TvftHly9Vow7 HqqImf/4VUR7DxVGa4XavGrzyPMpS5x3F1oV4eZjSfDeLIf nHOqF/wZ3OD1sVnq88a7fSvk7yOWyec6WRPhuilajgVcG63V8r3B5lVh xyxunl1lSbyv3s0X1fBY6keyt28LO1Ccusq9W 4Gr4 8RI91r3dOOFzXLawPJkdmok2mCMf1cjY/VXfj/TP8usSS6H1nDKeoP7d6tWQOk0S7B7/H1V8fw73djRauim9ePJ9UL9x6KdfN1kYbbtbyBzue jNcQqu r90HnHnH855rYd5Lu 7rY/Ns0o3daHY8l1Hsl tH/YglO5a0yJtXKzse EfxpIy9WupEY9GWbD52I7yXDo/zs2u9Puqez0fbZfGcwoWW7NEPQH7KjodbGntM/n7HM5x0MoLH cWFXh/v7YsR2fFcXtfqGYs2uWTHkubR7HigUJf1x9CTtZtu9/japGGE45Je1A1eH8 NBxb5bsxVzVhj8063dt 7N6Zrya5NGkYL xye2u3tQTuetQ JaPeLtkryDIYP4MupgWjHJQ1b9ia9vRu8PsKWA3f5tDuebyhcl Z/GV9hsd1cxHG1ts6LNboHrGkJr7K3PA868ZEU7Q7Ql8kdm4LEay DvW7INJv8HkvL2X6M0LB6J1JV0VrdWy8PcL6faFa19X1dhdE5t X7UarL9/tXhItX7Kbl yerSek9XnAmZesaGeItkT MthsXIftTT3TLEmaV4Y86Ze49OtjcpEvWSF/vJZuX7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAODN/wDYzo5s4971qAAAAABJRU5ErkJggg==

[Fuerchau]

Das ist auch kein Wunder.
Der DLTJRNRCV sendet die Nachricht an QSYSOPR und wartet auf die Antwort.
Dadurch kann dein MONMSG auch nicht wirken.
Ein SNDRPY geht nur, wenn man per RCVMSG vorher den MSGKEY einer Nachricht besorgt hat.

Um Nachrichten beantworten zu lassen, selber geht das nämlich nicht, muss man einen CHGJOB INQMSQRPY durchführen.
Hier gibt es 3 EInstellungen:
*RQD geht an den Requestor (Dialog oder QSYSOPR).
*DFT beantwortet mit dem Default der Nachricht
*SYSRPYL mit einer definierten Antwort.

*RQD hast du ja schon kennengelernt.
*DFT wird nicht helfen, da der Default wohl eher "C" für Cancel ist (siehe DSPMSGD)
Die einzige Chance ist *SYSRPYL.
Dies ist die Systemantwortliste, die per WRKRPYLE bearbeitet werden kann.
Hier kann man dann die von Default abweichende Antwort hinterlegen.

[BenderD]

DLTJRNRCV DLTOPT(*IGNINQMSG) ist Dein freund.

D*B

[rafnin]

DLTJRNRCV DLTOPT(*IGNINQMSG) löscht alle Jounale, auch die noch nicht gesicherten.

Ich möchte nur die Funktion im BATCH nachstellen die ich im DIALOG bekomme.
Also: Automatisches "C" setzen falls CPA7025 hochkommt damit der Job abgebrochen wird.

Reinhard Doeker

[BenderD]

... dann zieht Baldurs CHGJOB (oder passende JOBD verwenden).

D*B

[rafnin]

Also mit der Systemantwortliste funktioniert es.
Nur muss man dafür sorgen wenn zur Laufzeit CHGJOB INQMSQRPY abgesetzt wird die älteren Jobs
gelöscht sind ansonsten erhält man Meldung "doppelte Jobs....).


Bei SNDRPLY im CL habe ich folgendes probiert:

1) Message CPA7025 manuell erzeugt:
SNDPGMMSG MSGID(CPA7025) MSGF(QSYS/QCPFMSG) TOMSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ)
DLYJOB DLY(5)
RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*LAST) RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
IF COND(&MSGID *EQ 'CPA7025') THEN(DO)
SNDRPY MSGKEY(&MSGKEY) MSGQ(QSYS/QSYSOPR) RPY('C')

Hier funktioniert das Beantworten der Nachricht !


2) Lösch-Befehl ausgeführt der CPA7025 erzeugt:
DLTJRNRCV JRNRCV(SAPSJ1JRN/QSQJRN*) DLTOPT(*NONE)
DLYJOB DLY(5)
RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*LAST) RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
IF COND(&MSGID *EQ 'CPA7025') THEN(DO)
SNDRPY MSGKEY(&MSGKEY) MSGQ(QSYS/QSYSOPR) RPY('C')

Hier klappt es nicht obwohl CAP7025 ebenfalls in der QSYSOPR steht.

Reinhard Doeker

[Fuerchau]

Der CHGJOB sollte im eigenen Job durchgeführt werden, da (*) keine Duplikate bringt.
Was deinen DLT angeht, so stimmt das Muster in der Antwortliste nicht überein.

[rafnin]

Sorry, verstehe ich nicht.
Im CL-Programm setze ich folgende Befehl ab: CHGJOB JOB(SAVE_JRN) INQMSGRPY(*SYSRPYL)
SAV_JRN ist ein gegeplanter Job.
Lasse ich den Job im Batch laufen ist alles soweit ok.
Bei einem zweiten Start erhalte ich Fehler:
Nachricht . . . : (C D I R) CPF1332 von SAVE_JRN_Y bei 200
Fehler bei Anweisung 2000 festgestellt. Der Nachrichtentex
Ende der doppelten Jobnamen..
In der Spool stehen Einträge vom ersten Job:
Datei Benutzer Warteschl. Ben.-Daten
QPDSPJOB DOEKREIN BETRX
QPPGMDMP DOEKREIN QEZDEBUG
QPJOBLOG DOEKREIN QEZJOBLOG SAVE_JRN

Dewegen lösche ich im CL als erstes mit DLTSPLF FILE(*SELECT) SELECT(DOEKREIN) die Dateien.
Der löscht dann aber auch alles, was eigentlich auch nicht sein soll.

Wie wären denn die richtigen Parameter beim CHGJOb Befehl ?

[Pikachu]

CHGJOB INQMSGRPY(*SYSRPYL)

[rafnin]

Danke an beide, funktioniert nun.