Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

HI, Any body help me for some s

Status
Not open for further replies.

cobp

Programmer
Oct 19, 2001
30
0
0
DE
HI,

Any body help me for some sample obselte COBOL constructs. Any pointers to the syntax (only syntax is required) of the following consturctus or examples are greatly appreciated.


1. ISAM ITEMS

a. Apply CORE-INDEX

b. APPLY REORG CRITERIA

c. NOMINAL KEY

d. TRACK AREA

e. ORGANIZATION

2. BDAM-FIle constructs


a. APPLY RECORD-OVERVIEW

b. ACTUAL KEY

c. TRACK-LIMIT

d. ORGANIZATION.


Regards,
COBP
 
"Any pointers to the syntax (only syntax is required)"

COBP,

Where did you get all these "obselte COBOL constructs"?

And, most importantly, what do you really need to know?

Dimandja
 
Hi,

As I said earlier, this is only for the documentation of an existing static analysis tool. This tool is supposed to analyse many kind of code violations and reports many code violations or construct. Each of this standard is defined as a metric.

The problem is that the existing documentation is not inadequate and have no examples in some cases. So I was asked to do the user documentation for all of these metrics. In order to stick into a consistent format,
we provide examples (sample codes lines) of each consturct to be analysed for all metrics.

Now the problem is, I could not find documentation of any of those constructs mentioned above, but there is a chance that some of the customers still using old COBOL versions. So they still need some of these metrics(I am not sure).

Hope the intention is clear to you.

Thank you.
 
Hi!
We are using an old IBM VSE mainframe in our IT-dept. in Helsinki, Finland.
We use old DL/1 databases, sequential files and VSAM files.
Those BDAM, ISAM files sound very historical to me.
Suppose they were used before VSAM in IBM main frames. DB2 databases came after DL/1. Now it is used in PC, too.
I doubt if anyone uses those old file systems any more.
The same with real card readers and card punch.
I was using those gadgeds in 1976 when I studied Algol
and Cobol in university of Helsinki. My main frame experience starts from 1988. No BDAM and ISAM at that time.
Maybe in 1970's.

Possibly you can find the (nonsense) syntax in
Micro Focus Cobol (which is compatible with many IBM mainframe cobol) manuals or
in old IBM dos/vs cobol (IBM mainframe) manuals.
I have lost my own IBM manual but maybe can find one.
Micro Focus manuals tell the reserved words of some
different cobol dialects and also the syntax.

Problem: That cobol syntax may vary depending on the operating system of the IBM mainframe.
Who can say how many they are? Who knows them all?
Are IBM cobol the only cobol which you want to deal with?
IBM has at least dos/vs cobol (different versions of them)
OSVS cobol, COBOL II, LE Cobol, ...

Greetings,
Ari

 
Try Internet search engimes. I got the following off of one such searches:

Code:
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. computer-name.
OBJECT-COMPUTER. computer-name.
SPECIAL-NAMES. 
  special-names-entries.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT [OPTIONAL] file-name-1
        ASSIGN TO system-name [FOR MULTIPLE {REEL | UNIT}]
        [RESERVE {NO | integer} ALTERNATE {AREA | AREAS}]
        [{FILE LIMIT IS | FILE LIMITS ARE} {data-name-1 | literal-1}
            THRU {data-name-2 | literal-2}]
        [ACCESS MODE IS {SEQUENTIAL | RANDOM}]
        [PROCESSING MODE IS SEQUENTIAL]
        [ACTUAL KEY IS data-name]
        [NOMINAL KEY IS data-name]
        [RECORD KEY IS data-name]
        [TRACK-AREA IS [data-name | integer} CHARACTERS]
        [TRACK-LIMIT IS integer {TRACK | TRACKS}].
I-O-CONTROL.
    SAME [RECORD] AREA FOR file-name-1 file-name-2 ... file-name-n.
 
ISAM and BDAM (in this case) are IBM file structures, altho other computer manufacturers also had their versions of ISAM. They stand for Index-Sequential Access Method and Basic Direct Acess Method. (There is another kind of ISAM used on PC's). Support was no longer provided in the 1985 standard (COBOL II). If you can find a 1974 or 1968 standard manual, they may be there. As I recall, you may need the 1974 IBM Programmers' Guide for BDAM; it was already pretty obsolete even by then.

Stephen J Spiro
Wizard Systems
 
Organization is not obsolete for describing files.

Organization is Indexed

Organization is line sequential.

Etc. If you do not like my post feel free to point out your opinion or my errors.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top