@profoundlogic/codermake 2.1.0 → 2.2.0

package/dist/makefiles/base.mk

@@ -139,3 +139,52 @@ ifdef CODERMAKE_LIBRARY_MAP
 else
   MODULE_PARM = module($(foreach m,$(filter %.module,$^),$(call ibmi_name_sh,$(m))))
 endif
+
+######
+# RPG III (.rpg / .rpg38) /COPY member support.
+#
+# RPG III cannot compile directly from IFS stream files, so /COPY directives
+# always reference source members. codermake creates a source member for every
+# RPG III /COPY prerequisite (in addition to the main program source) before
+# running the compile. Each /COPY prerequisite is listed in the rule so its
+# location in the source tree encodes where the member must be created:
+#
+#   <libraryDir>/<sourceFile>/<member>.<ext>   (multi-library output)
+#   <sourceFile>/<member>.<ext>                (single-library output)
+#
+# The member name comes from the file's base name, the source physical file
+# from the immediate parent directory, and the target library from the leading
+# library-directory segment (multi-library) or the program's own library
+# (single-library). This lets the same /COPY member name resolve to different
+# members in different libraries.
+######
+
+# A literal newline, so a $(foreach ...) can emit one recipe line per member.
+define NL
+
+
+endef
+
+# The RPG III /COPY prerequisites of the current rule: every .rpg/.rpg38
+# prerequisite except the main program source ($<).
+RPG3_COPY_MEMBERS = $(filter-out $<,$(filter %.rpg %.rpg38,$^))
+
+# Source physical file name for a /COPY prerequisite = its immediate parent dir.
+copy_src_file = $(notdir $(patsubst %/,%,$(dir $(1))))
+
+ifdef CODERMAKE_LIBRARY_MAP
+  # Parse CODERMAKE_RESOLVED_LIBRARY_MAP ("LIBA=APPLIBA LIBB=APPLIBB") into
+  # per-directory lookup variables CODERMAKE_LIBMAP_<dir> so a /COPY prereq's
+  # leading library-directory segment can be mapped to its IBM i library.
+  define _CODERMAKE_LIBMAP_ENTRY
+  CODERMAKE_LIBMAP_$(word 1,$(subst =, ,$(1))) := $(word 2,$(subst =, ,$(1)))
+  endef
+  $(foreach _p,$(CODERMAKE_RESOLVED_LIBRARY_MAP),$(eval $(call _CODERMAKE_LIBMAP_ENTRY,$(_p))))
+
+  # Target library for a /COPY prerequisite = its leading library-dir segment
+  # mapped through the resolved library map.
+  copy_src_lib = $(CODERMAKE_LIBMAP_$(firstword $(subst /, ,$(1))))
+else
+  # Single-library output: every member goes to the program's own library.
+  copy_src_lib = $(TARGET_LIB)
+endif

package/dist/makefiles/ibmi.mk

@@ -47,6 +47,20 @@ test -e '$(TARGET_LIB_PATH)/$(2).file/$(call ibmi_name,$(1)).mbr' || system "add
 cat '$(1)' | Rfile -Qw '$(TARGET_LIB)/$(2)($(call ibmi_name,$(1)))'
 endef
 
+######
+# Utility to create a source member in an explicitly named library. Used for
+# RPG III /COPY members, whose target library is derived from the prerequisite
+# path (see base.mk) and may differ from the program's own library.
+# $(1) = IFS file path (source type is derived from file extension)
+# $(2) = source file name (e.g., qcpysrc)
+# $(3) = target IBM i library
+######
+define CREATE_COPY_MEMBER
+test -e '/qsys.lib/$(3).lib/$(2).file' || system "crtsrcpf file($(3)/$(2))"
+test -e '/qsys.lib/$(3).lib/$(2).file/$(call ibmi_name,$(1)).mbr' || system "addpfm file($(3)/$(2)) mbr($(call ibmi_name_sh,$(1))) srctype($(subst .,,$(suffix $(1))))"
+cat '$(1)' | Rfile -Qw '$(3)/$(2)($(call ibmi_name,$(1)))'
+endef
+
 ######
 # Utility to build an object via CL commands in a separate file.
 # $(1) = Object path
