Re: cobol/400

[MichaelQuigley@xxxxxxxxxx]

Kiran,

Perhaps we aren't understanding your question.  As Robert replied, you can 
simply "Change your COBOL program type to SQLCBLLE" and it would compile. 
I would definitely try that first.  Trying this will tell you if you've 
got the SQL-enabled compilers.

However if you don't have the SQL DevKit (Structured Query Language 
Development Kit), you will need to convert it to "native database access" 
instead of SQL.  To do that efficiently would require more details for the 
file "DB FILE"--i.e., what is the actual file name, is there a key field 
which can be used to access the data, what are the names of "FIELD 1" and 
"FIELD 2"?

The basic would be to add:

A SELECT statement in the ENVIRONMENT DIVISION under the INPUT-OUTPUT 
SECTION and the FILE CONTROL paragraph.
An FD entry for the file in the DATA DIVISION under the FILE SECTION.
And in the PROCEDURE DIVISION:
an OPEN statement for the file,
possibly a START statement,
a READ statement,
a PERFORM statement or two.

e.g.:

Environment Division.
Input-output section.
file control.
    select Db-file    assign       DBFILENAME
                      organization sequential
                      access       sequential.

Data Division.
File section.
fd  Db-file.
01  Db-record.
copy dd-all-formats of DBFILENAME.

Working-storage section.
01  Ws-count           pic s999  packed-decimal.
01  Ws-var1            pic xxx.
01  Ws-var2            pic xxxx.

01  Control-flags.
    05  EOF-flag       pic 9.
        88  Not-eof            value 0.
        88  Eof                value 1.

Procedure Division.
Paragraph-name.
    open input Db-file

    set Not-eof to true
    perform
            until Eof
        read Db-file
                at end
                    set Eof to true
                not at end
                    set Not-eof to true
        end-read
        if  Not-eof 
        and Dbfield1 = Ws-var1
        and Dbfield2 = Ws-var2
            add 1 to Ws-count
        end-if
    end-perform

    goback
. 

If you've got some useful key fields, a START would be helpful.  Then you 
would specify ORGANIZATION INDEXED instead of ORGANIZATION SEQUENTIAL and 
add RECORD KEY EXTERNALLY-DESCRIBED-KEY after ACCESS SEQUENTIAL.

Michael Quigley
Computer Services
The Way International
www.TheWay.org

cobol400-l-bounces@xxxxxxxxxxxx wrote on 06/22/2008 01:00:05 PM:

> ----- Message from "kiran eepi" <kiran.eepi@xxxxxxxxx> on Sun, 22 
> Jun 2008 15:17:01 +0530 -----
>
> To:
>
> cobol400-l@xxxxxxxxxxxx
>
> Subject:
>
> [COBOL400-L] cobol/400
>
> Hi,
> I just given below coding is in SQL and i need to change this coding 
into
> cobol/400,
> Can anyone post what's the solution?
>
> EXEC SQL
>             SELECT COUNT(*) INTO : WS-COUNT FROM DB FILE
>     WHERE
> FIELD 1 = : WS-VAR 1
>                   AND       FIELD 2 = : WS-VAR 2
> END-EXEC