Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Rexx Macro - Hiding error screen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Wed Jul 20, 2011 1:16 pm    Post subject: Rexx Macro - Hiding error screen
Reply with quote

Hi,

I am trying to do some error handling. I have written the below code

Code:

/* REXX */                                 
"ISREDIT MACRO (N) NOPROCESS"               
ISREDIT "(MX)=LINENUM .ZLAST "             
IF LENGTH(N)=0 THEN N=7                     
ISREDIT "PROCESS RANGE C"                   
ISREDIT "(L)=LINENUM .ZFRANGE "             
ISREDIT "(MX)=LINENUM .ZLRANGE "           
ISREDIT "LABEL "L"=.A "                 
ISREDIT "LABEL "MX"=.B "                 
IF L == MX THEN                             
DO                                         
   ZEDSMSG='BLOCK STATEMENT MISSING'       
   ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"   
   EXIT                                     
END                                         
ISREDIT "C "N" ' ' '*' ALL .A .B"     
EXIT                                       


The code is working fine but when I enter some wrong parameters like
Code:

Command ===> CMM                     
000067                               
cc0068         01 WS-LITERALS.       
000069            05 WS-SELECT-LIT   
000070            05 WS-UPDATE-LIT   
c00071            05 WS-OPEN-LIT     


It display the below error screen...
Code:

 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
                           ISPF Edit Macro Error                               
 Command ===>                                                                   
                                                                               
 ******************************************************************************
 *                                                                            *
 * Command in error . : PROCESS RANGE C                                       *
 *                                                                            *
 * Command conflict                                                           *
 * "C" conflicts with a previous "CC" command. Delete one.                    *
 *                                                                            *
 *   Error message ID . : ISRE046                                             *
 *                                                                            *
 *   Last return code . : 16                                                  *
 *                                                                            *
 *   Macro executing  . : CMM                                                 *
 *                                                                            *
 * Press ENTER key to terminate the macro.                                    *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 ******************************************************************************


My question is how can we bypass this error screen?
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 20, 2011 1:29 pm    Post subject:
Reply with quote

Look at ISPEXEC ERRORS

google is your friend
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Jul 20, 2011 2:05 pm    Post subject: Reply to: Rexx Macro - Hiding error screen
Reply with quote

the manuals will tell all You might want to know about
ISPEXEC "CONTROL ERRORS RETURN"

here for ISPF
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM70
and here for REXX
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/IKJ4BK90

not the latest but more that enough for Your needs
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Wed Jul 20, 2011 2:43 pm    Post subject:
Reply with quote

Thanks enrico
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jul 20, 2011 9:08 pm    Post subject: Reply to: Rexx Macro - Hiding error screen
Reply with quote

Code:
IF L == MX THEN                             
DO                                         
   ZEDSMSG='BLOCK STATEMENT MISSING'       
   ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"   
   EXIT                                     
END                                         
ISREDIT "C "N" ' ' '*' ALL .A .B"     


It looks like you detect an error condition, but follow it with your regular processing. I think you are missing an ELSE statement.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us