Mark and Tommy,
Here's how got mine to work...
0290 F AXR,SYSRDJ
0290 $DI,L=Z
0090 $HASP636 11.21.49 $DI 967
0090 INIT(1) STATUS=INACTIVE,CLASS=A,NAME=1,ASID=0025
0090 INIT(2) STATUS=INACTIVE,CLASS=AB,NAME=2,ASID=0026
0090 INIT(3) STATUS=INACTIVE,CLASS=ABC,NAME=3,ASID=0027
0090 INIT(4) STATUS=INACTIVE,CLASS=ABCDE,NAME=4,ASID=0028
0090 INIT(5) STATUS=INACTIVE,CLASS=ABCD,NAME=5,ASID=0029
0090 INIT(6) STATUS=INACTIVE,CLASS=ABCD,NAME=6,ASID=002A
0090 INIT(7) STATUS=INACTIVE,CLASS=ABCD,NAME=7,ASID=002B
0090 INIT(8) STATUS=INACTIVE,CLASS=ABCD,NAME=8,ASID=002C
0090 INIT(9) STATUS=INACTIVE,CLASS=ABCD,NAME=9,ASID=002D
0090 INIT(10) STATUS=INACTIVE,CLASS=ABCD,NAME=10,ASID=002E
0090 INIT(11) STATUS=DRAINED,CLASS=ABCD,NAME=11
0090 INIT(12) STATUS=DRAINED,CLASS=ABCD,NAME=12
0090 AXR0500I AXREXX OUTPUT DISPLAY 968
0090 EXECNAME=SYSRDJ REQTOKEN=0000400000000000C342B4195EF16300
0090 AXRCMD worked
0090 Queued lines: 13
0090 Drain inits: 2
0090 Active inits: 0
0090 Inactive inits: 10
**** rexx clist below ****
rc = AXRCMD('$DI,L=Z','OUTPUTVAR.',30)
if rc = 0 then do;
say 'AXRCMD worked'
end;
drained = 0;
active = 0;
inactive = 0;
say 'Queued lines: 'OUTPUTVAR.0
do i=1 to OUTPUTVAR.0
parse var OUTPUTVAR.i wd1 wd2
wd2 = strip(wd2,'L')
if substr(wd2,1,15) = 'STATUS=INACTIVE' then inactive = inactive + 1
if substr(wd2,1,14) = 'STATUS=DRAINED' then drained = drained + 1
end;
say 'Drain inits: 'drained
say 'Active inits: 'active
say 'Inactive inits: 'inactive
Mark you were correct , but I had to issue a $DI,L=Z
Scott Ford
Senior Systems Engineer
[p] 678.266.3399 x304 [m] 609-346-0399 identityforge.com
This message is for the designated recipient only and may contain
privileged, proprietary, or otherwise private information. If you have
received it in error, please notify the sender immediately or let us know at
[EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the
original. Any other use of the email by you is prohibited.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Mark Zelden
Sent: Friday, November 07, 2008 8:50 AM
To: [email protected]
Subject: Re: how to write sysrexx
On Fri, 7 Nov 2008 17:34:03 +0800, Tommy Tsui <[EMAIL PROTECTED]> wrote:
>I checked the result, it only can show up the first 4 lines statement,
>INIT(1), even the AXRCMD run successfully. I also try "/DI(1-2)", the
>result is also 4.
>
>CMDRESULT=AXRCMD('/DI(1-2)','OUTPUTVAR.',100);
> SAY OUTPUTVAR.0
>
>/DI(1-2)
>/HASP892 INIT(1) 903
>/HASP892 INIT(1) STATUS=ACTIVE,
>/HASP892 CLASS=DAFJKLMNTHUEWXYZQV123456789,NAME=1,
>/HASP892 ASID=002B,JOBID=JOB06877
>/HASP892 INIT(2) 904
>/HASP892 INIT(2) STATUS=INACTIVE,
>/HASP892 CLASS=DAFJKLMNTHUEWXYZQV123456789,NAME=2,
>/HASP892 ASID=002C
>AXR0500I AXREXX OUTPUT DISPLAY 905
>EXECNAME=INITINFO REQTOKEN=0000400000000000C342CF5A03BB7886
>On Fri, Nov 7, 2008 at 4:33 PM, Tommy Tsui <[EMAIL PROTECTED]> wrote:
>
>> I already try this before, but it does not works and return only 4 lines,
>> when I changed the '/DI' to 'D U,,,480', it works fine. So I don't know
any
>> differences between MVS & JES2 command returned from AXRCMD?
>>
>> CMDRESULT=AXRCMD('/DI','OUTPUTVAR.',100);
>> SAY OUTPUTVAR.0
>>
Try issuing your command like this: '/DI,L=Z'
CMDRESULT=AXRCMD('/DI,L=Z','OUTPUTVAR.',100)
Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
