brainchime.com Latest Questions

Admin
Asked: 2024-10-09T08:03:17+05:30 In:

What is qualified data structure in RPG AS400

What is a qualified data structure? How do we qualify the data structure subfields? Please explain its usage with an example and provide the sample code in fixed-format RPG, free-format RPG, and fully-free RPG.

as400rpg

Related Questions

Leave an answer

Leave an answer

Browse
Browse

Choose from here the video type.

Put Video ID here: https://www.youtube.com/watch?v=sdUUx5FdySs Ex: "sdUUx5FdySs".

1 Answer

  1. Admin

    The data structure can be qualified using the QUALIFIED keyword in rpgle. The term QUALIFIED indicates that data structure subfields are addressed with qualified notation. If the QUALIFIED keyword is provided for data structure userDS with a subfield userid, we can access a data structure subfield using the data structure name followed by a period and the subfield name, i.e. userDS.userid.
    Syntax of qualified data structure in fixed format RPG.
    D userDS DS QUALIFIED
    D userid 10P 0
    D name 20A
    Syntax of qualified data structure in free format RPG (fully free RPG).
    **FREE
    dcl-ds userDS QUALIFIED;
    userid packed(10:0);
    name char(20);
    end-ds userDS;

    Sample RPG program in the fixed format using a qualified data structure

         D DS1             DS                  QUALIFIED                 
     D subfld1                       10                              
     D subfld2                        5                              
     D subfld3                        5                                                                                                              
                                                                     
     C                   EVAL      DS1.subfld1 = 'DS1_1'             
     C                   EVAL      DS1.subfld2 = 'DS1_2'             
     C                   EVAL      DS1.subfld3 = 'DS1_3'             
     C     DS1           DSPLY                                                                                       
     C                   SETON

    Sample RPG program in the free format using a qualified data structure

         D DS1             DS                  QUALIFIED      
     D subfld1                       10                   
     D subfld2                        5                   
     D subfld3                        5                                                                                 
      /Free                                               
       DS1.subfld1 = 'DS1_1';                             
       DS1.subfld2 = 'DS1_2';                             
       DS1.subfld3 = 'DS1_3';                             
       DSPLY DS1;                                                                 
       *INLR = *ON;                
      /End-Free

    Sample RPG program in the fully free format using a qualified data structure

    **FREE                       
dcl-ds ds1 qualified;        
 subfld1 char(10);           
 subfld2 char(5);            
 subfld3 char(5);            
end-ds;                                          
                             
DS1.subfld1 = 'DS1_1';       
DS1.subfld2 = 'DS1_2';       
DS1.subfld3 = 'DS1_3';       
DSPLY DS1;                    
*INLR = *ON;