diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index b617a3d7ea4147460fb3c7ad9d0a9bf46184ad8d..4d4622274c054185b9d5b8468f781e45494aa784 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -14167,10 +14167,10 @@ actually_create_the_static_field( cbl_field_t *new_var,
                           build_int_cst_type(SIZE_T, new_var->occurs.bounds.upper) );
   next_field = TREE_CHAIN(next_field);
 
-  //  INT,     "attr",
+  //  SIZE_T,     "attr",
   CONSTRUCTOR_APPEND_ELT( CONSTRUCTOR_ELTS(constr),
                           next_field,
-                          build_int_cst_type(INT, new_var->attr) );
+                          build_int_cst_type(SIZE_T, new_var->attr) );
   next_field = TREE_CHAIN(next_field);
 
   //  SCHAR,     "type",
@@ -14385,7 +14385,7 @@ psa_new_var_decl(cbl_field_t *new_var, const char *external_record_base)
       {
       new_var_decl = gg_define_variable(  cblc_field_type_node,
                                           base_name,
-                                          vs_static);
+                                          vs_stack); // vs_stack);
       }
     else
       {