IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error to read log with rexx


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
mox512

New User


Joined: 04 Feb 2024
Posts: 17
Location: united arab emirates

PostPosted: Mon Mar 04, 2024 12:48 pm
Reply with quote

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
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Mon Mar 04, 2024 1:51 pm
Reply with quote

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
View user's profile Send private message
mox512

New User


Joined: 04 Feb 2024
Posts: 17
Location: united arab emirates

PostPosted: Mon Mar 04, 2024 1:58 pm
Reply with quote

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
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Mon Mar 04, 2024 2:15 pm
Reply with quote

Code runs fine for me, returning complete syslog. I'm running z/OS 2.05 .

Garry.
Back to top
View user's profile Send private message
mox512

New User


Joined: 04 Feb 2024
Posts: 17
Location: united arab emirates

PostPosted: Mon Mar 04, 2024 2:23 pm
Reply with quote

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
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1269
Location: Bamberg, Germany

PostPosted: Mon Mar 04, 2024 3:23 pm
Reply with quote

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
View user's profile Send private message
mox512

New User


Joined: 04 Feb 2024
Posts: 17
Location: united arab emirates

PostPosted: Mon Mar 04, 2024 4:02 pm
Reply with quote

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
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Mon Mar 04, 2024 10:40 pm
Reply with quote

Quote:
NO LINES READ OR ACCESS ERROR.

Are there any access errors? ICH Messages if you have RACF
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1269
Location: Bamberg, Germany

PostPosted: Mon Mar 04, 2024 11:17 pm
Reply with quote

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
View user's profile Send private message
mox512

New User


Joined: 04 Feb 2024
Posts: 17
Location: united arab emirates

PostPosted: Wed Mar 06, 2024 11:09 am
Reply with quote

What ICH messages am I searching for? What is the command?
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1269
Location: Bamberg, Germany

PostPosted: Wed Mar 06, 2024 12:01 pm
Reply with quote

mox512 wrote:
What ICH messages am I searching for? What is the command?

You will have to look for ICH408I msgs.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2548
Location: Silicon Valley

PostPosted: Thu Mar 07, 2024 4:22 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts OpenPGP Decryption job getting LRECL ... IBM Tools 7
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error when install DB2 DB2 2
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top