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