@@ -101,11 +115,11 @@ $(info ===)
 ifndef CODERMAKE_LIBRARY_MAP
 $(LIBRARY_PATH):
 	$(call SETUP_LOG,$(notdir $@))
-	system "crtlib $(LIBRARY) *test aut(*use) crtaut(*use)"
+	test -e '$(LIBRARY_PATH)' || system "crtlib $(LIBRARY) *test aut(*use) crtaut(*use)"
 else
 /qsys.lib/%.lib:
 	$(call SETUP_LOG,$(notdir $@))
-	system "crtlib $* *test aut(*use) crtaut(*use)"
+	test -e '/qsys.lib/$*.lib' || system "crtlib $* *test aut(*use) crtaut(*use)"
 endif
 
 ######
@@ -181,6 +195,39 @@ $(SET_LIBL)
 system "crtclpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qclsrc) output(*print)"
 endef
 
+# Build System/38 compatible OPM CL program (QSYS38/CRTCLPGM).
+# QSYS38/CRTCLPGM has no REPLACE parameter and fails if the program exists, so
+# delete any existing program object first.
+define BUILD_CLP38_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qclsrc)
+$(SET_LIBL)
+if test -e '$(TARGET_LIB_PATH)/$(call ibmi_name,$@).pgm'; then system "dltpgm $(TARGET_LIB)/$(call ibmi_name_sh,$@)"; fi
+system "qsys38/crtclpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qclsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source)"
+endef
+
+# Build RPG/400 (RPG III) program (CRTRPGPGM). Creates the program source
+# member plus a source member for every /COPY prerequisite before compiling.
+define BUILD_RPG_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qrpgsrc)
+$(foreach c,$(RPG3_COPY_MEMBERS),$(call CREATE_COPY_MEMBER,$(c),$(call copy_src_file,$(c)),$(call copy_src_lib,$(c)))$(NL))
+$(SET_LIBL)
+system "crtrpgpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qrpgsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source) replace(*yes)"
+endef
+
+# Build System/38 compatible RPG III program (QSYS38/CRTRPGPGM).
+# QSYS38/CRTRPGPGM has no REPLACE parameter and fails if the program exists, so
+# delete any existing program object first. Also creates /COPY source members.
+define BUILD_RPG38_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qrpgsrc)
+$(foreach c,$(RPG3_COPY_MEMBERS),$(call CREATE_COPY_MEMBER,$(c),$(call copy_src_file,$(c)),$(call copy_src_lib,$(c)))$(NL))
+$(SET_LIBL)
+if test -e '$(TARGET_LIB_PATH)/$(call ibmi_name,$@).pgm'; then system "dltpgm $(TARGET_LIB)/$(call ibmi_name_sh,$@)"; fi
+system "qsys38/crtrpgpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qrpgsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source)"
+endef
+
 # Build ILE CL module
 # tgtccsid(*job) is only supported on IBM i 7.5 and later.
 define BUILD_CLLE_MODULE
@@ -315,6 +362,15 @@ $(SET_LIBL)
 system "runsqlstm srcstmf('$(call shell_escape_dollars,$<)') commit(*none) dftrdbcol($(TARGET_LIB))"
 endef
 
+# Build SQL trigger program.
+# CREATE TRIGGER creates the *PGM; use PROGRAM NAME in the source when the
+# trigger name should map exactly to the build target object.
+define BUILD_SQLTRIGGER_TO_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(SET_LIBL)
+system "runsqlstm srcstmf('$(call shell_escape_dollars,$<)') commit(*none) dftrdbcol($(TARGET_LIB))"
+endef
+
 # Build SQL procedure as a service program.
 # An SQL procedure whose source uses PROGRAM TYPE SUB is backed by a *SRVPGM.
 # codermake only runs the SQL statement; IBM i creates the *SRVPGM and derives

package/dist/makefiles/unix.mk

