IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Extracting all the comments in the member to save as text


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pandu

New User


Joined: 08 Dec 2005
Posts: 6
Location: pune

PostPosted: Thu Dec 08, 2005 1:19 pm
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Dec 08, 2005 5:41 pm
Reply with quote

And these comments would be identified how?
Back to top
View user's profile Send private message
pandu

New User


Joined: 08 Dec 2005
Posts: 6
Location: pune

PostPosted: Fri Dec 09, 2005 11:14 am
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Dec 15, 2005 6:58 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Save SYSLOG in a MASS complex All Other Mainframe Topics 3
No new posts can an ISPF appl save user changes in... TSO/ISPF 14
No new posts How to save SYSLOG as text data via P... All Other Mainframe Topics 4
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts OUTFIL with SAVE option DFSORT/ICETOOL 7
Search our Forums:

Back to Top