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
>
>
>
>
> On Fri, Nov 7, 2008 at 2:10 PM, Scott Ford <[EMAIL PROTECTED]> wrote:
>
>> Tommy,
>>
>> OUTPUTVAR.0 is the total lines returned back from the $DI that was issued
>> to
>> JES2
>>
>> 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 Tommy Tsui
>> Sent: Thursday, November 06, 2008 11:46 PM
>> To: [email protected]
>> Subject: Re: how to write sysrexx
>>
>> the output here:
>> how come the outputvar.0 is 4.....
>>
>> AXR0500I AXREXX OUTPUT DISPLAY 562
>> EXECNAME=INITINFO REQTOKEN=0000400000000000C342864620BCAB4E
>> 4
>>
>> ACTIVE
>>
>>
>> ACTIVE INIT=0
>> INACTIVE INIT=0
>> DRAINed INIT=0
>>
>> On Fri, Nov 7, 2008 at 12:10 PM, Scott Ford <[EMAIL PROTECTED]> wrote:
>>
>> > Tommy,
>> >
>> > What does the output from the sysrexx look like ? It would help for us
>> to
>> > see it ...
>> >
>> >
>> > 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 Tommy Tsui
>> > Sent: Thursday, November 06, 2008 11:05 PM
>> > To: [email protected]
>> > Subject: Re: how to write sysrexx
>> >
>> > Hi,
>> > I try to count the current init status but failed with the AXRCMD.....?
>> > anything wrong?
>> >
>> > CMDRESULT=AXRCMD('/DI','OUTPUTVAR.',100);
>> > SAY OUTPUTVAR.0
>> > c = 0
>> > do c = 1 to OUTPUTVAR.0
>> > status = substr(word(OUTPUTVAR.c,3),8,6)
>> > say status
>> > active=0
>> > drained=0
>> > inactive=0
>> > if status = 'ACTIVE' then
>> > active = active + 1
>> > else if status = 'DRAINE' then
>> > drained = drained + 1
>> > else if status = 'INACTI' then
>> > inactive = inactive + 1
>> > end;
>> >
>> > On Fri, Nov 7, 2008 at 10:53 AM, Tommy Tsui <[EMAIL PROTECTED]>
>> wrote:
>> >
>> > >
>> > > Thanks, after I delcare active=0, it works fine
>> > >
>> > >
>> > > On Fri, Nov 7, 2008 at 10:46 AM, Scott Fagen
>> > <[EMAIL PROTECTED]>wrote:
>> > >
>> > >> On Fri, 7 Nov 2008 10:32:56 +0800, Tommy Tsui <[EMAIL PROTECTED]>
>> > >> wrote:
>> > >>
>> > >> >hi all
>> > >> >
>> > >> >Is there any book teach how to write a correct SYSREXX, how comes a
>> bad
>> > >> >arithmetic conversion with "active = active + 1".....any problem
>> > here???
>> > >> >
>> > >> > RESPONSE=XXTSPD2
>> > >> > AXR0500I AXREXX OUTPUT DISPLAY 530
>> > >> > EXECNAME=INITINFO REQTOKEN=0000400000000000C34272CC59FE94C9
>> > >> >
>> > >> > ACTIVE
>> > >> > 6 +++ active = active + 1
>> > >> > IRX0041I Error running INITINFO, line 6: Bad arithmetic conversion
>> > >>
>> > >> Maybe the variable 'active' isn't set to a number?
>> > >>
>> > >> Scott Fagen
>> > >> Enterprise Systems Management
>> > >>
>> > >>
>> ----------------------------------------------------------------------
>> > >> 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
>> >
>> > ----------------------------------------------------------------------
>> > 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
>>
>> ----------------------------------------------------------------------
>> 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
