Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Rexx To copy JEM "==>MSG" Lines to a File

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Shiva Reddy Munagala

New User


Joined: 26 May 2014
Posts: 2
Location: India

PostPosted: Mon May 26, 2014 4:34 pm    Post subject: Rexx To copy JEM "==>MSG" Lines to a File
Reply with quote

Hello,

I'm new to Rexx and this is my first post,

Could any of you guide me to write to file the "==>MSG" lines that we get after JEM command in a JCL i would be very glad.

My intention is to clear all the File Catalog Error that i get, if this is successful i will enhance to clear also GDG errors, my current algorithm is below,

1. Write jem errors to a temp file
2. Find first Catlog error using string search, Take file name, Queue to JCL for delete list, Delete all the lines till that line
3. Repeat Step 2 untill no more catlog errors.
4. Submit JCL which has the list that needs to be deleted.

I have read a material which helped me to have some basic knowledge on the file handling through Rexx.
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Tue May 27, 2014 7:32 pm    Post subject: Reply to: Rexx To copy JEM "==>MSG" Lines to a
Reply with quote

Show us what you tried and what problems you have encountered.
Back to top
View user's profile Send private message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 187
Location: Toronto, ON, Canada

PostPosted: Tue May 27, 2014 10:46 pm    Post subject:
Reply with quote

I am not sure this is possible. The MSG> line is for display purpose and is not part of the actual data. If it were possible I would be curious to know how

Try using the JSCAN command since this will create a temporary dataset. JobScan also has an ISPF feature to to jcl verification.
Back to top
View user's profile Send private message
Shiva Reddy Munagala

New User


Joined: 26 May 2014
Posts: 2
Location: India

PostPosted: Wed May 28, 2014 11:08 am    Post subject: Reply to: Rexx To copy JEM "==>MSG" Lines to a
Reply with quote

Thanks for your response, I will try with JSCAN and will get back to u guys.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed May 28, 2014 10:22 pm    Post subject: Reply to: Rexx To copy JEM "==>MSG" Lines to a
Reply with quote

It is not clear how many MSG lines are there. If it is contained within the displayed data, you can use ZSCREENI to get an image of the current screen.
Back to top
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 85
Location: Stockholm, Sweden

PostPosted: Fri Aug 29, 2014 3:59 pm    Post subject:
Reply with quote

2 thoughts (perhaps?):
  • MD999999 and COMPARE * to see which were MSG-(/INFO-/NOTE-)LINEs.
    You can run the MakeData inside a Macro
  • PANEXIT/*REXX section quizing ZDATA for ==MSG> lines (has limitations)
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Sat Aug 30, 2014 2:46 am    Post subject:
Reply with quote

ADDRESS 'ISREDIT'

"LOCATE FIRST NOTELINE"

IF RC > 0
THEN DO
"LOCATE FIRST MSGLINE"
"LOCATE NEXT MSGLINE"
"LOCATE NEXT MSGLINE"
"LOCATE NEXT MSGLINE"
END

This is how I have done this in the past. this example I was only looking for the first 4 msglines.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us