Fix invalid constructors in record constructors (#528)

Author: yutaro-sakamoto

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/user_util/cobj_api/ApiFiles.java

@@ -235,7 +235,7 @@ private static void writeRecord(FileWriter rcdFile, JSONArray params) {
 
     argPrint(rcdWriter, params, true, false);
 
-    rcdWriter.print(") {\n" + "    public LOANSUBRecord(){\n" + "        this(200, ");
+    rcdWriter.print(") {\n" + "    public " + programId + "Record(){\n" + "        this(200, ");
     for (i = 0; i < params.length(); ++i) {
       param = params.getJSONObject(i);
       type = param.getString("java_type");

libcobj/app/src/test/java/jp/osscons/opensourcecobol/libcobj/user_util/cobj_api/testRecord.txt

@@ -1,6 +1,6 @@
 package com.example.restservice;
 public record testRecord(int statuscode, int param1, double param2, String param3) {
-    public LOANSUBRecord(){
+    public testRecord(){
         this(200, 0, 0, "");
     }
 }