View previous topic :: View next topic
|
Author |
Message |
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
re: message ISPT017
Contact your system programmer. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Instead of:
Code: |
address isredit "LABEL LINE .ZCSR = .FROM 0" |
how about:
Code: |
address isredit "LABEL .ZCSR = .FROM 0" |
|
|
Back to top |
|
|
sureshpathi10
Active User
Joined: 03 May 2010 Posts: 154 Location: Kuala Lumpur
|
|
|
|
As mentioned Pedro, "LINE" is not required there.
You may refer Here to understand better. |
|
Back to top |
|
|
|