Michael D. Hensley wrote:
>
> ...to which I would add: QueryCalc from AICS!  A top-notch product from a
> vendor with an excellent reputation, who contributes regularly to the HP3000
> community.  See http://www.aics-research.com/ for details.
>

There was a CASE tool we used called ARTESSA which generated COBOL
source code.

> And before you jump on the RPG bandwagon, you might want to look at the
> current price.  It isn't exactly free, and it has a *steep* learning curve.
> And the "code" is butt-ugly -- you can't read an RPG listing without a magic
> decoder ring (or template).

If you do get RPG, get RISE also. It's like Qedit with RPG Card Image
Templates.

And yes - RPG is damned butt ugly.

Imaginethe following QUERY code:
------------------------------------------
B=FMSO6.DATA
PASSWORD
5
FIND SOH-ENTRY-DATE > 990101
REPORT
D1,SO-ORD-NBR,30
D1,SO-ENTRY-DATE,39,E9
E9,"99/99/99"
S,SO-ORD-NBR
END
------------------------------------------
The equvalent RPG (more or less):
------------------------------------------
H               HP3000
FIMAGE    KIMAGE                      FMSO6
ISOH      IP  01                 SOH
I                                ORDNR   1  6
I                                ORDDT 218  4
C         MOVEL  ORDDT ORDDX      4
C         CALL   INEXT
C         PARM   ORDDX
C         PARM   3
C         PARM   ORDSST           10
C  ORDDST COMP   990104                   02 02
OPRTR  02       LP         132
O      02           ORDNR   30
O      02           ORDDST  44  'XX/XX/XX'
-----------------------------------------
Minus some fields I'm forgetting. What the program says is:
(Each Card is fixed-field).
Header Card - Environment is an HP3000
File Card - File Named IMAGE, Org IMAGE Filename FMSO6.
Input Card - Record named SOH Input Primary raises Indicator 01.
Input Card - Field ORDNR at pos 1 for length 6. (The absense of a number
in the column after the '6' is the sole indicator that this is a
string).
Input Card - Field ORDDT at position 216 is a short real but RPG doesn't
recognize this. So we define it as String length 4.
Calc Card. Move LeftToRight (RPG Default is Right to Left) to another
string to manipulate.
Calc Cards - Call Intrinsic INEXT to convert the real number to a
string.
Calc Card - Compare the string to 990104. Raise Indicator 02 for Equal
or Greater.
Output Card - File PRTR goes to Device LP record length 132. Indicator
02 determines if record gets Output.
Outpur Card - If Indicator 02 is on, Place ORDNR at position ENDING at
30.
Output Card - If Indicator 02 is on, Place ORDDST at position ENDING at
44 using Display Picure 'XX/XX/XX'.

The program loops, raising Indicator 01 for every cycle. At the end of
the cycle, all Indicators are turned off.

To Break on Value Change, use Indicators L1 thru L9 on the Input field.
Last Record indicator is LR.

 - See what I mean damned butt ugly?