View previous topic :: View next topic |
Author |
Message |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Thu Jan 09, 2003 10:38 pm Post subject: |
|
|
The queryenq in that code, by the way, is not the same as the ISPF query enq service. This is the QueryENQ rexx function that returns the same stuff and has no ISPF dependencies. |
|
Back to top |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Thu Jan 09, 2003 11:45 pm Post subject: |
|
|
I did see the source code on your site for QueryEnq. We hae a PL/AS compiler here so it's good to see the source code.
You could probably save yourself the load of IRXEXCOM if you map the REXX vector of external entry points (IRXEXTE) from the environment block. Sorry for the C code, but that's how I write my REXX functions.
Code: |
// get address of REXX environment block from R0
rexx->envblock = ( envblock_t * ) __xregs( R0 );
// save address of REXX entry points vector table
irxexte = ( irxexte_t * ) rexx->envblock->irxexte;
<snip>
// issue REXX say command
irxexte->irxsay( irxsay_parms.func,
irxsay_parms.buffer,
&irxsay_parms.bufflen );
|
_________________ Dave Crayford |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Fri Jan 10, 2003 12:07 am Post subject: |
|
|
I never knew that vector was there. Thanks Dave. |
|
Back to top |
|
 |
Martin Beginner

Joined: 20 Mar 2006 Posts: 133 Topics: 58
|
Posted: Wed Apr 05, 2006 3:00 pm Post subject: |
|
|
Hi,
I tried running the rexx code.. its just exiting without doing anything. I just RC=0 at the console.
Please help! |
|
Back to top |
|
 |
chandra Beginner
Joined: 26 Sep 2003 Posts: 130 Topics: 36
|
Posted: Thu Apr 06, 2006 2:18 pm Post subject: |
|
|
Hi Semigeezer,
I copied your zipfile and Queryenq when I executed the chat program it is giving following error.
Quote: |
IRX0035I Error running QUERYENQ, line 1: Invalid expression,
14 +++ Call queryenq "'"dsn"'","SYSDSN",
|
_________________ Regards,
Chandra |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Thu Apr 06, 2006 3:28 pm Post subject: |
|
|
queryenq is available at the same FTP page or you can change the code to use ISPFs enq querying service (I forget the name of that service, it might also be queryenq). |
|
Back to top |
|
 |
chandra Beginner
Joined: 26 Sep 2003 Posts: 130 Topics: 36
|
Posted: Thu Apr 06, 2006 8:07 pm Post subject: |
|
|
Hi Semigeezer,
I have copied the same QUERYENQ code into my PDS still I am getting above error.
Thank you, _________________ Regards,
Chandra |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Thu Apr 06, 2006 8:21 pm Post subject: |
|
|
QUERYENQ is an assembler program that must be assembled and linked into an accessible load library. It should assemble with just the standard maclibs (sys1.maclib, etc) and even those may not be needed. It's been about 7 years since I looked at it. Here is some documentation. |
|
Back to top |
|
 |
|
|