RE: CHGDTAARA packed field

To change a character data area that contains some packed data, input the new 
value in HEX using the Value(X'nn') format.
 


"Raby, Steve (GE Advanced Materials, consultant)" <steve.raby@xxxxxx> wrote:
I would be very interested Denis

TIA 

Steve

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Denis Robitaille
Sent: 26 July 2005 15:40
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: CHGDTAARA packed field


We have a lot of data area like this: Caracter data area with several subfield 
containing different kind of information. What we did to overcome the kind of 
problem presented here is the following:
- create an external DS (a physical file) that defines the structure of the 
data area
- create a utility program that uses this external DS to provide a facility to 
update the data area

this way, we have no issue with packed, zone, caracter... We also never make 
mistake like using the wrong offset for a subfield.

If some are interested, I can post the source of this utility. It is made of: 1 
command, 1 CLP, 1 RPG and a message file

Denis Robitaille
Directeur services technique TI
819 363 6130

SUPPORT
Jour (EST) Daytime : 819-363-6134
En-dehors des heures (EST) After hour : 819-363-6158
Network Status : 819-363-6157

>>> steve.raby@xxxxxx 2005-07-26 09:13:57 >>>
Hello Chaps,

Nope that didn't work, this is what the live one looks like,


Value 
Offset *...+....1....+....2....+....3....+....4....+....5 
0 'AMBISPRD 9902U34274AMB N J ?J32101 ' 
50 ' éh Scholing . . . . . . . . . . . . . . . . . V' 
100 'oertaal. . . . . . . VO2max. . . . . . . . . . . .' 
150 ' . . . . . . .111 N ' 
200 ' ' 
250 ' ' 
300 ' ' 
350 ' ' 
400 ' ' 

and this is the test after that change,


Value 
Offset *...+....1....+....2....+....3....+....4....+....5 
0 'AMBISLNP 9902SUP01 N J00000000100 & ' 
50 ' (1) . . . . . . . . . (2) . . . . . . . . . (' 
100 '3) . . . . . . . . . (4) . . . . . . . . . (5) . .' 
150 ' . . . . . . .111 N ' 
200 ' ' 
250 ' ' 
300 ' ' 
350 ' ' 
400 ' ' 


The field starts in position 33, I cannot change the data area as it is part of 
a package so I just need that little bit changed.

Steve



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jonathan Mason
Sent: 26 July 2005 14:32
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: CHGDTAARA packed field


Hi Steve

I was going to say the same thing as Paul, but he beat me to it :-)

All the best

Jonathan 
www.astradyne-uk.com 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Tuohy
Sent: 26 July 2005 13:23
To: RPG programming on the AS400 / iSeries
Subject: Re: CHGDTAARA packed field

Hi Steve,

get the boot ready :-)

The data area is a character data area so the VALUE needs to be a
character
field.

Try -
PGM
DCL VAR(&NUM) TYPE(*DEC) LEN(9 0) +
VALUE(1)
DCL VAR(&NUMCHAR) TYPE(*CHAR) LEN(9)

CHGVAR &NUMCHAR &NUM
CHGDTAARA DTAARA(AMBISDATA (33 9)) VALUE(&NUMCHAR)
ENDPGM

HTH

Paul

----- Original Message -----
From: "Raby, Steve (GE Advanced Materials, consultant)"

To: "RPG programming on the AS400 / iSeries" 
Sent: Tuesday, July 26, 2005 12:59 PM
Subject: RE: CHGDTAARA packed field


> Hello Jonathan
>
> I just want to change the value to one, I tried just CHGDTAARA from a
command line, then I put it in a CL,
>
>
> PGM
> DCL VAR(&NUM) TYPE(*DEC) LEN(9 0) +
> VALUE(1)
> CHGDTAARA DTAARA(AMBISDATA (33 9)) VALUE(&NUM)
> ENDPGM
>
> And I get this,
>
>
> Message ID . . . . . . : CPA0701
> Date sent . . . . . . : 05/07/26 Time sent . . . . . . :
13:54:06
>
> Message . . . . : CPF1019 received by CHGDTAARA at 500. (C D I R)
>
> Cause . . . . . : Control language (CL) program CHGDTAARA in
library
> AMBISLNP detected an error at statement number 500. Message text
for
CPF1019
> is: VALUE parameter not correct.
> Recovery . . . : This inquiry message can be avoided by changing
the
>
> the dump looks like;
>
> 5722SS1 V5R2M0 020719 CL Program
Dump
> Job name . . . . . . . . : SWRDV027D1 User name . . . . . . . . :
SUPPORT
> Program name . . . . . . : CHGDTAARA Library . . . . . . . . . :
AMBISLNP
> Messages
> Message Message
From
> Time ID Sev Type Text
Program
> 135406 00 CMD 500 - CHGDTAARA
DTAA
QCADRV
> RA(AMBISDATA (33
9)) VA
> LUE(1)
> 135406 CPF1019 40 ESC VALUE parameter not
cor
QWCCCHVC
> rect.
> 135406 CPF9999 40 ESC Function check.
CPF1019
QMHUNMSG
> unmonitored by
CHGDTAA
> RA at statement
500, in
> struction X'000F'.
> Variables
> Variable Type Length Value
Valu
>
*...+....1....+....2....+ * .
> &NUM *DEC 9 0 1
>
>
> Do I need to put it into Hex or something? I am probably going to kick
myself when I find out what I am doing wrong aren't I?
>
> Steve
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jonathan Mason
> Sent: 26 July 2005 13:48
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: CHGDTAARA packed field
>
>
> Hi Steve
>
> What error messages are you getting? How are you trying to change it?
> Can you provide code samples?
>
> All the best
>
> Jonathan
> www.astradyne-uk.com 
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raby, Steve (GE
> Advanced Materials, consultant)
> Sent: 26 July 2005 11:55
> To: RPG programming on the AS400 / iSeries
> Subject: CHGDTAARA packed field
>
> Hello All,
>
> I have a data area with a 9,0 packed field in that I am trying to
> change, just a one off. I just keep getting error messages, how do I
> change that?
>
> TIA
>
> Steve
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l 
> or email: RPG400-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l 
> or email: RPG400-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l 
> or email: RPG400-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>