View previous topic :: View next topic
|
Author |
Message |
mox512
New User
Joined: 04 Feb 2024 Posts: 24 Location: united arab emirates
|
|
|
|
I run this rexx Code but ITS cannot run and it seems that cant read ISFLINE in syslog.
/* REXX */
RC = ISFCALLS('ON')
If RC <> 0 Then Do
Say "Error in enabling ISFCALLS. RC:" RC
Exit
End
ADDRESS SDSF "ISFLOG READ TYPE(SYSLOG)"
If ISFLINE.0 = 0 Then
Say "No lines read or access error."
Else Do
Do IX = 1 To ISFLINE.0 /* PROCESS THE RETURNED VARIABLES */
Say ISFLINE.IX
End
End
RC = ISFCALLS('OFF')
If RC <> 0 Then
Say "Error in disabling ISFCALLS. RC:" RC
After execute:
No lines read or access error. |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1334 Location: Bamberg, Germany
|
|
|
|
Please, use the code tag button when presenting code/data to the forum.
The logic successfully reads the log here. Maybe you have a security issue to fix on your end. |
|
Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024 Posts: 24 Location: united arab emirates
|
|
|
|
sorry about that, how can i fix it? |
|
Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1205 Location: Dublin, Ireland
|
|
|
|
Maybe after
Code: |
ADDRESS SDSF "ISFLOG READ TYPE(SYSLOG)" |
insert lines to check the ISF messages
e.g.
Code: |
do ix=1 to isfmsg2.0
say isfmsg2.ix
end |
The messages might give a clue.
Garry. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
|
|
Also:
Code: |
Say "ISFMSG=" isfmsg |
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024 Posts: 24 Location: united arab emirates
|
|
|
|
Code: |
3 *-* RC = ISFCALLS('ON')
>L> "ON"
>F> "0"
IRX0100I +++ Interactive trace. TRACE OFF to end debug, ENTER to continue. +++
4 *-* IF RC <> 0
>V> "0"
>L> "0"
>O> "0"
8 *-* ADDRESS SDSF "ISFLOG READ TYPE(SYSLOG)"
>L> "ISFLOG READ TYPE(SYSLOG)"
9 *-* IF ISFLINE.0 = 0
>V> "0"
>L> "0"
>O> "1"
*-* THEN
10 *-* SAY "NO LINES READ OR ACCESS ERROR."
>L> "NO LINES READ OR ACCESS ERROR."
NO LINES READ OR ACCESS ERROR.
16 *-* RC = ISFCALLS('OFF')
>L> "OFF"
>F> "0"
17 *-* IF RC <> 0
>V> "0"
>L> "0"
>O> "0" |
|
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1334 Location: Bamberg, Germany
|
|
|
|
Please, see what Garry and Pedro have recommended. |
|
Back to top |
|
|
|