Re: Simple Problem

["Dare" <oludare@xxxxxxxxxxxxx>]

Hey guys,  does &unbr has to be lenght of (15 5)? Since CMBR440 is a HLL.

Dare

----- Original Message -----
From: "Richard Reeve" <richreeve@yahoo.com>
To: <midrange-l@midrange.com>
Sent: Monday, December 17, 2001 9:20 AM
Subject: Re: Simple Problem


> --
> [ Picked text/plain from multipart/alternative ]
>
> Your CL will now look like this:
>  PGM
>
>   DCL        VAR(&JNBR) TYPE(*CHAR) LEN(6)
>   DCL        VAR(&UNBR) TYPE(*DEC) LEN(9 0)
>
>   RTVDTAARA  DTAARA(CMBDA4E) RTNVAR(&UNBR)
>
>   RTVJOBA    NBR(&JNBR)
>
>   chgvar      var(&unbr) value(&unbr + 1)
>
>   CALL       PGM(CMBR440) PARM(&JNBR &UNBR)
>
>   CHGDTAARA  DTAARA(CMBDA4E) VALUE(&UNBR)
>
>   ENDPGM
>
>   hrishikesh kotwal <hdkotwal@hotmail.com> wrote: [ Converted text/html to
text/plain ]
>
> Hi All,
>
>
>
> Following is my CLP:
>
> ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+.
> **** Beginning of data **********************
> PGM
>
> DCL VAR(&JNBR) TYPE(*CHAR) LEN(6)
> DCL VAR(&UNBR) TYPE(*DEC) LEN(9 0)
>
> RTVDTAARA DTAARA(CMBDA4E) RTNVAR(&UNBR)
>
> RTVJOBA NBR(&JNBR)
>
>
>
> CALL PGM(CMBR440) PARM(&JNBR &UNBR)
>
> CHGDTAARA DTAARA(CMBDA4E) VALUE(&UNBR)
>
> ENDPGM
> ******* End of data *************************
>
> I want to add 1 to &UNBR and then pass it to my RPG program. How do I add
1 to
> &UNBR? Is is possible in CL?TIA.
> Regards,
>
> Hrishikesh Kotwal
>
> >From: Mark.Pace@ncgicorp.com
> >Reply-To: midrange-l@midrange.com
> >To: midrange-l@midrange.com
> >Subject: RE: new partition problem
> >Date: Mon, 17 Dec 2001 08:33:51 -0500
> >
> >
> > >Mark,
> > >If I recall correctly, the default service tools profiles/passwords
are:>>
> > >QSECOFR QSECOFR
> > >QSRV QSRV
> > >22222222 22222222
> > >11111111 11111111
> >
> > >Have you tried, (or changed) these?
> >
> > >Andy Nolen-Parkhouse
> >
> >Andy -
> >Yes I tried all of those - here are the results. Not sure what to try
> >next.......
> >
> >OS/400 Guest Partition Console
> > 1: LINUX1
> > 2: BYNARI
> >2
> >BYNARI : Enter OS/400 service tools userid:
> >
> >11111111
> >REMOTE PANEL KEY AUTHORITY REQUIRED FOR THIS PARTITION
> >BYNARI : Invalid OS/400 service tools authentication.
> >BYNARI : Enter OS/400 service tools userid:
> >
> >22222222
> >REMOTE PANEL KEY AUTHORITY REQUIRED FOR THIS PARTITION
> >BYNARI : Invalid OS/400 service tools authentication.
> >BYNARI : Enter OS/400 service tools userid:
> >
> >qsecofr
> >QSECOFR PROFILE NOT VALID FOR GUEST PARTITION CONSOLE
> >BYNARI : Invalid OS/400 service tools authentication.
> >BYNARI : Enter OS/400 service tools userid:
> >
> >qsrv
> >REMOTE PANEL KEY AUTHORITY REQUIRED FOR THIS PARTITION
> >BYNARI : Invalid OS/400 service tools authentication.
> >BYNARI : Enter OS/400 service tools userid:
> >
> >
> >Mark D Pace
> >Senior Systems Engineer
> >Mainline Information Systems
> >1700 Summit Lake Drive
> >Tallahassee, FL. 32311
> >mark.pace@ncgicorp.com
> >Phone: 850-219-5184
> >Fax: 850-219-5050
> >http://www.mainline.com
> >
> >
> >_______________________________________________
> >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> >To post a message email: MIDRANGE-L@midrange.com
> >To subscribe, unsubscribe, or change list options,
> >visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> >or email: MIDRANGE-L-request@midrange.com
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/midrange-l.
> >
>
> --------------------------------------------------------------------------
----
> Get your FREE download of MSN Explorer at http://explorer.msn.com[1].
>
> ===References:===
> 1. http://go.msn.com/bql/hmtag_etl_EN.asp
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
>
>
> ---------------------------------
> Do You Yahoo!?
> Check out Yahoo! Shopping and Yahoo! Auctionsfor all of your holiday
gifts!
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>