superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
To me, this would make more sense to do as an ISPF EDIT Macro. The following is a simple macro, written in REXX, that will do what you need.
| Code: |
/* REXX GETCOMM */
"ISREDIT MACRO"
"ISREDIT (currdsn) = DATASET"
"ISREDIT (currmem) = MEMBER"
"ISREDIT (last) = LINENUM .ZLAST"
x = LISTDSI("'"currdsn"'")
If rc = 0 Then
Do
recfm = Substr(SYSRECFM,1,1)||" "||,
Substr(SYSRECFM,2,1)||" "||,
Substr(SYSRECFM,3,1)||" "||,
Substr(SYSRECFM,4,1)||" "||,
Substr(SYSRECFM,5,1)||" "||,
Substr(SYSRECFM,6,1)
recfm = Strip(recfm)
lrecl = SYSLRECL
blk = SYSBLKSIZE
End
Do n = 1 To last
"ISREDIT (data) = LINE "n
If Substr(data,7,1) = "*" Then Queue data
End
Queue ""
"ISREDIT RESET"
ddname = "#"Time(S)
dsname = currmem".TXT"
"ALLOC DD("ddname") DA("dsname") MOD REU DELETE"
"FREE DD("ddname")"
"ALLOC DD("ddname") DA("dsname") NEW REU CATALOG
RECFM("recfm") LRECL("lrecl") BLKSIZE("blk")"
"EXECIO * DISKW "ddname" (FINIS"
"ISPEXEC EDIT DATASET("dsname")"
"FREE DD("ddname")"
Exit 0
|
|
|
