RPG Cafe: Spring 2024: Define constant standalone fields and data structures

You are in: RPG Cafe > RPG Cafe: Spring 2024: Define constant standalone fields and data structures

Short URL: https://ibm.biz/rpgcafe_spring_2024_const_fld_and_ds

          dcl-proc myproc;
             dcl-s originalUserid char(10) inz(*user) const;

             ... code that may swap the current user profile
             if originalUserid <> getCurrentUserid();
                ... code to restore the current user profile
                originalUserid = *BLANK;
                aaaaaaaaaaaaaa
          *RNF5346 30 a      002500  The operation modifies the field,
                                     but the field cannot be modified.
             endif;
          end-proc;

          dcl-ds defaults qualified const;
             account_type int(10) inz(STANDARD_ACCOUNT);
             ...
          end-ds;

          dcl-proc create_new_account;
             dcl-pi *n;
                new_account likeds(account_t);
                cust_id int(10) const;
                cust_type int(10) const;
             end-pi;
             dcl-ds new_account likeds(account_t);

             eval-corr new_account = defaults;
             new_account.customer_id = cust_id;
             if cust_type <> defaults.account_type;
                setup_special_account (new_account : account_type);
             endif;
             ...
          end-proc;