Source on IFS & Local Development

2024-04-10 16:16:48 -04:00
parent 57c4efd0aa
commit a2d8f9c33c
83 changed files with 5807 additions and 4011 deletions
@@ -0,0 +1,9 @@
+/* Convenience pgm that creates CUSTNEXT data area in *CUURLIB */
+/* This is a really high number that I don't expect in test data */
+/* Strictly it should be set to CUSTMAST COUNT(*) + 1            */
+             PGM
+             DLTDTAARA  DTAARA(CUSTNEXT) 
+             MONMSG     MSGID(CPF0000)
+             CRTDTAARA  DTAARA(CUSTNEXT) TYPE(*CHAR) LEN(4) +
+                          VALUE('EEEE') TEXT('Next alpha-numeric customer number')
+             ENDPGM