ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix Typos

Browse Source
This commit is contained in:
SJLennon
2021-04-20 12:35:53 -04:00
parent f42995b70b
commit 33d25c1dec
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BASE36/README.MD
+11 -6
View File
@@ -1,8 +1,10 @@
# BASE36 - Add 1 to an Alpha-Numeric String in RPGLE
This is a service program that adds 1 to an alpha-numeric string. The string can be any (sensible) length but is currently set at a arbitrary max of 50 characters.
This is a service program that adds 1 to an alpha-numeric string. The string can be any (sensible) length but is currently set at an arbitrary max of 50 characters.
The code was originally developed to help out when a numeric key (kept in a character field) was about to hit the maximum, and the company did not want to re-structure their database. I had developed a solution back in RPG III days so converting it to RPGIV was a trivial task. (See [midrange.com](https://archive.midrange.com/midrange-l/201506/msg00533.html) for the the thread the the other suggested solutions.)
The code was originally developed to help out when a numeric key (kept in a character field) was about to hit the maximum, and the company did not want to re-structure their database. Instead, they want to use A-Z in the number, so that incrementing 899999 would give 9AAAAA. (See [midrange.com](https://archive.midrange.com/midrange-l/201506/msg00533.html) for the thread the the other suggested solutions.)
I had developed a solution back in RPG III days so converting it to RPGIV was a trivial task.
Another potential use might be incrementing a unique alpha numeric part number.
@@ -10,11 +12,11 @@ The code is quite short and can be easily modified to change the maximum length.
It is currently set to use a BASE36 character set (A-Z and 0-9) and the raw EBCDIC code sorting sequence, where numbers are higher than characters. Changing either the character set of the sorting sequence simply requires changing two constants.
I've been experimenting with **free** [Visual Studio Code](https://code.visualstudio.com/) and the [Code for IBM i](https://halcyon-tech.github.io/code-for-ibmi/#/) extension to VS Code, so using that I tidied up the code, made it into a service program, made it more flexible and wrote some testing code. Lots of fun and a good learning experience using the new, totally free, D-specs...
I've been experimenting with the **free** [Visual Studio Code](https://code.visualstudio.com/) and the [Code for IBM i](https://halcyon-tech.github.io/code-for-ibmi/#/) extension to VS Code, so using that I tidied up the code, made it into a service program, made it more flexible and wrote some testing code. Lots of fun and a good learning experience using the new, totally free, D-specs...
**Note:** This is *not* a BASE36 math package. I covers just the case of adding 1 to a string.
**Note:** This is *not* a BASE36 math package. It covers just the case of adding 1 to a string.
## SRV-BASE36
## SRV_BASE36
This is the service program. It contains the BASE36ADD procedure. You call it with a value and it returns the value + 1.
A typical call might be:
@@ -29,7 +31,7 @@ This is the prototype for the BASE36ADD procedure.
## BTBR
A batch program that exercises BASE36ADD. You call it with a starting and ending value and it writes the results to file BTB. A typical call might be like this:
A batch program that exercises BASE36ADD. You call it with a starting and ending value and it writes the results to **file BTB**. A typical call might be like this:
`CALL PGM(BTBR) PARM('988' '992')`
@@ -38,6 +40,9 @@ This program drops (deletes), creates and writes to the file using SQL. I wanted
BTIR/BTID
A program to explore BASE36ADD interactively. You enter a starting value and each successive enter adds to a rolling display of values. Like this:
![BTIR_1](Images/BTIR_1.png)
Or this, with a longer value:
![BTIR_2](Images/BTIR_2.png)