|
|
| Author |
Message |
pandu
New User
Joined: 08 Dec 2005
Posts: 7
Location: pune
|
|
|
|
Hi All
could any one help me to do following task using CLIST or REXX,
"Extracting all the comments in the member and putting those comments in a new .txt file. "
cheers
pandu |
|
| Back to top |
|
 |
References
|
|
 |
superk
Moderator Team Head
Joined: 26 Apr 2004
Posts: 3381
Location: Charlotte,NC USA
|
|
|
|
| And these comments would be identified how? |
|
| Back to top |
|
|
pandu
New User
Joined: 08 Dec 2005
Posts: 7
Location: pune
|
|
|
|
hi superk,
thanks for u r interest to see this.
In COBOL member 7th column contains * it is comment na. i want to Extract these lines.
regards
pandu |
|
| Back to top |
|
|
superk
Moderator Team Head
Joined: 26 Apr 2004
Posts: 3381
Location: Charlotte,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
|
|
|
| Back to top |
|
|
|
|
|
