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

How can I get jobid of a submitted job in a test file?


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Aug 09, 2011 6:15 pm
Reply with quote

OK, weather in Chamonix is excellent, so maybe this will run and run.

I'm joining Marso. Can you move over a little, fine, thanks. Fancy a tea? I brought a Thermos. Biscuit? Nice view from up here.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Aug 09, 2011 8:27 pm
Reply with quote

Quote:
OK, weather in Chamonix is excellent,

lets say that it was possible to walk around icon_biggrin.gif
pretty cold anyway, at 2500 meters after 2 pm drops of rain or something even colder

here the link to chamonix meteo com
chamonix-meteo.com/bul/metPreMatFr.php
the period of sunshine close to 60%. was more really about 20%
( and I do not usually complain too much, useless after You have started walking )

lurking waiting for the laundry to dry icon_biggrin.gif
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Aug 10, 2011 2:48 pm
Reply with quote

ppandey07 wrote:
I am trying to submit a job and simultaneosuly trying to put the job id in the test file?
All this SORT and Assembler and COBOL and REXX stuff is very nice and useful, but I think Pankaj needs something else.

Maybe something like:
Code:
   Call OUTTRAP('Lst.')                       
   "SUBMIT 'hlq.SPF.CNTL(IEFBR14)'"       
   Call OUTTRAP("OFF")                         
                                               
   Do iX = 1 To Lst.0                         
      If Word(Lst.iX,1) = 'IKJ56250I' Then Do 
         Parse Var Lst.iX . '(' JobID ')' .   
         Say 'JobID is 'JobID                 
         Leave                                 
      End                                     
   End                                         

1. I assumed TSO PROF MSGID to get the IKJ message ID.
2. "SUBMIT *" generates two messages, so I used a loop, just to be on the safe side.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Aug 10, 2011 3:01 pm
Reply with quote

Sorry Bill,
I couldn't keep quiet...
But tea and biscuits is fine, although a nice cold beer would be nice too
(when the weather man say 'tomorrow will be colder' he means temperature will drop from 32C (89.6F) to 30C (86F))
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Aug 10, 2011 3:15 pm
Reply with quote

Marso,

Good idea. Same sort of thing here, at the moment a touch hotter. Nice at 5am when sometimes below 20 degrees. I'm jealous of enrico's mountain climate holiday. For a few days, at least. Now, beer... Super Bock or Sagres?
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 2
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top