@profoundlogic/codermake 2.0.7 → 2.1.0

package/dist/makefiles/ibmi.mk

@@ -255,6 +255,38 @@ $(SET_LIBL)
 system "crtprtf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
 endef
 
+# Build System/38 display file
+define BUILD_DSPF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SET_LIBL)
+system "qsys38/crtdspf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+endef
+
+# Build System/38 physical file
+define BUILD_PF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SET_LIBL)
+system "qsys38/crtpf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+endef
+
+# Build System/38 logical file
+define BUILD_LF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SET_LIBL)
+system "qsys38/crtlf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+endef
+
+# Build System/38 printer file
+define BUILD_PRTF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SET_LIBL)
+system "qsys38/crtprtf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+endef
+
 # Build SQL table
 define BUILD_SQLTABLE_TO_FILE
 $(call SETUP_LOG,$(notdir $@))
@@ -283,6 +315,26 @@ $(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
+# its object name from the routine (name it to match the target where practical).
+define BUILD_SQLPROC_TO_SRVPGM
+$(call SETUP_LOG,$(notdir $@))
+$(SET_LIBL)
+system "runsqlstm srcstmf('$(call shell_escape_dollars,$<)') commit(*none) dftrdbcol($(TARGET_LIB))"
+endef
+
+# Build SQL UDF (CREATE FUNCTION ... LANGUAGE SQL) as a service program.
+# SQL UDFs are backed by *SRVPGM objects. codermake only runs the SQL statement;
+# IBM i creates the *SRVPGM and derives its object name from the routine (name it
+# to match the target where practical).
+define BUILD_SQLUDF_TO_SRVPGM
+$(call SETUP_LOG,$(notdir $@))
+$(SET_LIBL)
+system "runsqlstm srcstmf('$(call shell_escape_dollars,$<)') commit(*none) dftrdbcol($(TARGET_LIB))"
+endef
+
 # Build message file from CL commands
 define BUILD_MSGF
 $(call SETUP_LOG,$(notdir $@))

package/dist/makefiles/unix.mk

@@ -367,6 +367,50 @@ EOF
 touch '$@'
 endef
 
+# Build System/38 display file
+define BUILD_DSPF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  system "qsys38/crtdspf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+EOF
+touch '$@'
+endef
+
+# Build System/38 physical file
+define BUILD_PF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  system "qsys38/crtpf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+EOF
+touch '$@'
+endef
+
+# Build System/38 logical file
+define BUILD_LF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  system "qsys38/crtlf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+EOF
+touch '$@'
+endef
+
+# Build System/38 printer file
+define BUILD_PRTF38_TO_FILE
+$(call SETUP_LOG,$(notdir $@))
+$(call CREATE_SOURCE_MEMBER,$<,qddssrc)
+$(SSH) $(QSHELL) <<'EOF'
+  $(SET_LIBL)
+  system "qsys38/crtprtf file($(TARGET_LIB)/$(call ibmi_name_sh,$@)) srcfile($(TARGET_LIB)/qddssrc) srcmbr($(call ibmi_name_sh,$<))"
+EOF
+touch '$@'
+endef
+
 # Build SQL table
 define BUILD_SQLTABLE_TO_FILE
 $(call SETUP_LOG,$(notdir $@))
@@ -395,6 +439,26 @@ $(call REMOTE_BUILD,$(filter-out build/%,$^),system "runsqlstm srcstmf('$(call s
 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
+# its object name from the routine (name it to match the target where practical).
+define BUILD_SQLPROC_TO_SRVPGM
+$(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 UDF (CREATE FUNCTION ... LANGUAGE SQL) as a service program.
+# SQL UDFs are backed by *SRVPGM objects. codermake only runs the SQL statement;
+# IBM i creates the *SRVPGM and derives its object name from the routine (name it
+# to match the target where practical).
+define BUILD_SQLUDF_TO_SRVPGM
+$(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 message file from CL commands
 define BUILD_MSGF
 $(call SETUP_LOG,$(notdir $@))

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@profoundlogic/codermake",
-  "version": "2.0.7",
+  "version": "2.1.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

@@ -155,6 +155,8 @@ ENDPGMEXP
 | `.clle` | `.module` | Module (*MODULE) | `CRTCLMOD` |
 | `.clp` / `.cl` | `.pgm` | Program (*PGM) | `CRTCLPGM` |
 | `.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` |
 | `.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)` |
@@ -163,6 +165,10 @@ ENDPGMEXP
 | `.pf` | `.file` | Physical File (*FILE) | `CRTPF` |
 | `.lf` | `.file` | Logical File (*FILE) | `CRTLF` |
 | `.prtf` | `.file` | Printer File (*FILE) | `CRTPRTF` |
+| `.dspf38` | `.file` | Display File (*FILE) | `QSYS38/CRTDSPF` (System/38, `DSPF38` member) |
+| `.pf38` | `.file` | Physical File (*FILE) | `QSYS38/CRTPF` (System/38, `PF38` member) |
+| `.lf38` | `.file` | Logical File (*FILE) | `QSYS38/CRTLF` (System/38, `LF38` member) |
+| `.prtf38` | `.file` | Printer File (*FILE) | `QSYS38/CRTPRTF` (System/38, `PRTF38` member) |
 | `.table.sql` | `.file` | SQL Table (*FILE) | `RUNSQLSTM` |
 | `.index.sql` | `.file` | SQL Index (*FILE) | `RUNSQLSTM` |
 | `.view.sql` | `.file` | SQL View (*FILE) | `RUNSQLSTM` |

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

@@ -87,9 +87,9 @@ For ILE CL (`CRTBNDCL`, `CRTCLMOD`), the listing structure is similar to RPG --
 
 For OPM CL (`CRTCLPGM`), the output is typically shorter and errors reference source sequence numbers.
 
-## DDS listings (.dspf, .pf, .lf, .prtf)
+## DDS listings (.dspf, .pf, .lf, .prtf, and their System/38 `.dspf38`/`.pf38`/`.lf38`/`.prtf38` variants)
 
-DDS compilation errors from `CRTDSPF`, `CRTPF`, `CRTLF`, or `CRTPRTF` produce `CPD` messages:
+DDS compilation errors from `CRTDSPF`, `CRTPF`, `CRTLF`, or `CRTPRTF` produce `CPD` messages. The System/38 `.dspf38`, `.pf38`, `.lf38`, and `.prtf38` variants use the corresponding `QSYS38/...` commands.
 
 ```
 CPD7302   30   Record format SCREEN1 not found in file referenced.
@@ -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)
+## SQL DDL listings (.table.sql, .index.sql, .view.sql, .proc.sql, .udf.sql)
 
 SQL DDL statements executed via `RUNSQLSTM` produce SQL messages:
 
@@ -110,6 +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.
 
 ## Message files and binding directories (.msgf, .bnddir)
 

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

@@ -56,7 +56,7 @@ mypgm.pgm: mypgm.clp
 
 ### SQL procedure from .proc.sql
 
-Runs a SQL DDL script that creates a stored procedure. The resulting object appears as a program.
+Runs a SQL DDL script that creates a stored procedure. With the default `PROGRAM TYPE MAIN`, the resulting object is a program (`*PGM`).
 
 ```makefile
 getcount.pgm: getcount.proc.sql
@@ -64,6 +64,8 @@ getcount.pgm: getcount.proc.sql
 
 **CL command:** `RUNSQLSTM SRCSTMF('src/getcount.proc.sql') COMMIT(*NONE) DFTRDBCOL(LIB)`
 
+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.
+
 ### 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.
@@ -148,6 +150,22 @@ mysrvpgm.srvpgm: mymod.module mysrvpgm.exports dep.srvpgm
 
 This appends `BNDSRVPGM(DEP)` to the CRTSRVPGM command. `.bnddir` prerequisites (normal or order-only) append `BNDDIR(name)`.
 
+### SQL service programs from .proc.sql / .udf.sql
+
+A service program can also be created from SQL source via `RUNSQLSTM`, with no modules or export list:
+
+- **`.proc.sql` → `.srvpgm`** — `CREATE PROCEDURE ... LANGUAGE SQL PROGRAM TYPE SUB` is backed by a `*SRVPGM`.
+- **`.udf.sql` → `.srvpgm`** — `CREATE FUNCTION ... LANGUAGE SQL` (SQL UDF) is backed by a `*SRVPGM`.
+
+```makefile
+getcounts.srvpgm: getcounts.proc.sql employee.file   # PROGRAM TYPE SUB
+getname.srvpgm: getname.udf.sql employee.file         # SQL UDF
+```
+
+**CL command:** `RUNSQLSTM SRCSTMF('src/getcounts.proc.sql') COMMIT(*NONE) DFTRDBCOL(LIB)`
+
+codermake only runs the SQL statement; IBM i creates the `*SRVPGM` and derives its object name from the SQL routine. Name the routine (and its `SPECIFIC` name where applicable) to match the build target so the generated object name lines up with the rule.
+
 ### .exports / .bnd file format
 
 The exports file (using either `.exports` or `.bnd` extension) is a plain text file with the following structure:
@@ -215,6 +233,25 @@ report.file: report.prtf
 
 **CL command:** `CRTPRTF FILE(LIB/REPORT) SRCFILE(LIB/QDDSSRC)`
 
+### System/38 compatible DDS (.pf38, .lf38, .dspf38, .prtf38)
+
+System/38 compatible versions of `.pf`, `.lf`, `.dspf`, and `.prtf`. They build
+through dedicated recipes that qualify the compile command from `QSYS38`. The
+parameters currently match the base DDS recipes, but the commands are
+`QSYS38/CRTPF`, `QSYS38/CRTLF`, `QSYS38/CRTDSPF`, and `QSYS38/CRTPRTF`. The
+temporary source member's source type is derived from the file extension:
+`.pf38` → `PF38`, `.lf38` → `LF38`, `.dspf38` → `DSPF38`, `.prtf38` → `PRTF38`.
+Use these when a source member must retain its System/38 source type.
+
+```makefile
+custp38.file: custp38.pf38                 # QSYS38/CRTPF,   PF38 member
+custl38.file: custl38.lf38 custp38.file    # QSYS38/CRTLF,   LF38 member
+hello38.file: hello38.dspf38               # QSYS38/CRTDSPF, DSPF38 member
+rpt38.file: rpt38.prtf38                   # QSYS38/CRTPRTF, PRTF38 member
+```
+
+**CL commands:** `QSYS38/CRTPF` / `QSYS38/CRTLF` / `QSYS38/CRTDSPF` / `QSYS38/CRTPRTF`
+
 ### SQL table from .table.sql
 
 Creates a SQL table by running a DDL script.