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
