Re: CHGDTAARA packed field

Raby, Steve (GE Advanced Materials, consultant) wrote:

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