Tweet
Create PF for each MSGQ. .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6[*]************** Beginning of data ************************** A* File to copy SPOOLS in A R FIRSTR A FIELDS 142A TEXT('MYFIELD')[*]***************** End of data ***************************** Execute the following CL commands: (You can create a little CL program too). DSPMSG MSGQ(QSYSMSG) OUTPUT(*PRINT) CPYSPLF FILE(QPDSPMSG) TOFILE(MYLIB/MYFILE1) SPLNBR(*LAST) MBROPT(*REPLACE) DSPMSG MSGQ(QSYSOPR) OUTPUT(*PRINT) CPYSPLF FILE(QPDSPMSG) TOFILE(MYLIB/MYFILE2) SPLNBR(*LAST) MBROPT(*REPLACE) That's all. The only problem is, that in the file you have the Print File Headers, but with CPYF command or QRYDFN that records can be ommited.
-
-
How to port Messages from QSYSMSG and QSYSOPR to DB2
Can anyone tell me how to push all messages from QSYSMSG and QSYSOPR to DB2 -
How to port Messages from QSYSMSG and QSYSOPR to DB2
I need continuosly use dspjrn to psuh all entries from jrn to db. It should happen at a specific interval or when jrc is changed.Comment
Comment