@llm4ts/shell 0.17.0 → 0.18.1

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/dto/BenfDTO.java

@@ -0,0 +1,49 @@
+package com.demobank.legacy.dto;
+
+import java.io.Serializable;
+
+/**
+ * Beneficiary DTO for list and maintenance (ESB_BENF_LIST / ESB_BENF_MAINT).
+ * Field abbreviations follow host copybook CBBENF02.
+ *
+ * @author rmasi (2010)
+ */
+public class BenfDTO implements Serializable {
+
+    private static final long serialVersionUID = 1L;
+
+    /** Beneficiary id assigned by the host, e.g. "B0001". */
+    private String benfId;
+    /** Beneficiary display name, host field CHAR(60). */
+    private String benfNm;
+    /** Beneficiary IBAN, stored without spaces on the host. */
+    private String benfIban;
+    /** Beneficiary bank display name (optional for EUR/SEPA). */
+    private String bankNm;
+    /** Preferred currency for transfers to this beneficiary. */
+    private String ccyCd;
+    /** Y when the beneficiary passed host-side vetting. */
+    private String vrfFlg;
+
+    public BenfDTO() {
+        // bean constructor
+    }
+
+    public String getBenfId() { return benfId; }
+    public void setBenfId(String benfId) { this.benfId = benfId; }
+
+    public String getBenfNm() { return benfNm; }
+    public void setBenfNm(String benfNm) { this.benfNm = benfNm; }
+
+    public String getBenfIban() { return benfIban; }
+    public void setBenfIban(String benfIban) { this.benfIban = benfIban; }
+
+    public String getBankNm() { return bankNm; }
+    public void setBankNm(String bankNm) { this.bankNm = bankNm; }
+
+    public String getCcyCd() { return ccyCd; }
+    public void setCcyCd(String ccyCd) { this.ccyCd = ccyCd; }
+
+    public String getVrfFlg() { return vrfFlg; }
+    public void setVrfFlg(String vrfFlg) { this.vrfFlg = vrfFlg; }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/dto/TrfDTO.java

@@ -0,0 +1,70 @@
+package com.demobank.legacy.dto;
+
+import java.io.Serializable;
+import java.math.BigDecimal;
+
+/**
+ * Wire transfer result DTO, populated from ESB_TRF_VAL / ESB_TRF_EXEC
+ * responses (host copybook CBTRF03). Rendered by transferConfirm.jsp.
+ *
+ * @author lgreco (2011)
+ */
+public class TrfDTO implements Serializable {
+
+    private static final long serialVersionUID = 1L;
+
+    /** Host transfer reference, e.g. "TRF20130115000042". */
+    private String trfRef;
+    /** OK or KO after execution. */
+    private String status;
+    /** Host return code, "0000" on success. */
+    private String hostRc;
+    /** Host message text (uppercase, host encoding). */
+    private String hostMsg;
+    /** Echoed beneficiary name. */
+    private String benfNm;
+    /** Echoed beneficiary IBAN. */
+    private String benfIban;
+    /** Transfer amount. */
+    private BigDecimal trfAmt;
+    /** Transfer currency (EUR only online). */
+    private String trfCcy;
+    /** Settlement value date, dd/MM/yyyy presentation form. */
+    private String valDt;
+    /** Fee charged, standard SEPA schedule. */
+    private BigDecimal feeAmt;
+
+    public TrfDTO() {
+        // bean constructor
+    }
+
+    public String getTrfRef() { return trfRef; }
+    public void setTrfRef(String trfRef) { this.trfRef = trfRef; }
+
+    public String getStatus() { return status; }
+    public void setStatus(String status) { this.status = status; }
+
+    public String getHostRc() { return hostRc; }
+    public void setHostRc(String hostRc) { this.hostRc = hostRc; }
+
+    public String getHostMsg() { return hostMsg; }
+    public void setHostMsg(String hostMsg) { this.hostMsg = hostMsg; }
+
+    public String getBenfNm() { return benfNm; }
+    public void setBenfNm(String benfNm) { this.benfNm = benfNm; }
+
+    public String getBenfIban() { return benfIban; }
+    public void setBenfIban(String benfIban) { this.benfIban = benfIban; }
+
+    public BigDecimal getTrfAmt() { return trfAmt; }
+    public void setTrfAmt(BigDecimal trfAmt) { this.trfAmt = trfAmt; }
+
+    public String getTrfCcy() { return trfCcy; }
+    public void setTrfCcy(String trfCcy) { this.trfCcy = trfCcy; }
+
+    public String getValDt() { return valDt; }
+    public void setValDt(String valDt) { this.valDt = valDt; }
+
+    public BigDecimal getFeeAmt() { return feeAmt; }
+    public void setFeeAmt(BigDecimal feeAmt) { this.feeAmt = feeAmt; }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbAcctListService.java

@@ -0,0 +1,53 @@
+package com.demobank.legacy.esb;
+
+import java.math.BigDecimal;
+import java.util.ArrayList;
+import java.util.HashMap;
+import java.util.List;
+import java.util.Map;
+
+import com.demobank.legacy.dto.AcctOvwDTO;
+
+/**
+ * Wrapper around host service ESB_ACCT_LIST (account position inquiry,
+ * Cobol routine ACCTLST on the core banking host).
+ *
+ * Request copybook fields: CUST-ID.
+ * Response: repeating group ACCT-ROW (ACCT-NO, ACCT-IBAN, ACCT-DESC,
+ * CCY-CD, CUR-BAL, AVL-BAL, STA-CD), max 20 occurrences.
+ *
+ * @author gferri (2008)
+ */
+public class EsbAcctListService {
+
+    public static final String SVC_ID = "ESB_ACCT_LIST";
+
+    /**
+     * List all accounts for a customer, closed ones excluded host-side.
+     */
+    public List listAccounts(String custId) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+
+        List rows = (List) out.get("ACCT-ROW");
+        List result = new ArrayList();
+        if (rows != null) {
+            for (int i = 0; i < rows.size(); i++) {
+                Map r = (Map) rows.get(i);
+                AcctOvwDTO dto = new AcctOvwDTO();
+                dto.setAcctNo((String) r.get("ACCT-NO"));
+                dto.setAcctIban((String) r.get("ACCT-IBAN"));
+                dto.setAcctDesc((String) r.get("ACCT-DESC"));
+                dto.setCcyCd((String) r.get("CCY-CD"));
+                // Host sends amounts as implied-decimal strings.
+                dto.setCurBal(new BigDecimal((String) r.get("CUR-BAL")));
+                dto.setAvlBal(new BigDecimal((String) r.get("AVL-BAL")));
+                dto.setStaCd((String) r.get("STA-CD"));
+                result.add(dto);
+            }
+        }
+        return result;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbBenfListService.java

@@ -0,0 +1,58 @@
+package com.demobank.legacy.esb;
+
+import java.util.ArrayList;
+import java.util.HashMap;
+import java.util.List;
+import java.util.Map;
+
+import com.demobank.legacy.dto.BenfDTO;
+
+/**
+ * Wrapper around host service ESB_BENF_LIST (beneficiary book inquiry,
+ * Cobol routine BENFLST).
+ *
+ * Request: CUST-ID, optional BENF-ID for a single-row read.
+ * Response: repeating group BENF-ROW (BENF-ID, BENF-NM, BENF-IBAN,
+ * BANK-NM, CCY-CD, VRF-FLG), max 50 occurrences.
+ *
+ * @author rmasi (2010)
+ */
+public class EsbBenfListService {
+
+    public static final String SVC_ID = "ESB_BENF_LIST";
+
+    public List listBeneficiaries(String custId) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+        return toDtos((List) out.get("BENF-ROW"));
+    }
+
+    /** Single beneficiary read; returns null when the host says not found. */
+    public BenfDTO getBeneficiary(String custId, String benfId) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        in.put("BENF-ID", benfId);
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+        List dtos = toDtos((List) out.get("BENF-ROW"));
+        return dtos.isEmpty() ? null : (BenfDTO) dtos.get(0);
+    }
+
+    private List toDtos(List rows) {
+        List result = new ArrayList();
+        if (rows != null) {
+            for (int i = 0; i < rows.size(); i++) {
+                Map r = (Map) rows.get(i);
+                BenfDTO dto = new BenfDTO();
+                dto.setBenfId((String) r.get("BENF-ID"));
+                dto.setBenfNm((String) r.get("BENF-NM"));
+                dto.setBenfIban((String) r.get("BENF-IBAN"));
+                dto.setBankNm((String) r.get("BANK-NM"));
+                dto.setCcyCd((String) r.get("CCY-CD"));
+                dto.setVrfFlg((String) r.get("VRF-FLG"));
+                result.add(dto);
+            }
+        }
+        return result;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbBenfMaintService.java

@@ -0,0 +1,58 @@
+package com.demobank.legacy.esb;
+
+import java.util.HashMap;
+import java.util.Map;
+
+import com.demobank.legacy.dto.BenfDTO;
+
+/**
+ * Wrapper around host service ESB_BENF_MAINT (beneficiary maintenance,
+ * Cobol routine BENFMNT). One service, three ops -- the host multiplexes
+ * on MAINT-OP: I=insert, U=update, D=delete.
+ *
+ * Business return codes seen in the wild:
+ *   0000 ok
+ *   0102 duplicate IBAN for customer
+ *   0107 beneficiary vetting failed (embargo list)
+ *   0110 book full (max 50 beneficiaries)
+ *
+ * @author rmasi (2010)
+ */
+public class EsbBenfMaintService {
+
+    public static final String SVC_ID = "ESB_BENF_MAINT";
+
+    /** Insert or update depending on whether dto.benfId is set. */
+    public String save(String custId, BenfDTO dto) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        in.put("MAINT-OP", isEmpty(dto.getBenfId()) ? "I" : "U");
+        in.put("BENF-ID", dto.getBenfId());
+        in.put("BENF-NM", dto.getBenfNm());
+        // Host stores the IBAN without spaces.
+        in.put("BENF-IBAN", dto.getBenfIban() == null
+                ? null : dto.getBenfIban().replaceAll(" ", ""));
+        in.put("BANK-NM", dto.getBankNm());
+        in.put("CCY-CD", dto.getCcyCd());
+
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+        String rc = (String) out.get("HOST-RC");
+        if (!"0000".equals(rc)) {
+            return rc; // business rejection, servlet renders the message
+        }
+        return "0000";
+    }
+
+    public String delete(String custId, String benfId) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        in.put("MAINT-OP", "D");
+        in.put("BENF-ID", benfId);
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+        return (String) out.get("HOST-RC");
+    }
+
+    private boolean isEmpty(String s) {
+        return s == null || s.trim().length() == 0;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbException.java

@@ -0,0 +1,21 @@
+package com.demobank.legacy.esb;
+
+/**
+ * Transport-level ESB failure (router down, timeout, bridge error).
+ * Business return codes travel inside the response map instead.
+ */
+public class EsbException extends Exception {
+
+    private static final long serialVersionUID = 1L;
+
+    private final String esbRc;
+
+    public EsbException(String message, String esbRc) {
+        super(message);
+        this.esbRc = esbRc;
+    }
+
+    public String getEsbRc() {
+        return esbRc;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbGateway.java

@@ -0,0 +1,44 @@
+package com.demobank.legacy.esb;
+
+import java.util.Map;
+
+/**
+ * Thin client for the DemoBank ESB router. Every host service is addressed
+ * by its service id (the Cobol-ish routine name, e.g. "ESB_ACCT_LIST").
+ *
+ * In production this speaks the fixed-length message protocol over the
+ * MQ bridge (endpoint from context-param demobank.esb.endpoint). In this
+ * synthetic fixture it is a stub: the wrappers are what matter, the wire
+ * never happens.
+ *
+ * @author esb-team (2007)
+ */
+public final class EsbGateway {
+
+    private static final EsbGateway INSTANCE = new EsbGateway();
+
+    public static EsbGateway getInstance() {
+        return INSTANCE;
+    }
+
+    private EsbGateway() {
+        // singleton since 2007; the app server pools nothing here
+    }
+
+    /**
+     * Invoke a host service. Input and output are flat field maps keyed by
+     * copybook field name; conversion to/from the fixed-length host record
+     * is done by the (notional) message dictionary.
+     *
+     * @param svcId host service id, e.g. "ESB_TRF_EXEC"
+     * @param in    request fields (copybook names)
+     * @return response fields, always containing HOST-RC and HOST-MSG
+     * @throws EsbException when the router is unreachable or times out
+     */
+    public Map invoke(String svcId, Map in) throws EsbException {
+        // Fixture stub. Real implementation: build fixed-length record,
+        // send via MQ bridge, parse response, map RC != 0000 to EsbException
+        // for transport-level codes only (90xx range).
+        throw new EsbException("ESB router not available in fixture", "9001");
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbTrfExecService.java

@@ -0,0 +1,53 @@
+package com.demobank.legacy.esb;
+
+import java.math.BigDecimal;
+import java.util.HashMap;
+import java.util.Map;
+
+import com.demobank.legacy.dto.TrfDTO;
+import com.demobank.legacy.web.TransferDraft;
+
+/**
+ * Wrapper around host service ESB_TRF_EXEC (wire transfer execution,
+ * Cobol routine TRFEXC). Debits the account and books the SEPA payment.
+ * MUST be preceded by a successful ESB_TRF_VAL in the same session --
+ * the host cross-checks the validation token (VAL-TOKEN).
+ *
+ * Idempotency: the host dedupes on (CUST-ID, VAL-TOKEN), so a double
+ * submit of step 3 returns the original reference instead of paying twice.
+ *
+ * @author lgreco (2011)
+ */
+public class EsbTrfExecService {
+
+    public static final String SVC_ID = "ESB_TRF_EXEC";
+
+    public TrfDTO execute(String custId, TransferDraft draft) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        in.put("VAL-TOKEN", draft.getValToken());
+        in.put("BENF-ID", draft.getBenfId());
+        in.put("TRF-AMT", draft.getTrfAmt().toPlainString());
+        in.put("TRF-CCY", draft.getTrfCcy());
+        in.put("TRF-DESC", draft.getTrfDesc());
+        in.put("VAL-DT", draft.getValDt());
+
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+
+        TrfDTO res = new TrfDTO();
+        String rc = (String) out.get("HOST-RC");
+        res.setHostRc(rc);
+        res.setHostMsg((String) out.get("HOST-MSG"));
+        res.setStatus("0000".equals(rc) ? "OK" : "KO");
+        if ("0000".equals(rc)) {
+            res.setTrfRef((String) out.get("TRF-REF"));
+            res.setBenfNm(draft.getBenfNm());
+            res.setBenfIban(draft.getBenfIban());
+            res.setTrfAmt(draft.getTrfAmt());
+            res.setTrfCcy(draft.getTrfCcy());
+            res.setValDt((String) out.get("VAL-DT"));
+            res.setFeeAmt(new BigDecimal((String) out.get("FEE-AMT")));
+        }
+        return res;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/esb/EsbTrfValidateService.java

@@ -0,0 +1,45 @@
+package com.demobank.legacy.esb;
+
+import java.math.BigDecimal;
+import java.util.HashMap;
+import java.util.Map;
+
+import com.demobank.legacy.web.TransferDraft;
+
+/**
+ * Wrapper around host service ESB_TRF_VAL (wire transfer pre-validation,
+ * Cobol routine TRFVAL). Checks funds, limits, embargo, cut-off; computes
+ * the fee and the first available value date. Does NOT move money.
+ *
+ * The draft is enriched in place with FEE-AMT and VAL-DT from the host so
+ * step 2 (review) shows exactly what execution will use.
+ *
+ * @author lgreco (2011)
+ */
+public class EsbTrfValidateService {
+
+    public static final String SVC_ID = "ESB_TRF_VAL";
+
+    /**
+     * @return host RC: "0000" when the transfer may proceed, otherwise a
+     *         business rejection (e.g. 0201 insufficient funds, 0205 daily
+     *         limit exceeded, 0207 embargo hit).
+     */
+    public String validate(String custId, TransferDraft draft) throws EsbException {
+        Map in = new HashMap();
+        in.put("CUST-ID", custId);
+        in.put("BENF-ID", draft.getBenfId());
+        in.put("TRF-AMT", draft.getTrfAmt().toPlainString());
+        in.put("TRF-CCY", draft.getTrfCcy());
+        in.put("TRF-DESC", draft.getTrfDesc());
+        in.put("VAL-DT", draft.getValDt());
+
+        Map out = EsbGateway.getInstance().invoke(SVC_ID, in);
+        String rc = (String) out.get("HOST-RC");
+        if ("0000".equals(rc)) {
+            draft.setFeeAmt(new BigDecimal((String) out.get("FEE-AMT")));
+            draft.setValDt((String) out.get("VAL-DT"));
+        }
+        return rc;
+    }
+}

package/kits/j2ee-nextjs/fixtures/demo-bank/legacy-j2ee/src/main/java/com/demobank/legacy/web/AccountOverviewServlet.java

@@ -0,0 +1,90 @@
+package com.demobank.legacy.web;
+
+import java.io.IOException;
+import java.io.PrintWriter;
+import java.text.SimpleDateFormat;
+import java.util.Date;
+import java.util.List;
+
+import javax.servlet.RequestDispatcher;
+import javax.servlet.ServletException;
+import javax.servlet.http.HttpServlet;
+import javax.servlet.http.HttpServletRequest;
+import javax.servlet.http.HttpServletResponse;
+import javax.servlet.http.HttpSession;
+
+import com.demobank.legacy.dto.AcctOvwDTO;
+import com.demobank.legacy.esb.EsbAcctListService;
+import com.demobank.legacy.esb.EsbException;
+
+/**
+ * HERO 1 controller. GET /accountOverview
+ *
+ * Two response modes on the same mapping (period-typical):
+ *   - default: fetch positions, put "accts" + "asOfTs" in request scope,
+ *     forward to accountOverview.jsp (server-rendered JSTL table)
+ *   - fmt=json: hand-rolled JSON for the jQuery balance refresh
+ *
+ * ESB dependency: ESB_ACCT_LIST via EsbAcctListService.
+ */
+public class AccountOverviewServlet extends HttpServlet {
+
+    private static final long serialVersionUID = 1L;
+
+    private final EsbAcctListService acctListService = new EsbAcctListService();
+
+    protected void doGet(HttpServletRequest request, HttpServletResponse response)
+            throws ServletException, IOException {
+
+        HttpSession session = request.getSession(true);
+        String custId = (String) session.getAttribute("custId");
+        if (custId == null) {
+            custId = "CUST0042"; // fixture default, real portal redirects to login
+            session.setAttribute("custId", custId);
+        }
+
+        List accts;
+        try {
+            accts = acctListService.listAccounts(custId);
+        } catch (EsbException e) {
+            // Legacy behaviour: log to stdout and render an empty list.
+            System.out.println("ESB_ACCT_LIST failed rc=" + e.getEsbRc()
+                    + " msg=" + e.getMessage());
+            accts = new java.util.ArrayList();
+        }
+
+        String asOfTs = new SimpleDateFormat("dd/MM/yyyy HH:mm:ss").format(new Date());
+
+        if ("json".equals(request.getParameter("fmt"))) {
+            writeJson(response, accts, asOfTs);
+            return;
+        }
+
+        request.setAttribute("accts", accts);
+        request.setAttribute("asOfTs", asOfTs);
+        RequestDispatcher rd = request.getRequestDispatcher("/accountOverview.jsp");
+        rd.forward(request, response);
+    }
+
+    /**
+     * Hand-rolled JSON (predates any JSON library approval, DB-1893).
+     * Escaping is minimal because host descriptions are uppercase A-Z0-9.
+     */
+    private void writeJson(HttpServletResponse response, List accts, String asOfTs)
+            throws IOException {
+        response.setContentType("application/json");
+        response.setHeader("Cache-Control", "no-cache");
+        PrintWriter out = response.getWriter();
+        out.print("{\"asOfTs\":\"" + asOfTs + "\",\"accts\":[");
+        for (int i = 0; i < accts.size(); i++) {
+            AcctOvwDTO a = (AcctOvwDTO) accts.get(i);
+            if (i > 0) out.print(",");
+            out.print("{\"acctNo\":\"" + a.getAcctNo() + "\"");
+            out.print(",\"ccyCd\":\"" + a.getCcyCd() + "\"");
+            out.print(",\"curBal\":\"" + a.getCurBal().toPlainString() + "\"");
+            out.print(",\"avlBal\":\"" + a.getAvlBal().toPlainString() + "\"}");
+        }
+        out.print("]}");
+        out.flush();
+    }
+}