@@ -79,6 +79,26 @@ EOF
 cat '$(1)' | $(SSH) "$(QSHELL) -c 'Rfile -Qw \"$(TARGET_LIB)/$(2)($(call remote_shell_escape_dollars,$(call ibmi_name,$(1))))\"'"
 endef
 
+######
+# Utility to upload a source member to an explicitly named library. Used for
+# RPG III /COPY members, whose target library is derived from the prerequisite
+# path (see base.mk) and may differ from the program's own library.
+# $(1) = local file path (source type is derived from file extension)
+# $(2) = source file name (e.g., qcpysrc)
+# $(3) = target IBM i library
+######
+define CREATE_COPY_MEMBER
+$(SSH) $(QSHELL) <<'EOF'
+  if [ ! -e '/qsys.lib/$(3).lib/$(2).file' ]; then
+    system "crtsrcpf file($(3)/$(2))"
+  fi
+  if [ ! -e '/qsys.lib/$(3).lib/$(2).file/$(call ibmi_name,$(1)).mbr' ]; then
+    system "addpfm file($(3)/$(2)) mbr($(call ibmi_name_sh,$(1))) srctype($(subst .,,$(suffix $(1))))"
+  fi
+EOF
+cat '$(1)' | $(SSH) "$(QSHELL) -c 'Rfile -Qw \"$(3)/$(2)($(call remote_shell_escape_dollars,$(call ibmi_name,$(1))))\"'"
+endef
+
 ######
 # Utility to build an object via CL commands in a separate file.
 # $(1) = Target path
@@ -270,6 +290,52 @@ EOF
 touch '$@'
 endef
 
+# Build System/38 compatible OPM CL program (QSYS38/CRTCLPGM).
+# QSYS38/CRTCLPGM has no REPLACE parameter and fails if the program exists, so
+# delete any existing program object first.
+define BUILD_CLP38_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qclsrc)
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  if [ -e '$(TARGET_LIB_PATH)/$(call ibmi_name,$@).pgm' ]; then
+    system "dltpgm $(TARGET_LIB)/$(call ibmi_name_sh,$@)"
+  fi
+  system "qsys38/crtclpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qclsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source)"
+EOF
+touch '$@'
+endef
+
+# Build RPG/400 (RPG III) program (CRTRPGPGM). Creates the program source
+# member plus a source member for every /COPY prerequisite before compiling.
+define BUILD_RPG_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qrpgsrc)
+$(foreach c,$(RPG3_COPY_MEMBERS),$(call CREATE_COPY_MEMBER,$(c),$(call copy_src_file,$(c)),$(call copy_src_lib,$(c)))$(NL))
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  system "crtrpgpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qrpgsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source) replace(*yes)"
+EOF
+touch '$@'
+endef
+
+# Build System/38 compatible RPG III program (QSYS38/CRTRPGPGM).
+# QSYS38/CRTRPGPGM has no REPLACE parameter and fails if the program exists, so
+# delete any existing program object first. Also creates /COPY source members.
+define BUILD_RPG38_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qrpgsrc)
+$(foreach c,$(RPG3_COPY_MEMBERS),$(call CREATE_COPY_MEMBER,$(c),$(call copy_src_file,$(c)),$(call copy_src_lib,$(c)))$(NL))
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  if [ -e '$(TARGET_LIB_PATH)/$(call ibmi_name,$@).pgm' ]; then
+    system "dltpgm $(TARGET_LIB)/$(call ibmi_name_sh,$@)"
+  fi
+  system "qsys38/crtrpgpgm pgm($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qrpgsrc) srcmbr($(call ibmi_name_sh,$<)) option(*source)"
+EOF
+touch '$@'
+endef
+
 # Build ILE CL module
 # tgtccsid(*job) is only supported on IBM i 7.5 and later, so detect the
 # target's release inside the remote shell and gate the parameter on it.
