I like the code comparison and look forward to other similar
examples in other languages.  If I could remember my apl I'd tell
you the one command that would do all of this and mash a cup of
tea at the same time.

Presumably there must be some inverse correlation between
characters typed and the cost of the various languages.



Date sent:              Wed, 7 Jun 2000 09:06:20 -0400
Send reply to:          "COLE,GLENN (Non-HP-SantaClara,ex2)" <[log in to unmask]>
From:                   "Pickering, John (NORBORD)" <[log in to unmask]>
Subject:                Re: [HP3000-L] COBOL and justifying
To:                     [log in to unmask]

> <long explanation of Cobol's string capabilities :-( snipped>
>
> Thanks Glenn. You've provided a great reminder of why I'm still impressed
> with PowerHouse.
>
> define d-last-four char*4 &
>   = my-string of my-file &
>  if 4 ge size(tru(my-string of my-file)) &
> els my-string of my-file &
>     [size(tru(my-string of my-file))-3:4]
>
> Now I'd better set my 3000-l options to nomail before the flood of abuse
> from Cobol supporters starts :-)
>
> Regards,
> JWP


Regards,

Ewart North,
Finance Office
University of Birmingham,
Edgbaston, Birmingham B15  2TT
Tel:    0121 414 7099
Fax:    0121 414 7979
email:  [log in to unmask]