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
 

 

Edit Macro Fails in GET

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

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Thu Feb 13, 2014 3:50 am    Post subject: Edit Macro Fails in GET
Reply with quote

I have an edit macro:
Code:
/*REXX*/                                     
TRACE I                                     
/*DELETES STEP70*/                           
ADDRESS ISPEXEC "TBTOP  @PARMTBL"           
ADDRESS ISPEXEC "TBSKIP @PARMTBL"           
address isredit "FIND STEP70"               
 
if (rc>0) then exit                         
 
address isredit "(L1) = CURSOR"             
observe = l1                                 
address isredit "LABEL LINE .ZCSR = .FROM 0"
address isredit "FIND EXEC"                 
 
if (rc>0) then exit                         
 
address isredit "FIND EXEC"                 
 
if (rc>0) then                               
  address isredit "DELETE .FROM .ZLAST"     
else                                         
  address isredit "DELETE .FROM .ZCSR"       
 
newdata = "//* STEP70 deleted by TEST "   
address isredit "LINE_BEFORE &L1 = (NEWDATA)

Run in batch ISPF, the relevant sysout is:
Code:
     3 *-* /*DELETES STEP70*/                                                 
     4 *-* ADDRESS ISPEXEC "TBTOP  @PARMTBL"                                   
       >L>   "TBTOP  @PARMTBL"                                                 
     5 *-* ADDRESS ISPEXEC "TBSKIP @PARMTBL"                                   
       >L>   "TBSKIP @PARMTBL"                                                 
     6 *-* address isredit "FIND STEP70"                                       
       >L>   "FIND STEP70"                                                     
     8 *-* if (rc>0)                                                           
       >V>   "0"                                                               
       >L>   "0"                                                               
       >O>   "0"                                                               
    10 *-* address isredit "(L1) = CURSOR"                                     
       >L>   "(L1) = CURSOR"                                                   
    11 *-* observe = l1                                                       
       >V>   "00000090"                                                       
    12 *-* address isredit "LABEL LINE .ZCSR = .FROM 0"                       
       >L>   "LABEL LINE .ZCSR = .FROM 0"                                     
  ISPT017 I/O error on GET        -/-ISPDTFRS received I/O error indication from common GET.

Now, the token "STEP70" is not on relative line 90 of the data set (as suggested by the sysout), but on line 79. Moreover, I seem to be unable to manipulate any line in any way, invariably getting the ISPT017 mesage. Please advise.
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Thu Feb 13, 2014 6:41 am    Post subject: Reply to: Edit Macro Fails in GET
Reply with quote

re: message ISPT017

Contact your system programmer.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Thu Feb 13, 2014 6:43 am    Post subject: Reply to: Edit Macro Fails in GET
Reply with quote

Did you rule out:
Quote:
System Programmer Response: Check the ISPTLIB (or appropriate table input library) for the following possible causes:
* The table input library may have inconsistent DCB information for the concatenated data sets.
* A real I/O error may have occurred. Try to browse the table input library in PDF Browse to see if an I/O error occurs outside of table services.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Thu Feb 13, 2014 7:06 am    Post subject: Reply to: Edit Macro Fails in GET
Reply with quote

Instead of:
Code:
address isredit "LABEL LINE .ZCSR = .FROM 0"   

how about:
Code:
address isredit "LABEL      .ZCSR = .FROM 0"   
Back to top
View user's profile Send private message
sureshpathi10

Active User


Joined: 03 May 2010
Posts: 154
Location: Kuala Lumpur

PostPosted: Thu Feb 13, 2014 7:37 am    Post subject:
Reply with quote

As mentioned Pedro, "LINE" is not required there.
You may refer Here to understand better. icon_smile.gif
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 Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm
No new posts PCOMM macro to call another PCOMM macro boyti ko All Other Mainframe Topics 4 Tue Jul 12, 2016 4:30 pm
No new posts Send parameter for macro STIMERM from... Daniel Teolotitla PL/I & Assembler 13 Tue Jul 05, 2016 9:23 pm
No new posts OUTREC FILELDS FAILS WITH ICE126A 2 ... balaji81_k DFSORT/ICETOOL 8 Sat Jul 02, 2016 1:22 am


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