Re: Alternative COBOL "telco" source program

From: Robert Wagner (robert.deletethis_at_wagner.net)
Date: 05/29/04

  • Next message: Harley: "Re: COMP and COMP-3 fields" 
    Date: Sat, 29 May 2004 10:52:40 GMT

    lruss@superlink.net (L Russ) wrote:

    >Here's my version using C++, no loop. Another FORTRAN CAN'T. Big
    >deal.

    Here's a three-line Cobol version:

    inspect c tallying i for charcters before first ' ' <* two spaces
    perform varying i from i by -1 until c(i:1) = ' '.
    display c(1:i) x'0d0a' c(i+1)

  • Next message: Harley: "Re: COMP and COMP-3 fields"