Re: Simple Problem

[Richard Reeve <richreeve@xxxxxxxxx>]

--
[ 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!