IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
 

How to run this assembler in rexx

THIS IS AN ARCHIVE FORUM: CLICK HERE TO GO TO THE ORIGINAL TOPIC

 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> CLIST & REXX
View previous topic :: View next topic  
Author Message
satya12



Joined: 25 Apr 2006
Posts: 25
Location: India

Posted: Tue May 16, 2006 11:36 pm    Post subject: How to run this assembler in rexx  

Hi all

I am coding a rexx program where i have to allocate a dataset.There's a chance that this dataset might be locked to another user who has exclusive access to that and it'll get freed eventually.Is there any option in ALLOC commnad like "WAIT" so that program will wait until resource get released or do i need do verify the resource status using SYSDSN RC and ALLOC RC in infitinite loop.I know infinite is not a good idea since im buring CPU time.Any thoughts here.

I came accross an assemmbler routine which uses "STIMER" option to get the program instructions out of real storage for specified period of time and we can run this using rexx.

Any idea about how to run this assembler in rexx.

Thanks for the help
Satya
Back to top  
jon_s_rice



Joined: 24 Mar 2005
Posts: 106
Location: Douglasville, GA USA

Posted: Wed May 17, 2006 4:22 am    Post subject:  

You can find a sleep routine on the internet.
Back to top  
satya12



Joined: 25 Apr 2006
Posts: 25
Location: India

Posted: Wed May 17, 2006 5:28 am    Post subject: Re: Rexx question  

Hi

I have the sleep routine with me but not sure how to call it in REXX.You have any sample code with you and can you tell me the steps to execute it.

Thanks
Satya
Back to top  
jon_s_rice



Joined: 24 Mar 2005
Posts: 106
Location: Douglasville, GA USA

Posted: Wed May 17, 2006 6:03 pm    Post subject:  

if bpxwdyn('alloc fi(sdsfdd) new space(5,5) cyl',
'msg(2)')<>0 then do
say 'Temp data set allocation failed'
address syscall 'sleep 6'
return
end
Back to top  
satya12



Joined: 25 Apr 2006
Posts: 25
Location: India

Posted: Wed May 17, 2006 10:33 pm    Post subject: Re: How to run this assembler in rexx  

Hello jon_s_rice

Thank you very much.Its working.You are my Man.Now i have one more question.I have written a rexx script to display my own ISPF panel.If run this rexx in batch the panel is not getting diplayed.Is there anyway we can display panel using rexx through batch.

Thanks
Satya
Back to top  
 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> CLIST & REXX
Page 1 of 1
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM