RE: reading source code

yes, it's quite easy... just treat the file QCBLSRC like you would any other
file. To point at the correct member in the file, you would need to use a
file override either executed from within your COBOL program or from a
preceding CL...

Here's a simple COBOL example:
===================================================================
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

    SELECT         F-FILE
    ASSIGN         DATABASE-QCBLSRC
    ORGANIZATION   SEQUENTIAL
    ACCESS         SEQUENTIAL.

DATA DIVISION.
FILE SECTION.

FD  F-FILE
    LABEL RECORDS ARE STANDARD.

01  F-REC-IO.
     COPY DDS-ALL-FORMATS-I     OF QCBLSRC.
WORKING-STORAGE SECTION.
01  SWITCHES.
    05  S-EOF-IND                     PIC  X(01) VALUE "N".
        88  S-EOF                                VALUE "Y".

PROCEDURE DIVISION.
S0000-I-M-F SECTION.

INITIALIZATION.
    OPEN INPUT  F-FILE.

MAINLINE.
    PERFORM UNTIL S-EOF
       READ F-FILE NEXT RECORD
         AT END
           GO TO FINALIZATION
       END-READ
       DISPLAY SRCSEQ, SRCDAT, SRCDTA
    END-PERFORM.
FINALIZATION.
    CLOSE  F-FILE.
    GOBACK.
=================================================
Without an active override, the first member in QCBLSRC will be read... hope
this is helpful...


-----Original Message-----
From: Kelly Cookson [mailto:kc62301@yahoo.com]
Sent: Thursday, March 21, 2002 7:35 AM
To: cobol400-l@midrange.com
Subject: reading source code


Hi.

I would like to try my hand at developing some
programs to analyze COBOL-400 source code. We store
the source code for each COBOL program as a member in
a source physical file.

What would be the best way for me to access the source
code for analysis?  Is there any way to READ a member
in a source physical file?  Is there any way to save a
member as a data physical file (e.g., a flat file with
one line of source code being one record)?

I'd appreciate any ideas.

Thanks,

Kelly Cookson




__________________________________________________
Do You Yahoo!?
Yahoo! Movies - coverage of the 74th Academy Awards®
http://movies.yahoo.com/
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.