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
 
Want to write a tool to check the JOB name

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Joe_Song
Currently Banned

New User


Joined: 22 Jan 2008
Posts: 53
Location: china

PostPosted: Fri Feb 01, 2008 7:59 pm    Post subject: Want to write a tool to check the JOB name
Reply with quote

Want to write a tool to check whether the Job member name in a PDS is same with the Job name in the Job card.
Because somtime i need to copy (just can use cut and paste ) a job content from one PDS to another and make sure the name is same with the job card. So i want to write a tool to check automatically. Anyone can provide some info ?
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Fri Feb 01, 2008 8:21 pm    Post subject: Reply to: Want to write a tool to check the JOB name
Reply with quote

You're not giving us much to go on. From your requirements, it seems to me that what you might want to do is to open a member of a PDS for edit, and then run an ISPF edit macro, which will perform the check and display some sort of error message if the member name and jobname don't match.

If that's not what you're thinking, then you need to provide more details.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Sat Feb 02, 2008 2:22 pm    Post subject:
Reply with quote

I would go for REXX:
- Read the members list (LMMLIST or LISTDS)
- For each member, use VIEW with MACRO.
- Create a macro to read the first line and parse the jobname.
- Return the jobname (QUEUE or VPUT) and compare to the member name.

O.
Back to top
View user's profile Send private message
Joe_Song
Currently Banned

New User


Joined: 22 Jan 2008
Posts: 53
Location: china

PostPosted: Sat Feb 02, 2008 2:31 pm    Post subject: Hi
Reply with quote

Hi, upstair, could u give some code ? i am not familiar about this. Thanks a lot.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Sat Feb 02, 2008 5:43 pm    Post subject:
Reply with quote

No, I can't "give you some code", but there are many examples for each of the operations above.

O.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Sat Feb 02, 2008 8:47 pm    Post subject: Want to write a tool to check the JOB name
Reply with quote

Check the Assembler "EXTRACT" Macro, which can return the job-name and other pieces of data.

Regards,

Bill
Back to top
View user's profile Send private message
Joe_Song
Currently Banned

New User


Joined: 22 Jan 2008
Posts: 53
Location: china

PostPosted: Mon Feb 04, 2008 2:47 pm    Post subject: still have one question
Reply with quote

so how to compare the job name use command?
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts ALPHABETIC check in COBOL vidyaa COBOL Programming 8 Thu Aug 17, 2017 7:13 pm
No new posts DATAFIX tool jzhardy DB2 0 Wed Aug 09, 2017 9:13 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am

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