|
View previous topic :: View next topic
|
| Author |
Message |
mox512
New User
Joined: 04 Feb 2024
Posts: 21
Location: united arab emirates
|
|
|
|
Hi, I poste this question in this forum:
ibmmainframes.com/viewtopic.php?t=69407
my final code is:
| Code: |
TRACE ?I
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 |
and its a trace:
| 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" |
I use isfmsg2 in my code and unfortunately do not receive any feedback. This code works correctly in z/OS 1.12, but not in z/OS 2.1. I am very confused. |
|
| Back to top |
|
 |
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1204
Location: Dublin, Ireland
|
|
|
|
Why start a new thread for the same issue? You say you use isfmsg2 in your code but I can't see it anywhere.
Garry. |
|
| Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024
Posts: 21
Location: united arab emirates
|
|
|
|
If i use isfmsg2 this trace out:
| Code: |
/*REXX*/
TRACE ?I
RC = ISFCALLS('ON')
IF RC <> 0 THEN DO
SAY "ERROR IN ENABLING ISFCALLS. RC:" RC
EXIT
END
ADDRESS SDSF "ISFLOG READ TYPE(SYSLOG)"
DO IX=1 TO ISFMSG2.0
SAY ISFMSG2.IX
END
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
|
and the trace is:
| 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 *-* DO IX=1 TO ISFMSG2.0
>L> "1"
>V> "1"
10 *-* SAY ISFMSG2.IX
>C> "ISFMSG2.1"
>V> "ISF767I Request completed."
ISF767I Request completed.
11 *-* END
9 *-* DO IX=1 TO ISFMSG2.0
12 *-* IF ISFLINE.0 = 0
>V> "0"
>L> "0"
>O> "1"
*-* THEN
13 *-* SAY "NO LINES READ OR ACCESS ERROR."
>L> "NO LINES READ OR ACCESS ERROR."
NO LINES READ OR ACCESS ERROR.
19 *-* RC = ISFCALLS('OFF')
>L> "OFF"
>F> "0"
20 *-* IF RC <> 0
>V> "0"
>L> "0"
>O> "0"
*** |
|
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1204
Location: Dublin, Ireland
|
|
|
|
Code runs fine for me, returning complete syslog. I'm running z/OS 2.05 .
Garry. |
|
| Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024
Posts: 21
Location: united arab emirates
|
|
|
|
| Why can't it run for me? I use z/OS 1.12 running well, what's wrong? It can't run with this z/OS. How can I fix it? please help me |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
Try adding:
| Code: |
| verbose="VERBOSE" /* .. use SDSF verbose mode */ |
and change the call to
| Code: |
| Address SDSF "ISFLOG READ TYPE(SYSLOG) (" verbose ")" |
|
|
| Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024
Posts: 21
Location: united arab emirates
|
|
|
|
I PUT verbose BUT I CANT READ AGAIN:
| Code: |
ISF147I REXX variable ISFTRACE fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFTRMASK fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFSECTRACE fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFSCHARS fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFACTIONS fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFAPPC fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFPRTCCASA fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFCKLIM fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFCMODE fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFCONS fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFCONMOD fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFDATE fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFDELAY fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFDEST fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFDISPLAYMODE fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFDUPDS fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFINPUT fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFOWNER fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFPREFIX fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFSYSID fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFSYSNAME fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFTIMEOUT fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFLINELIM fetched, return code 00000005 value is ''.
ISF147I REXX variable ISFLOGSTARTTIME fetched, return code 00000005 value is ''
.
ISF147I REXX variable ISFLOGSTARTDATE fetched, return code 00000005 value is ''
.
ISF147I REXX variable ISFLOGSTOPTIME fetched, return code 00000005 value is ''.
ISF147I REXX variable ISFLOGSTOPDATE fetched, return code 00000005 value is ''.
ISF147I REXX variable ISFLINELIM fetched, return code 00000005 value is ''.
ISF147I REXX variable ISFSTARTLINETOKEN fetched, return code 00000001 value is
''.
ISF147I REXX variable ISFSCROLL fetched, return code 00000001 value is ''.
ISF147I REXX variable ISFSCROLLTYPE fetched, return code 00000005 value is ''.
ISF146I REXX variable ISFNEXTLINETOKEN set, return code 00000001 value is ''.
ISF146I REXX variable ISFDIAG set, return code 00000001 value is '00000000 0000
0000 00000000 00000000 00000000'.
ISF767I Request completed.
NO LINES READ OR ACCESS ERROR. |
|
|
| Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
| Quote: |
| NO LINES READ OR ACCESS ERROR. |
Are there any access errors? ICH Messages if you have RACF |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
A couple more things..
- Check the available REGION where the EXEC runs (your Uid or Job)
- Check/add that your ISPF Profile has WTPMSG and VARSTORAGE(HIGH) set |
|
| Back to top |
|
|
mox512
New User
Joined: 04 Feb 2024
Posts: 21
Location: united arab emirates
|
|
|
|
| What ICH messages am I searching for? What is the command? |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1329
Location: Bamberg, Germany
|
|
|
|
| mox512 wrote: |
| What ICH messages am I searching for? What is the command? |
You will have to look for ICH408I msgs. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2590
Location: Silicon Valley
|
|
|
|
re: You will have to look for ICH408I msgs.
Use SDSF in ISPF to look at the system log. And look at the exact time where your batch job ran. Maybe also look at the execution log messages part of the job output. |
|
| Back to top |
|
|
|
|
