RE: RE: Dba tools on NT

From: Jacques Kilchoer <Jacques.Kilchoer_at_quest.com>
Date: Wed, 14 Aug 2002 15:13:36 -0800
Message-ID: <F001.004B557D.20020814151336@fatcity.com>

> -----Original Message-----
> From: Jared.Still_at_radisys.com [mailto:Jared.Still_at_radisys.com]
>
> How many of those "non-cryptic" languages can dump a table
> to a CSV file in 2 lines of (readable ) code?
>
> while ( my $ary = $sth->fetchrow_arrayref ) {
> print q{"} . join(q{","},@{$ary}) . qq{"\n};

"Readable" code?
Now take COBOL, that was readable code!
e.g. (from memory - excuse any errors)
IDENTIFICATION DIVISION.
PROGRAM-ID. DUMP_VALUES.
AUTHOR. MOI. ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MYDATAFILE ASSIGN TO "SOMEFILE.DAT"                 ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION.
FILE SECTION.
FD MYDATAFILE.
01 MYCOLS.
   05 ID PIC 9(7).
   05 NAME.

       10 FIRST_NAME   PIC X(20).
       10 LAST_NAME    PIC X(20).
 

PROCEDURE DIVISION.
BEGIN.
   OPEN INPUT MYDATAFILE.
   READ MYDATAFILE
      AT END MOVE HIGH-VALUES TO MYCOLS
   END-READ.
   PERFORM UNTIL MYCOLS = HIGH-VALUES

      DISPLAY
         ID SPACE FIRSTNAME SPACE LASTNAME
      END-DISPLAY
      READ MYDATAFILE
         AT END MOVE HIGH-VALUES TO MYCOLS
      END-READ

   END-PERFORM.
   CLOSE MYDATAFILE.
   STOP RUN.

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: Jacques Kilchoer
  INET: Jacques.Kilchoer_at_quest.com

Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
San Diego, California        -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).

Received on Wed Aug 14 2002 - 18:13:36 CDT