Since this was posted to the -L list, I figured that, as others pointed out,
the CHGDTAARA command was what you wanted.
But, in a program, it's a matter of
IN *Lock [DataArea];
(change the value of the field(s) as defined in the data area's
definition)
OUT [DataArea];
Jerry C. Adams
IBM i Programmer/Analyst
Respect all religions in a combat zone, take no chances on where you may go
if killed.
--
A&K Wholesale
Murfreesboro, TN
615-867-5070
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, August 30, 2012 11:32 AM
To: Midrange Systems Technical Discussion
Subject: Re: chgdtaara command
I've seen a upddtaara
CLP source
PGM PARM(&DTAARA)
DCL VAR(&DTAARA) TYPE(*CHAR) LEN(20)
DCL VAR(&DTAOBJ) TYPE(*CHAR) LEN(10) /* Object +
file containing data area. */
DCL VAR(&DTALIB) TYPE(*CHAR) LEN(10) /* Library
containing data area. */
DCL VAR(&DTADATA) TYPE(*CHAR) LEN(512)
CHGVAR VAR(&DTAOBJ) VALUE(%SST(&DTAARA 1 10))
CHGVAR VAR(&DTALIB) VALUE(%SST(&DTAARA 11 10))
RTVDTAARA DTAARA(&DTALIB/&DTAOBJ) RTNVAR(&DTADATA)
? CHGDTAARA DTAARA(&DTALIB/&DTAOBJ) +
??VALUE(&DTADATA)
MONMSG MSGID(CPF0000)
CMD source:
CMD PROMPT('Update a data area')
PARM KWD(DTAARA) TYPE(TDTAARA) MIN(1) FILE(*IN) +
PROMPT('Name of data area')
TDTAARA: QUAL TYPE(*NAME) LEN(10) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
PROMPT('Library')
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail
to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: "Stone, Joel" <Joel.Stone@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>,
Date: 08/30/2012 12:07 PM
Subject: chgdtaara command
Sent by: midrange-l-bounces@xxxxxxxxxxxx
How can I see the current data in a data area and change the data by
keying over the current values?
I recall using a MODDTAARA command to do this. Is that an OS400 command?
Does OS400 provide a method to do this?
Thanks!
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit
http://www.symanteccloud.com
______________________________________________________________________
midrange.com
