|
I hit the wrong butten too quick, Then click on IP packet security. You define an interface, then the filter rules. When you define a filter rule, it allows to be journeled on or off. The default is off. Here is a partial of the program created to get the journal information. 100 PGM 02/16/01 200 DCL &DATE *CHAR 6 02/16/01 300 DCL &HEAD *CHAR 40 02/16/01 400 DCL &QRYSLT *CHAR 256 02/16/01 500 DCL &KEYFLD1 *CHAR 10 02/16/01 600 DCL &KEYFLD2 *CHAR 10 02/16/01 700 DCL &KEYFLD3 *CHAR 10 02/16/01 800 DCL &KEYFLD4 *CHAR 10 02/16/01 900 DCL &UNIQUE *CHAR 10 02/17/01 1000 02/16/01 1100 RTVJOBA DATE(&DATE) 02/16/01 1200 02/16/01 1300 CHKOBJ OBJ(QGPL/QAFILTER) OBJTYPE(*FILE) 02/16/01 1400 MONMSG MSGID(CPF0000) EXEC(DO) 02/16/01 1500 /* CRTDUPOBJ OBJ(QATOFIPF) FROMLIB(QSYS) OBJTYPE(*FILE) + 03/02/01 1600 TOLIB(QGPL) NEWOBJ(QAFILTER) */ 03/02/01 1700 /* MONMSG MSGID(CPF0000) */ 03/02/01 1800 /* ADDPFM FILE(QGPL/QAFILTER) MBR(QAFILTER) */ 03/02/01 1900 /* MONMSG MSGID(CPF0000) */ 03/02/01 2000 ENDDO 02/16/01 2100 02/16/01 2200 CLRPFM QGPL/QAFILTER 04/04/01 2300 MONMSG MSGID(CPF0000) 04/04/01 2400 02/16/01 2500 DSPJRN JRN(QIPFILTER) FROMTIME(&DATE) TOTIME(&DATE) + 04/04/01 2600 JRNCDE((M)) ENTTYP(TF) OUTPUT(*OUTFILE) + 03/02/01 2700 OUTFILFMT(*TYPE4) OUTFILE(QGPL/QAFILTERJ) + 03/02/01 2800 ENTDTALEN(*VARLEN *CALC) 04/04/01 2900 MONMSG MSGID(CPF0000) 02/17/01 3000 CPYF FROMFILE(AIFTEST) + 03/09/01 3100 TOFILE(QAFILTER) MBROPT(*REPLACE) + 03/02/01 3200 FMTOPT(*NOCHK) 03/02/01 3300 MONMSG MSGID(CPF0000) 03/02/01 3400 CHGVAR &UNIQUE '*NONE' 02/16/01 3500 02/17/01 3600 CLOF OPNID(QAFILTER) 02/17/01 3700 MONMSG MSGID(CPF0000) 02/17/01 3800 CLOF OPNID(SUMIP) 02/17/01 3900 MONMSG MSGID(CPF0000) 02/17/01 4000 OVRDBF FILE(QAFILTER) SHARE(*YES) 02/17/01 4001 OVRDBF FILE(SUMIP) SHARE(*YES) 03/03/01 4100 OPNQRYF FILE((QAFILTER)) FORMAT(SUMIP SUMIPF) + 03/09/01 4200 QRYSLT('TFFACT *EQ "DENY "') + 03/09/01 4300 KEYFLD((SMCOUNT *DESCEND)) + 03/09/01 4400 GRPFLD(QAFILTER/TFSRCA) MAPFLD((SMCOUNT + 03/09/01 4429 '%COUNT ') (SMENTL TFENTL) (SMSEQN + 03/09/01 4455 TFSEQN) (SMCODE TFCODE) (SMENTT TFENTT) + 03/09/01 4456 (SMTIME TFTIME) (SMJOB TFJOB) (SMUSER + 03/09/01 4457 TFUSER) (SMNBR TFNBR) (SMPGM TFPGM) + 03/09/01 4458 (SMRES1 TFRES1) (SMUSPF TFUSPF) (SMSYNM + 03/09/01 4459 TFSYNM) (SMRES2 TFRES2) (SMRESA TFRESA) + 03/09/01 4460 (SMLINE TFLINE) (SMREVT TFREVT) (SMPDIR + 03/09/01 4461 TFPDIR) (SMRNUM TFRNUM) (SMFACT TFFACT) + 03/09/01 4462 (SMPROT TFPROT) (SMSRCA TFSRCA) (SMSRCP + 03/09/01 4463 TFSRCP) (SMDSTA TFDSTA) (SMDSTP TFDSTP) + 03/09/01 4464 (SMTEXT TFTEXT)) 03/09/01 6800 02/16/01 * * * * E N D O F S O U R C E * * * * Gene_Gaunt@ReviewWorks.com wrote: > How did you add Network>IP Security? OpsNav shows me >Point-to-Point, > >Protocols, >Servers, >Internet, and >IBM Network Stations only. > > +--- > | This is the MI Programmers Mailing List! > | To submit a new message, send your mail to MI400@midrange.com. > | To subscribe to this list send email to MI400-SUB@midrange.com. > | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: dr2@cssas400.com > +--- +--- | This is the MI Programmers Mailing List! | To submit a new message, send your mail to MI400@midrange.com. | To subscribe to this list send email to MI400-SUB@midrange.com. | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: dr2@cssas400.com +---
As an Amazon Associate we earn from qualifying purchases.
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.