Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions containers/ddmap/CBACT04C.env
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
# DD/ASSIGN -> AWS.M2.CARDDEMO.* mapping for CBACT04C (job INTCALC).
# Mirrors app/jcl/INTCALC.jcl. entrypoint.sh exports each as DD=$DATA_DIR/<dataset>
# so GnuCOBOL's "ASSIGN TO <DD>" resolves to the mounted file. Names unchanged.
TCATBALF=AWS.M2.CARDDEMO.TCATBALF.VSAM.KSDS
XREFFILE=AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS
ACCTFILE=AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS
DISCGRP=AWS.M2.CARDDEMO.DISCGRP.VSAM.KSDS
TRANSACT=AWS.M2.CARDDEMO.SYSTRAN
10 changes: 10 additions & 0 deletions containers/programs/CBACT04C.env
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
# Per-program build/run manifest for CBACT04C (job INTCALC, interest calculator).
# CBACT04C has `PROCEDURE DIVISION USING EXTERNAL-PARMS`, which GnuCOBOL forbids
# for a `cobc -x` executable ("executable program requested but PROCEDURE/ENTRY
# has USING clause"). module mode compiles it with `cobc -m` and runs it via
# `cobcrun`, which passes PROGRAM_PARM to the USING data item exactly like the
# mainframe JCL PARM= did. No source change.
RUN_MODE=module
SUBPROGRAMS=
COBC_FLAGS=-ftab-width=1
PROGRAM_PARM=2022071800 # interest run date, from INTCALC.jcl PARM='2022071800'