diff --git a/README.md b/README.md index 89f5cfb..8fffc1c 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,7 @@ # AS400_RPG_Examples -Code examples related to the AS400/RPG programming language. \ No newline at end of file +The example in here is an interactive report program written in the (long dead) AS400/RPG programming language. + +It was used by the planning department in a textile mill to run what-if manufacturing scenarios. The user input SKUs and requested quantities to weave and received a report back detailing pounds of yarn required vs on-hand quantities and weeks to weave figures. + +RPG is of course no longer relevant in today's world; but, it is something I taught myself after being offered a job that required it and I am proud of this particular program as it takes advantage of some of the languages more advanced techniques (Multiple-occurrence data structures, free format code blocks, etc.) \ No newline at end of file diff --git a/rpgle_example.rpg b/rpgle_example.rpg index ccbd0a4..e9ad9e1 100644 --- a/rpgle_example.rpg +++ b/rpgle_example.rpg @@ -1,5 +1,5 @@ F********************************************************************************************** - F* AUTHOR: Wes Ray + F* AUTHOR: Wes R. F* F* This program is called by __________ when the user presses F10 to run the report. The input F* file BATCH is a physical file in QTEMP that is created/cleared each time __________ is run.