@@ -439,6 +505,15 @@ $(call REMOTE_BUILD,$(filter-out build/%,$^),system "runsqlstm srcstmf('$(call s
 touch '$@'
 endef
 
+# Build SQL trigger program.
+# CREATE TRIGGER creates the *PGM; use PROGRAM NAME in the source when the
+# trigger name should map exactly to the build target object.
+define BUILD_SQLTRIGGER_TO_PGM
+$(call SETUP_LOG,$(notdir $@))
+$(call REMOTE_BUILD,$(filter-out build/%,$^),system "runsqlstm srcstmf('$(call shell_escape_dollars,$<)') commit(*none) dftrdbcol($(TARGET_LIB))")
+touch '$@'
+endef
+
 # Build SQL procedure as a service program.
 # An SQL procedure whose source uses PROGRAM TYPE SUB is backed by a *SRVPGM.
 # codermake only runs the SQL statement; IBM i creates the *SRVPGM and derives

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@profoundlogic/codermake",
-  "version": "2.1.0",
+  "version": "2.2.0",
   "description": "Make wrapper framework for IBM i development that simplifies build rules",
   "main": "dist/bin/index.js",
   "type": "module",

package/skills/codermake/SKILL.md

@@ -154,9 +154,13 @@ ENDPGMEXP
 | `.clle` | `.pgm` | Program (*PGM) | `CRTBNDCL` |
 | `.clle` | `.module` | Module (*MODULE) | `CRTCLMOD` |
 | `.clp` / `.cl` | `.pgm` | Program (*PGM) | `CRTCLPGM` |
+| `.clp38` | `.pgm` | Program (*PGM) | `QSYS38/CRTCLPGM` (System/38, delete-then-create) |
+| `.rpg` | `.pgm` | Program (*PGM) | `CRTRPGPGM ... REPLACE(*YES)` (RPG/400) |
+| `.rpg38` | `.pgm` | Program (*PGM) | `QSYS38/CRTRPGPGM` (System/38 RPG III, delete-then-create) |
 | `.proc.sql` | `.pgm` | SQL Procedure (*PGM) | `RUNSQLSTM` |
 | `.proc.sql` | `.srvpgm` | SQL Procedure (*SRVPGM, `PROGRAM TYPE SUB`) | `RUNSQLSTM` |
 | `.udf.sql` | `.srvpgm` | SQL Function (*SRVPGM, `LANGUAGE SQL`) | `RUNSQLSTM` |
+| `.trg.sql` | `.pgm` | SQL Trigger Program (*PGM) | `RUNSQLSTM` |
 | `.module` (1+) | `.pgm` | Program (*PGM) | `CRTPGM` |
 | `.module` + `.exports` or `.bnd` | `.srvpgm` | Service Program (*SRVPGM) | `CRTSRVPGM EXPORT(*SRCFILE)` |
 | `.module` (no exports) | `.srvpgm` | Service Program (*SRVPGM) | `CRTSRVPGM EXPORT(*ALL)` |

package/skills/codermake/references/compile-listings.md

@@ -98,7 +98,7 @@ CPD7344   30   Keyword REF not valid for this type of file.
 
 DDS errors typically reference a specific record format and line within the source.
 
-## SQL DDL listings (.table.sql, .index.sql, .view.sql, .proc.sql, .udf.sql)
+## SQL DDL listings (.table.sql, .index.sql, .view.sql, .proc.sql, .udf.sql, .trg.sql)
 
 SQL DDL statements executed via `RUNSQLSTM` produce SQL messages:
 
@@ -110,7 +110,7 @@ SQL7905   10   Module *N in *N not found.
 
 - Severity 30+ means the statement failed.
 - Severity 20 warnings (like "already exists") may or may not be a problem depending on context.
-- `.proc.sql` builds a `*PGM` (or a `*SRVPGM` with `PROGRAM TYPE SUB`) and `.udf.sql` builds a `*SRVPGM`; IBM i creates the object from the SQL routine, so the object name comes from the routine rather than the build target.
+- `.proc.sql` builds a `*PGM` (or a `*SRVPGM` with `PROGRAM TYPE SUB`), `.udf.sql` builds a `*SRVPGM`, and `.trg.sql` builds a trigger `*PGM`; IBM i creates these objects from the SQL statement, so align the SQL routine/trigger name or trigger `PROGRAM NAME` with the build target.
 
 ## Message files and binding directories (.msgf, .bnddir)
 

package/skills/codermake/references/file-types.md

@@ -54,6 +54,47 @@ mypgm.pgm: mypgm.clp
 
 **CL command:** `CRTCLPGM PGM(LIB/MYPGM) SRCFILE(LIB/QCLSRC)`
 
+### System/38 OPM CL program from .clp38
+
+System/38 compatible OPM CL. Like `.clp`, it compiles from a source member (`QCLSRC`).
+`QSYS38/CRTCLPGM` has no `REPLACE` parameter, so the recipe deletes any existing
+program object first.
+
+```makefile
+mycl38.pgm: mycl38.clp38
+```
+
+**CL command:** `QSYS38/CRTCLPGM PGM(LIB/MYCL38) SRCFILE(LIB/QCLSRC) SRCMBR(MYCL38) OPTION(*SOURCE)`
+
+### RPG/400 (RPG III) program from .rpg
+
+RPG III cannot compile from stream files, so the source is staged as a member in
+`QRPGSRC` first, then compiled with `CRTRPGPGM`. `/COPY` directives always
+reference source members; list each `/COPY` target as a prerequisite so codermake
+creates it as a source member too (in the source file named by the prereq's parent
+directory, in the program's library — or, in multi-library output mode, the library
+mapped from the prereq's leading library-directory segment). RPG III has no
+`/INCLUDE` directive and defaults the source file to `QRPGSRC` when unqualified.
+
+```makefile
+myrpg.pgm: myrpg.rpg
+mycpy.pgm: mycpy.rpg qcpysrc/shared.rpg    # /COPY QCPYSRC,SHARED staged as QCPYSRC/SHARED
+```
+
+**CL command:** `CRTRPGPGM PGM(LIB/MYRPG) SRCFILE(LIB/QRPGSRC) SRCMBR(MYRPG) OPTION(*SOURCE) REPLACE(*YES)`
+
+### System/38 RPG III program from .rpg38
+
+Like `.rpg`, but compiled with `QSYS38/CRTRPGPGM` and the staged member is tagged
+`RPG38`. `QSYS38/CRTRPGPGM` has no `REPLACE` parameter, so the recipe deletes any
+existing program object first. `/COPY` members are handled the same way as `.rpg`.
+
+```makefile
+myrpg38.pgm: myrpg38.rpg38
+```
+
+**CL command:** `QSYS38/CRTRPGPGM PGM(LIB/MYRPG38) SRCFILE(LIB/QRPGSRC) SRCMBR(MYRPG38) OPTION(*SOURCE)`
+
 ### SQL procedure from .proc.sql
 
 Runs a SQL DDL script that creates a stored procedure. With the default `PROGRAM TYPE MAIN`, the resulting object is a program (`*PGM`).
@@ -66,6 +107,18 @@ getcount.pgm: getcount.proc.sql
 
 A `.proc.sql` whose routine uses `PROGRAM TYPE SUB`, and a `.udf.sql` SQL function, are backed by `*SRVPGM` objects instead — see [SQL service programs](#sql-service-programs-from-procsql--udfsql) under Service programs.
 
+### SQL trigger program from .trg.sql
+
+Runs a SQL DDL script that creates a trigger. IBM i creates the generated trigger program object (`*PGM`) when `CREATE TRIGGER` runs.
+
+```makefile
+emptrg.pgm: emptrg.trg.sql employee.file empaudit.file
+```
+
+**CL command:** `RUNSQLSTM SRCSTMF('src/emptrg.trg.sql') COMMIT(*NONE) DFTRDBCOL(LIB)`
+
+Use the trigger name or `PROGRAM NAME` in the source so the generated program object matches the `.pgm` build target.
+
 ### Program from modules
 
 Links one or more compiled modules into a program. Prerequisites include `.module` targets, and optionally `.srvpgm` and `.bnddir` (normal or order-only) for automatic binding.