1. Can it be Done ?
-------------- Snap Shot of AppGen Developemnt
master Screen ------------
AG000000 APPGEN Business Software
APPGEN Development System
| Menu Screens | Entry
Screens | Reports | Postings | User Manuals | Utilities |
+------------------------+
| Select Parameter
File |
| Header
Record |
| Pull Down Menus |
| Function Keys |
| Print Parameter File |
+------------------------+
Please enter desired selection:
F1=End F2=Help F3=Print Screen
F4=Quick Menu
---------- Snap SHot of Appgen Pull Down Menu Setup
---------------------------
AG090320-[1] APPGEN Business Software
Pull Down Menu Parameters - Change
| * 1.Key pos
|
| 2.Number of Lines 12
|
| Line Prompt Program Pdef/PD Menu H
PW C |
OE071300 N 0 C |
| 3 Sales Edit List Selectem
OE071100 N 0 C |
| 4 Reprint POS Invoices
Selectem OE100700 N 0 C |
| 5 Daily X Out Readings
Selectem OE500100 N 0 C |
| 6 Daily POS Trans
List Selectem OE500200 N 0 C |
| 7 Historical
POS Menu poshist N 0 C |
| 8 Journal
and Post POS Sales Only Selectem OE100207 N 0 C |
|
|
|
|
|
|
|
|
|
|
Change prompt (2 - 2), A)ll, F)ill, DR)delete record
F1=End F2=Quick Help F3=Print Screen
F4=Quick Menu
-- Snap Shot of Appgen Data Entry Screen with a DETAIL
Prompt Info ------------
OE071000 APPGEN Screen Painter
Point OF Sales Entry - Screen 1
|* 1.Type x * 2.Doc# xxxxxxxxxx 3.Date MM/DD/YY 4.Salesman
xxxxxxxxxxxxxx
|
| 5.Cust: xxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx Ship Weight:
999999999999
|
|Line Item Code Tax Qty Unit Price
Extension
|
| xxx +--------------------------------------------------------+
|
| xxx | Prompt Number: 26 Prompt ID: 27
| |
| | User Prompt : AR Charge Amt:
| |
| |--------------------------------------------------------|
|
| | Format : n8,212 Attr.#: 175
| |
| | Max. : 9999999999 Value
: 0 | |
| | Min. : -9999999999
Sep : | |
| | DictName:
Type : S | 999999999 |
|-------- | Required:
N Exec : 54.0 | ----------|
| Subtota |
Screen #: 1 | 999999999 |
|--------
| 26.AR Charge Amt: 999999999999 28.Credit Card :
999999999999
|
| 27.Cash Amount : 999999999999 29.Check Amt :
999999999999
|
| Balance Remaining: 999999999999 <======> Change Due :
9999999999
|
CHANGE ENTRY
18/24
F1=End F2=Quick Help F3=Print Screen
F4=Quick Menu
-- Snap Shot of the ABOVE Prompt in it's extended Format
----------------------
AG020500-[2] APPGEN Business Software
Prompt Records - Change
|* 1.Prompt Id 27
|
| 2.Execute # 54.0 4.User Prompt AR Charge Amt:
|
| 3.Prompt # 26 5.Dictionary Name
|
| 6.Type S
|
| 7.Attr 175 12.Format n8,212 17.Screen
# 1 |
| 8.Value 0 13.Maximum 9999999999
18.Prompt R/C 18/1 |
| 9.Sep 14.Minimum -9999999999
19.Video Attr 1 |
| 10.Req N 15.Recalculate
20.Entry R/C 18/22 |
| 11.Store Y 16.Display
Dots Y 21.Video Attr 0 |
|Line FT Exec Function
|
| 1 BF 2.0 [* ST(N); *]
|
| 2 BF 4.0 FL("F6=Coupon Entry",7);
|
| 3 BF 6.0 FK(6,"^O5");
|
| 4 BF 8.0 if((A(1,4)="1")|(A(1,4)="2")
|
| 5 BF 10.0 then
|
| 6 BF 12.0 {
|
| 7 BF 14.0
Y |
Change prompt (2 - 21), A)ll, F)ill, DR)delete record
F5=Files F6=Help/Table F7=Verify F8=File Layout F9=Quick Prg F10=Lookup
F11=Xref
-- Snap Shot of a SELECTION Screen
OE180000 APPGEN Screen Painter Sales Order/Invoice Register
- Selectem
+------------------------------------------------+
| 1.Beginning Document Number xxxxxxxxxx
|
|
|
| 2.Ending Document Number
xxxxxxxxxx |
|------------------------------------------------|
| 3.Beginning Date MM/DD/YY
|
|
|
| 4.Ending Date
MM/DD/YY |
+------------------------------------------------+
ENTRY
7/57
F1=End F2=Help F3=Save F4=Pdef F5=Add F6=Change F7=Delete
F8=Move F9=Redraw
-- Snap Shot of the Detail Prompt info of the
above FIRST Prompt --------------
OE180000 APPGEN Screen Painter
Sales Order/Invoice Register - Selectem
+------------------------------------------------+
| 1.Beginning Document Number xxxxxxxxxx
|
| Prompt Number: 1 Selectem ID:
1 |
| User Prompt : Beginning Document Number
|
| Format : A Dictionary Name : DOC
|
| Max. : 10 Logical Operator : GE
|
| Min. : 0 Logical Connector:
AND |
| Required: Y
|
| Default : "ALL"
|
CHANGE ENTRY 7/57
F1=End
F2=Quick Help F3=Print Screen F4=Quick Menu
---------- Snap Shot of a SINGLE posting step item in a POST routine
----------
AG050500-[1] APPGEN Business Software Posting
Records - Change
|* 1.Posting Record ID 7
|
| 2.Execute Number 14.0
|
| 3.Post to File Number 2 IV-STATUS
|
| 4.Post to Attr Number 6 Weighted Avg
Cost |
| 5.Post to Sub-Value 0
|
| 6.Should Be On File
|
|LINE FT Exec Function
|
| 1 BF 2.0 if((G(A(1,0),"*")<>"O")|(A(14,3)="A")|(A(1,80,V)>"*")
|
| 2 BF 4.0 then
|
| 3 BF 6.0 {
|
| 4 BF 8.0 Y
|
| Line Technical Notes & Documentation
|
| 1 re calculated avg cost for LIFO/FIFO basis
|
| 2 AF: recalc line item extended cost A(1,77,V)
|
|
|
|
|
Functions - B)efore, K)ey, R)eplace, A)fter, M)erge, P)rint
F3=Print Screen F4=Quick Menu F5=Data Files
F6=File Layout
Content-Type: multipart/mixed;
boundary="------------060201070902050603070405"
This is a multi-part message in MIME format.
--------------060201070902050603070405
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Hello,
Allow me to introduce myself and my problem, since I am new to the group.
I also wish to apologize in advance, for a the length of this post.
My Name is Ben Duncan, and I am a consultant in Jackson, MS. I have
close to
30 years experience in the IT world, and I mainly to Business
applications,
solutions, and networks.
My language experience consists of ASM, Cobol, Fortran, SQL,
Progress, AppGen,
Mantis, Informix 4GL, Python, FoxPRO, C (by no means a C Guru), and a
host of other
that close to 30 years in the business exposes you to. I also have
experience
with all sorts of relational database's and their administration. I
also for a
brief period (mid 1990's), designed, installed, configured, setup,
and created
the infrastructure for Investors'/Companies wishing to get
into the ISP market.
For the last 13 years, My Accounting/Business customers have all been
using a
product called AppGen, which is a PICK based - Cradle to Grave -
Development/Data Processing/Data management, Accounting environment.
This brings me to my current dilemma, and Robert Craig
suggested I ask/approach the Euphoria Group.
As of October 1'st, Appgen closed it's doors leaving a few hundred
VAR's and
MORE than a few thousand end-users stranded. Another company is looking
to purchase the "AppGen" source, but not the company, and are building a
business plan based upon holding a "GUN" to the head of all the
active VAR's.
They want everyone that wants to remain an active VAR sign up for a
"unlimited"
distribution license for "ONLY" $900 per month. This fee will increase
over a 5 year period to top out at somewhere between $3000-$5000 per
month. If
you do not wish to sign up for this license, you will have to be a
"sub-Var" of
those who have chosen to sign up for this program, and will be have to
pay whatever
fee's/license these "Master Vars" want to charge.
They intend to, after the "source" purchase, spin off this endeavor
and do an
"IPO" of this new company. This company that is wishing to purchase the
AppGen Source, themselves are in deep financial difficulty.
I am looking at using Euphoria as a possible solution to write/create
or modify
Euphoria itself to re-create the Appgen environment.
As I stated earlier, Appgen was/is a cradle to grave environment,
using the
MULTI VALUE PICK database files to store both Data Files, and "Program
Definition Files" (what they call PDEF) as well as Data Dictionaries,
terminal definition files, Function Key(s) mapping, and
"Applications Control" masters.
The Runtime engine consists of some wrapper programs and
5 basic modules:
Menu - Displays a Cascading style menu
Maint - Module that handles the
interaction
upon screen's.
Selectem/Sortem - Modules that builds the "AQL" (aka SQL)
interaction
prompts.
Printem - Module that produces reports.
Postem - Module that Posts records from
the "Primary file"
to various files.
The development environment is nothing more than an application
environment itself
with a "WYSIWYG" screen painter/report painter/Selection Screen
painter. It also
has some utilities to create/modify/maintain Data Dictionaries, the
"Application
Definitions "Function key definitions, terminal control file, and
other various and sundry
control and environment controls.
The runtime takes care of opening, closing, reading/writing of files,
as well as
prompting for where report output is to go to. The FIRST file in the
FILE list is always
the Primary file that is being acted upon. IT also has a "script" like
function language
that can be used to extend the basic "PDEF" items, as well as some
more sophisticated
"function"
items. There is no hard coded "control" codes for the screen or print
PDEF's. The Wrapper
programs take care of determining of it is going to a "Terminal" or a
"GUI" interface
and format accordingly.
I have attached some text snapshots of some of the various development
screens. These
will give and idea of what kind of information is captured/entered.
AppGen has a pretty comprehensive C API, and I have been able to
successfully write
an extract program to put a screen PDEF out to a text file - albeit I
skipped doing some
of the more advance embedded functions, since this was a test to see
if I could
extract the "Definitions".
Now given ALL this preliminary information, my question to this group is:
Can this be feasible using Euphoria, in some form of fashion, to re-create
the Appgen environment? I would like to store the "PDEF"'s in a XML
format, create a "WYSIWYG" development tool kit and some sort of
runtime engine.
I can write a VERY detailed functional description of ALL that AppGen
does,
how it does it, a description of the all the "Function" codes, and
information
on the more "Advanced" functionality parameters.
Again, I apologize for SUCH a long post, but I am hoping to come up with a
solution to a lot of peoples problems.
Thanks ...
--
Ben Duncan Phone (601)-355-2574 Fax (601)-355-2573 Cell
(601)-946-1220
Business Network Solutions
336 Elton Road Jackson MS, 39212
"Software is like Sex, it is better when it's free" - Linus Torvalds
--------------060201070902050603070405
Content-Type: text/plain;
name="snaps.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="snaps.txt"
-------------- Snap Shot of AppGen Developemnt master Screen ------------
AG000000 APPGEN Business Software APPGEN
Development System
| Menu Screens | Entry Screens | Reports | Postings | User Manuals |
Utilities |
+------------------------+
| Select Parameter File |
| Header Record |
| Pull Down Menus |
| Function Keys |
| Print Parameter File |
+------------------------+
Please enter desired selection:
F1=End F2=Help F3=Print Screen
F4=Quick Menu
---------- Snap SHot of Appgen Pull Down Menu Setup
---------------------------
AG090320-[1] APPGEN Business Software Pull Down Menu Parameters
- Change
+------------------------------------------------------------------------------+
| * 1.Key pos
|
|------------------------------------------------------------------------------|
| 2.Number of Lines 12
|
|------------------------------------------------------------------------------|
| Line Prompt Program Pdef/PD Menu
H PW C |
| ---- ---------------------------------- -------------- ------------
- -- - |
| 1 Point OF Sale Maint.ACD OE071000
N 0 C |
| 2 Void Sale Record Maint.ACD OE071300
N 0 C |
| 3 Sales Edit List Selectem OE071100
N 0 C |
| 4 Reprint POS Invoices Selectem OE100700
N 0 C |
| 5 Daily X Out Readings Selectem OE500100
N 0 C |
| 6 Daily POS Trans List Selectem OE500200
N 0 C |
| 7 Historical POS Menu poshist
N 0 C |
| 8 Journal and Post POS Sales Only Selectem OE100207
N 0 C |
|
|
|
|
|
|
|
|
|
|
+------------------------------------------------------------------------------+
Change prompt (2 - 2), A)ll, F)ill, DR)delete record
F1=End F2=Quick Help F3=Print Screen
F4=Quick Menu
-- Snap Shot of Appgen Data Entry Screen with a DETAIL Prompt Info
------------
OE071000 APPGEN Screen Painter Point OF Sales Entry
- Screen 1
+------------------------------------------------------------------------------+
|* 1.Type x * 2.Doc# xxxxxxxxxx 3.Date MM/DD/YY 4.Salesman
xxxxxxxxxxxxxx |
|------------------------------------------------------------------------------|
| 5.Cust: xxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx Ship Weight:
999999999999 |
|------------------------------------------------------------------------------|
|Line Item Code Tax Qty Unit Price
Extension |
| xxx +--------------------------------------------------------+
|
| xxx | Prompt Number: 26 Prompt ID: 27 |
|
| | User Prompt : AR Charge Amt: |
|
| |--------------------------------------------------------|
|
| | Format : n8,212 Attr.#: 175 |
|
| | Max. : 9999999999 Value : 0 |
|
| | Min. : -9999999999 Sep : |
|
| | DictName: Type : S |
999999999 |
|-------- | Required: N Exec : 54.0 |
----------|
| Subtota | Screen #: 1 |
999999999 |
|-------- +-------------------------------------Prompt Entry Change+
----------|
| 26.AR Charge Amt: 999999999999 28.Credit Card :
999999999999 |
| 27.Cash Amount : 999999999999 29.Check Amt :
999999999999 |
| Balance Remaining: 999999999999 <======> Change Due :
9999999999 |
+------------------------------------------------------------------------------+
CHANGE ENTRY
18/24
F1=End F2=Quick Help F3=Print Screen
F4=Quick Menu
-- Snap Shot of the ABOVE Prompt in it's extended Format
----------------------
AG020500-[2] APPGEN Business Software Prompt Records
- Change
+------------------------------------------------------------------------------+
|* 1.Prompt Id 27
|
| 2.Execute # 54.0 4.User Prompt AR Charge Amt:
|
| 3.Prompt # 26 5.Dictionary Name
|
|------------------------------------------------------------------------------|
| 6.Type S
|
| 7.Attr 175 12.Format n8,212 17.Screen #
1 |
| 8.Value 0 13.Maximum 9999999999 18.Prompt R/C
18/1 |
| 9.Sep 14.Minimum -9999999999 19.Video Attr
1 |
| 10.Req N 15.Recalculate 20.Entry R/C
18/22 |
| 11.Store Y 16.Display Dots Y 21.Video Attr
0 |
|------------------------------------------------------------------------------|
|Line FT Exec Function
|
| 1 BF 2.0 [* ST(N); *]
|
| 2 BF 4.0 FL("F6=Coupon Entry",7);
|
| 3 BF 6.0 FK(6,"^O5");
|
| 4 BF 8.0 if((A(1,4)="1")|(A(1,4)="2")
|
| 5 BF 10.0 then
|
| 6 BF 12.0 {
|
| 7 BF 14.0 Y
|
+------------------------------------------------------------------------------+
Change prompt (2 - 21), A)ll, F)ill, DR)delete record
F5=Files F6=Help/Table F7=Verify F8=File Layout F9=Quick Prg
F10=Lookup F11=Xref
-- Snap Shot of a SELECTION Screen
--------------------------------------------
OE180000 APPGEN Screen Painter Sales Order/Invoice Register
- Selectem
+------------------------------------------------+
| 1.Beginning Document Number xxxxxxxxxx |
| |
| 2.Ending Document Number xxxxxxxxxx |
|------------------------------------------------|
| 3.Beginning Date MM/DD/YY |
| |
| 4.Ending Date MM/DD/YY |
+------------------------------------------------+
ENTRY
7/57
F1=End F2=Help F3=Save F4=Pdef F5=Add F6=Change F7=Delete F8=Move
F9=Redraw
-- Snap Shot of the Detail Prompt info of the above FIRST Prompt
--------------
OE180000 APPGEN Screen Painter Sales Order/Invoice Register
- Selectem
+------------------------------------------------+
| 1.Beginning Document Number xxxxxxxxxx |
+--------------------------------------------------------------------+
| Prompt Number: 1 Selectem ID:
1 |
| User Prompt : Beginning Document Number
|
|--------------------------------------------------------------------|
| Format : A Dictionary Name : DOC
|
| Max. : 10 Logical Operator : GE
|
| Min. : 0 Logical Connector: AND
|
| Required: Y
|
| Default : "ALL"
|
+----------------------------------------------Selection Entry
Change+
CHANGE ENTRY
7/57
F1=End F2=Quick Help F3=Print Screen
F4=Quick Menu
---------- Snap Shot of a SINGLE posting step item in a POST routine
----------
AG050500-[1] APPGEN Business Software Posting Records
- Change
+------------------------------------------------------------------------------+
|* 1.Posting Record ID 7
|
| 2.Execute Number 14.0
|
| 3.Post to File Number 2 IV-STATUS
|
| 4.Post to Attr Number 6 Weighted Avg Cost
|
| 5.Post to Sub-Value 0
|
| 6.Should Be On File
|
|------------------------------------------------------------------------------|
|LINE FT Exec Function
|
| 1 BF 2.0 if((G(A(1,0),"*")<>"O")|(A(14,3)="A")|(A(1,80,V)>"*")
|
| 2 BF 4.0 then
|
| 3 BF 6.0 {
|
| 4 BF 8.0 Y
|
|------------------------------------------------------------------------------|
| Line Technical Notes & Documentation
|
| 1 re calculated avg cost for LIFO/FIFO basis
|
| 2 AF: recalc line item extended cost A(1,77,V)
|
|
|
|
|
+------------------------------------------------------------------------------+
Functions - B)efore, K)ey, R)eplace, A)fter, M)erge, P)rint
F3=Print Screen F4=Quick Menu F5=Data Files
F6=File Layout
------------------------------------- END OF SNAP SHOTS
-----------------------
--------------060201070902050603070405--
2. Re: Can it be Done ?
ALL the "screen shots" came out as plain text. Do you have a web page
showing the screens?
Kat
3. Re: Can it be Done ?
No, But I can create some jpg's and send to those interested ...
Kat wrote:
>
>
> ALL the "screen shots" came out as plain text. Do you have a web page
> showing the screens?
>
> Kat
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
> .
>
--
Ben Duncan Phone (601)-355-2574 Fax (601)-355-2573 Cell (601)-946-1220
Business Network Solutions
336 Elton Road Jackson MS, 39212
"Software is like Sex, it is better when it's free" - Linus Torvalds
4. Re: Can it be Done ?
On Tue, 09 Dec 2003 14:26:59 -0600, Ben Duncan <bns at meta3.net> wrote:
>No, But I can create some jpg's and send to those interested ...
OK, I couldn't make anything thing out on that text post.
Mail 'em direct,
Pete
http://palacebuilders.pwp.blueyonder.co.uk/euphoria.html
