HDTenEightyP/NetNews huggingface dataset:
From: dlittle@sscvx1.ssc.gov (DENNIS LITTLE)
Subject: Re: HELP !!! COBOL INDEXES
News-Software: VAX/VMS VNEWS 1.4-b1  
Organization: Superconducting Super Collider Laboratory
Date: Tue, 15 Dec 1992 14:52:00 GMT

In article <1992Dec14.162040.1@urc.tue.nl>, rcrolf@urc.tue.nl                      writes...
>Hi,
> 
>I don't have much experience with COBOL but I have do to a small
>COBOL job.
>I'm working with the VAX/VMS Cobol compiler.
> 
>My problem is the following :
> 
>[File section]
> 
>01 TESTRECORD.
>   05 KEY-FIELD-1    PIC X(10).
>   05 KEY-FIELD-2    PIC X(5).
>   05 KEY-FIELD-3    PIC 99.
>01 DATA-FIELDS.
>   05 ......
>   05 ......
> 
>I want to create two INDEXES :
>   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
>   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2
> 
>HOW CAN I ACHIEVE THIS ?????????????????????????????????
> 
>ANY HELP WILL BE VERY APPRECIATED (I'M STUCK AT THE MOMENT !!)
> 
>Please mail suggestions and/or solutions to my EMAIL-address
>(as listed below) 'cause I'm not a subscriber of this list.
> 
>Thanks in advance,
> 
> 
>Rolf.
> 
>-------------------------------------------------------------------------
>    #####     #####    -+- Rolf van Gelder -+-
>   #   #     #        Computer Center -+- Technical University EINDHOVEN
>  #####     # ###    Home address :
> # #   # # #   #    Binnenwiertzstraat 27     5615 HG  EINDHOVEN HOLLAND
>#   #  #  #####    Internet: rcrolf@urc.tue.nl    Bitnet: rcrolf@heitue5
>-------------------------------------------------------------------------

Check on the word "Alternate Index" in your manual and see if that's what
you're looking for.  It sounds as though that will solve your problem.

me
Newsgroups: alt.cobol
Subject: Re: cobol is *NOT* crap
From: valdez_a@kosmos.wcc.govt.nz
Date: 12 Dec 92 15:24:54 NZST
Organization: Welligton City Council, Public Access.
NNTP-Posting-Host: kosmos.wcc.govt.nz

In article <1992Dec10.193752.2796@digi.lonestar.org>, mharriso@digi.lonestar.org (Mark Harrison) writes:
> In article <7695@news.duke.edu> kdb@dukebar (Kurt Bollacker) writes:
...
> Somewhat better, but not much.  First, consider signed numbers.  2^63 =
> 9223372036854775808 (19 digits), but the largest "9-number" (number
> represented by all digits = 9) is 999999999999999999, an 18 digit
> number.  For unsigned numbers, you can get a 19 digit number consisting
> of all nines.
> 
> There was a reason for picking 18 decimal digit precision... It's the
> largest number of decimal digits you can deal with using 64 bit signed
> binary arithmetic.
> 
...
> Disclaimer:  I have never written a real COBOL program.  Everything
> I know about COBOL comes from having written a compiler for it.
> The compiler, libraries, runtimes, CICS, BMS, DL/I, and SQL
> processors took over a year for four guys to complete.  We did it
> in C on Unix boxes.

Interesting... does your compiler convert BCD into 64-bit integers first before
doing computations and convert them back? I'm sort of working on a compiler
myself and I was thinking of whether it would be more efficient to do that or
to try and do it without the conversions. (The target machine uses a 68000,
which has BCD add and subtract instructions, although the operand size can only
be one byte).

I'd be very interested in any hints, tips, caveats, etc. that you may give.








From: Bruce.Feist@f615.n109.z1.fidonet.org (Bruce Feist)
Sender: Uucp@blkcat.UUCP
Newsgroups: alt.cobol
Subject: C equivalents for COBOL
Date: Sat, 19 Dec 1992 12:28:54 -0500

Hello Fergus!

 FJH> From: fjh@munta.cs.mu.OZ.AU (Fergus James HENDERSON)

 >> A challenge for COBOL haters:  How would you do the following in C?
 >>
 >> MOVE CORR RECORD-WITH-100-FIELDS TO SAME-FIELDS-DIFFERENT-ORDER.

 FJH> There are some good arguments in favour of using COBOL in certain
 FJH> circumstances, but this is not one of them.
 FJH> WHY would you ever want to do that in C?

For exactly the same reasons that you might want to in COBOL.  Maybe you're
trying to alter the order of fields in one file, converting to another format.
Maybe you have two similar record layouts, but where one contains more fields
than the other, and want to set what fields are possible in one based on the
other.

Bruce
From: poole@admin.usask.ca ()
Newsgroups: alt.cobol
Subject: Re: HELP !!! COBOL INDEXES
Date: 18 Dec 1992 17:35:59 GMT
Organization: University of Saskatchewan
Distribution: world
Reply-To: poole@admin.usask.ca ()
NNTP-Posting-Host: vortex.usask.ca

In article <1992Dec14.162040.1@urc.tue.nl>, rcrolf@urc.tue.nl writes:
|>Hi,
|>
|>I don't have much experience with COBOL but I have do to a small
|>COBOL job.
|>I'm working with the VAX/VMS Cobol compiler.
|>
|>My problem is the following :
|>
|>[File section]
|>
|>01 TESTRECORD.
|>   05 KEY-FIELD-1    PIC X(10).
|>   05 KEY-FIELD-2    PIC X(5).
|>   05 KEY-FIELD-3    PIC 99.
|>01 DATA-FIELDS.
|>   05 ......
|>   05 ......
|>
|>I want to create two INDEXES :
|>   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
|>   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2
|>
|>HOW CAN I ACHIEVE THIS ?????????????????????????????????
|>
|>ANY HELP WILL BE VERY APPRECIATED (I'M STUCK AT THE MOMENT !!)
|>

I am assuming that the key fields and the data are in the same record.
You can create Index 1 by using the following

FD  TESTFILE
    DATA RECORD IS TESTRECORD
    RECORD KEY IS PRIM-KEY.

01 TESTRECORD.
   05 PRIM-KEY.
      10 KEY-FIELD-1    PIC X(10).
      10 KEY-FIELD-2    PIC X(5).
      10 KEY-FIELD-3    PIC 99.
   05 DATA-FIELDS.
      10 ....
      10 ....

Index 2 is a problem because COBOL (VAX only?) does not support segmented
field indexes. It appears that index 2 is needed for sorting only so use
the SORT and RETRIEVE commands for this purpose. The VAX COBOL user's 
manual has some good examples on how to do this.

BTW.
It is possible to set up segmented field indexes in VAX RMS index files 
using FDL but I am not sure how COBOL would handle these.

Chris Poole
Computing Services                        CA*Net:  Poole@ADMIN.USask.CA
56 Physics Building                       Phone:   (306) 966-4807
University of Saskatchewan                FAX:     (306) 966-4938
Saskatoon, Saskatchewan, Canada, S7N 0W0

Newsgroups: alt.cobol
From: nelson_don@comm.tandem.com (Don Nelson)
Newsgroups: alt.cobol
Subject: Standards and Comm
Date: 16 Dec 92 17:23:58 GMT
Organization: Tandem Computers
X-Xxdate: Wed, 16 Dec 92 18:35:42 GMT
X-Useragent: Nuntius v1.1.1d7

In article <5935@holston.UUCP> Barton A. Fisk, barton@holston.UUCP writes:
>In article <10292340.50668.15134@kcbbs.gen.nz>
Richard_Plinston@kcbbs.gen.nz 
>(Richard Plinston) writes:
>>
>>        >>> no one has replied to my serious question about
>>        >>> serial port accessing
>>
>>        Accessing serial ports is likely to be dependant on:
>>            Machine used
>>            Operating system
>>            Compiler vendor and version
>
>This is quite true, the version of RM/Cobol 85 I am using
>has communication routines built-in. However I've never
>done much with it.
>
>I've always used a comm program called Blast for Unix to
>other os's, but I suppose the need could arise for something
>to control devices and read/write data directly into a Cobol
>program.
>
>I'm not sure about standards here, perhaps someone on the
>ANSI committee would comment about standards in comm facilities
>of Cobol or it's extensions.

The only standard for comm facilities is the Message Communications 
System (MCS) module in the current standard.  This facility lets you 
send and receive messages via various queues.  The facility has never 
been very popular, and very few implementors provide it.  The primary 
reason seems to be that it involves a complex queue system that is 
probably not very necessary and is somewhat obsolete (MCS was defined in 
the late 60s).  Also, almost all implementors have some method of 
communicating between processes or with terminals that differs from MCS 
(at Tandem we use slightly enhanced READ and WRITE statements).  We (the 
COBOL standards groups - ISO and ANSI) are trying to decide what to do 
about it for the next standard.  There are two camps, one wants to 
obsolete it and the other (I'm in this one) wants to modernize it.  If 
users have to resort to accessing serial ports and whatnot for 
interprocess communication, it seems like something is needed.

Don Nelson
COBOL Development, Tandem Computers, Inc
Chariman, ANSI X3J4 COBOL Committee ad-hoc development group
nelson_don@comm.tandem.com
From: barton@holston.UUCP (Barton A. Fisk)
Newsgroups: alt.cobol
Subject: Re: cobol is crap. avoid it
Date: 12 Dec 92 16:36:46 GMT
Organization: Barton A. Fisk Inc.

In article <bsm.4.0@utrcv1.res.utc.com> bsm@utrcv1.res.utc.com (Brian S. McCarthy) writes:
>In article <1992Dec3.184126.8808@tandem.com> 
>    Don Nelson <nelson_don@comm.tandem.com> writes:
>>From: Don Nelson <nelson_don@comm.tandem.com>
>>Subject: Re: cobol is crap. avoid it
>>Date: Thu, 3 Dec 1992 18:41:26 GMT
>>In article <1992Dec3.112251.2143@dct.ac.uk> , bssbc3gsd@dct.ac.uk writes:
>
>Incidentally, why is this newsgroup relegated to "alt." status?  
>Why is there no comp.lang.cobol?  Can you imagine comp.lang.cobol.advocacy?
>

Well I was around on the net when the vote was taken way back when
and there were not enough votes to get comp.lang.cobol created.

I forget now what the rules for creation were then. But perhaps
now is the time to try again?

Also, to the gentleman who posted the crap message:

Every few months someone like you posts a message here that
seems to stir a flurry of responses in defense of Cobol.

Your uninformed, nonsensical dribble is what I would like to
avoid. It's assinine to think that companies trash whole
applications just because they are not written in the 
fashionable language of the hour. Wake up, get a job and learn
a little about the real business world that has to justify 
expenses and make decisions that pay off in real dollars.

I read this group to learn how to solve real world problems 
in Cobol. If I wanted to hear the wonderful advantages of C
I would read comp.lang.c.

-- 
uucp: holston!barton
pseudo: barton@holston.UUCP
Newsgroups: alt.cobol
From: cochran@spam.rtp.dg.com (A. Jing Hippy)
Subject: Re: HELP !!! COBOL INDEXES
Date: Wed, 16 Dec 92 13:55:41 GMT
Organization: A Suffusion of Yellow

In article <BzBAF0.BKK@ux1.cso.uiuc.edu>, edotto@ux1.cso.uiuc.edu (Ed Otto) writes:
|> dlittle@sscvx1.ssc.gov (DENNIS LITTLE) writes:
|> >> 
|> >>01 TESTRECORD.
|> >>   05 KEY-FIELD-1    PIC X(10).
|> >>   05 KEY-FIELD-2    PIC X(5).
|> >>   05 KEY-FIELD-3    PIC 99.
|> >>01 DATA-FIELDS.
|> >>   05 ......
|> >>   05 ......
|> >> 
|> >>I want to create two INDEXES :
|> >>   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
|> >>   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2
|> >> 
|> 
|> >Check on the word "Alternate Index" in your manual and see if that's what
|> >you're looking for.  It sounds as though that will solve your problem.
|> 
|> Nope - the sort sequence is different...what he needs to do is to resort
|> the file and create TWO output files with the different sequences.

But that's what alternate indexes are FOR.  He should be able to do something
like:

01 TESTRECORD.
   05 KEY-FIELD-1    PIC X(10).
   05 KEY-FIELD-2    PIC X(5).
   05 KEY-FIELD-3    PIC 99.
01 TESTRECORD-ALT REDEFINES TESTRECORD.
   05 KEY-FIELD-3    PIC 99.
   05 KEY-FIELD-1    PIC X(10).
   05 KEY-FIELD-2    PIC X(5).

and then his SELECT statement would look something like:

    SELECT FILENAME ASSIGN TO DISK,
         RECORD KEY IS TESTRECORD,
         ALTERNATE RECORD KEY IS TESTRECORD-ALT.

It won't take any more space in the program because of the REDEFINES, and
every WRITE that is done to the file will automatically write the other
index as well.

+--------------------------------------------------+
|Dave Cochran, Data General Corporation, RTP, NC   |
|cochran@dg-rtp.dg.com                             |
+--------------------------------------------------+
|"Reality is nothing but a collective hunch."      |
|                                   --Lily Tomlin  |
+--------------------------------------------------+
From: linnoise@bigboy (LN)
Newsgroups: alt.cobol
Subject: From VAX Cobol to Cobol on MSDOS
Date: 16 Dec 92 15:13:07 GMT
Organization: Temple University

I need to know what Cobol compiler running on MSDOS would be the best
choice for moving VAX Cobol programs to PCs.  At this point compatibility
heavily outweighs program execution speed.  Any suporting data would be
greatly appreciated.  Thanks in advance.

--
---linnoise@129.32.32.98  My opinions are strictly those of my own.
Newsgroups: alt.cobol
From: nestabro@nova.gmi.edu (Noel Estabrook)
Subject: decompilerfor UNIX v. ACUCOBOL
Keywords: ACUCOBOL
Organization: GMI Engineering&Management Institute, Flint, MI
Date: Tue, 15 Dec 1992 16:45:21 GMT

I have a friend who is trying to use ACUCOBOL on a UNIX system and he
needs a decompiler.  Can anybody give me one (I'm not familiar with
COBOL).  Hope this is the right group.

E-mail to the below address would be fine.

Thanx in advance.

--
Noel Estabrook			|	Knowledge without action is like
nestabro@nova.gmi.edu         --|--     snow on a hot stove.
Instructional Design & Tech.    |     
Michigan State University       |               Romans 12:2
Newsgroups: alt.cobol
From: edotto@ux1.cso.uiuc.edu (Ed Otto)
Subject: Re: HELP !!! COBOL INDEXES
Organization: University of Illinois at Urbana
Date: Tue, 15 Dec 1992 17:39:57 GMT

dlittle@sscvx1.ssc.gov (DENNIS LITTLE) writes:
>> 
>>01 TESTRECORD.
>>   05 KEY-FIELD-1    PIC X(10).
>>   05 KEY-FIELD-2    PIC X(5).
>>   05 KEY-FIELD-3    PIC 99.
>>01 DATA-FIELDS.
>>   05 ......
>>   05 ......
>> 
>>I want to create two INDEXES :
>>   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
>>   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2
>> 

>Check on the word "Alternate Index" in your manual and see if that's what
>you're looking for.  It sounds as though that will solve your problem.

Nope - the sort sequence is different...what he needs to do is to resort
the file and create TWO output files with the different sequences.

He can use the VMS SORT utility to do this;  will post the DCL for this when I
have a chance to get it done (prolly tomorrow...)

					--	Ed

-- 
Edward C. Otto III			* e-otto@uiuc.edu
No one really knows...                  * edotto@ux1.cso.uiuc.edu
University of Illinois			* Voice: 217/333-9250
Printing Services Office		* Fax:   217/244-7277
From: werden@mccc.edu (Andrew J Werden dp270-5204)
Newsgroups: alt.cobol
Subject: MicroFocus OO extensions
Date: 20 Dec 92 19:09:57 GMT
Organization: The College On The Other Side of U.S. Route 1

Has anyone been using the MicroFocus Object Oriented Cobol extensions?

Have interest in using the object/instance/message paradign in designing;
want to know if language support is there/works.


							/Andrew
From: rcrolf@urc.tue.nl
Newsgroups: alt.cobol
Subject: HELP !!! COBOL INDEXES
Date: 14 Dec 92 15:20:40 GMT
Organization: Eindhoven University of Technology, The Netherlands

Hi,

I don't have much experience with COBOL but I have do to a small
COBOL job.
I'm working with the VAX/VMS Cobol compiler.

My problem is the following :

[File section]

01 TESTRECORD.
   05 KEY-FIELD-1    PIC X(10).
   05 KEY-FIELD-2    PIC X(5).
   05 KEY-FIELD-3    PIC 99.
01 DATA-FIELDS.
   05 ......
   05 ......

I want to create two INDEXES :
   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2

HOW CAN I ACHIEVE THIS ?????????????????????????????????

ANY HELP WILL BE VERY APPRECIATED (I'M STUCK AT THE MOMENT !!)

Please mail suggestions and/or solutions to my EMAIL-address
(as listed below) 'cause I'm not a subscriber of this list.

Thanks in advance,


Rolf.

-------------------------------------------------------------------------
    #####     #####    -+- Rolf van Gelder -+-
   #   #     #        Computer Center -+- Technical University EINDHOVEN
  #####     # ###    Home address :
 # #   # # #   #    Binnenwiertzstraat 27     5615 HG  EINDHOVEN HOLLAND
#   #  #  #####    Internet: rcrolf@urc.tue.nl    Bitnet: rcrolf@heitue5
-------------------------------------------------------------------------
Newsgroups: alt.cobol
From: jfid@mfltd.co.uk (James Fidell (x5320))
Subject: Re: Currently running program's name
Organization: Micro Focus Ltd., Newbury, UK
Date: Thu, 17 Dec 1992 18:22:56 GMT


In article <1992Dec17.163135.2167@cc.umontreal.ca>, lacs@ERE.UMontreal.CA (Lacombe Serge) writes:
> 
> 	Hi. I'm using Micro Focus 3.0 on a Unix server and i would
> like to know if there is a fonction that return the name of the running
> program?

Unfortunately not.  It is possible, but it would involve linking C modules
into the RTS, and it wouldn't work in future products.

> 
> 	Is there a way of knowing the number of parameters passed
> to a subprogram?

I assume that you want a function which takes variable numbers of parameters
and has access to some information to tell it how to get at them.

There isn't any way to do this directly.  One difficulty with the UNIX
product (as opposed to the DOS version) is that in .int code, the RTS will
not allow an incorrect number of parameters to be passed.  .gnt code doesn't
do this check (for efficiency) unless you specifically turn it on using the
"-N linkcheck" option when generating the code.

What I'd suggest you do is write the code so that the first parameter is
the number of parameters passed, then the parameters, padded out with some
dummy values so that the program will run in .int code and under Animator
without problems.

An alternative would be to pass parameters in a parameter block, declared to
be big enough to hold the maximum number of parameters.  The first value in
the parameter block would be the number of parameters which are valid.  This
does have a benefit in that the parameter block can be interpreted in differing
ways, depending on how many parameters there are.

> 
> Thanks.

S'okay.

> 
> Serge Lacombe,
> Universite de Montreal,
> 
> lacs@eole.ere.umontreal.ca
-- 
 "Yield to temptation --             |
  it may not pass your way again"    |     jfid@mfltd.co.uk
                                     |
        - Lazarus Long               |              James Fidell
From: segross@uci.edu (STEVE GROSS)
Subject: Re: HELP !!! COBOL INDEXES
Newsgroups: alt.cobol
Organization: UC Irvine College of Medicine
Date: 16 Dec 92 21:12:29 GMT

In article <1992Dec16.135541.12409@dg-rtp.dg.com> cochran@spam.rtp.dg.com (A. Jing Hippy) writes:

>In article <BzBAF0.BKK@ux1.cso.uiuc.edu>, edotto@ux1.cso.uiuc.edu (Ed Otto) writes:
>|> dlittle@sscvx1.ssc.gov (DENNIS LITTLE) writes:
>|> >> 
>|> >>01 TESTRECORD.
>|> >>   05 KEY-FIELD-1    PIC X(10).
>|> >>   05 KEY-FIELD-2    PIC X(5).
>|> >>   05 KEY-FIELD-3    PIC 99.
>|> >>01 DATA-FIELDS.
>|> >>   05 ......
>|> >>   05 ......
>|> >> 
>|> >>I want to create two INDEXES :
>|> >>   Index 1 on KEY-FIELD-1, KEY-FIELD-2, KEY-FIELD-3
>|> >>   Index 2 on KEY-FIELD-3, KEY-FIELD-1, KEY-FIELD-2
>|> >> 
>|> 
>|> >Check on the word "Alternate Index" in your manual and see if that's what
>|> >you're looking for.  It sounds as though that will solve your problem.
>|> 
>|> Nope - the sort sequence is different...what he needs to do is to resort
>|> the file and create TWO output files with the different sequences.

>But that's what alternate indexes are FOR.  He should be able to do something
>like:

>01 TESTRECORD.
>   05 KEY-FIELD-1    PIC X(10).
>   05 KEY-FIELD-2    PIC X(5).
>   05 KEY-FIELD-3    PIC 99.
>01 TESTRECORD-ALT REDEFINES TESTRECORD.
>   05 KEY-FIELD-3    PIC 99.
>   05 KEY-FIELD-1    PIC X(10).
>   05 KEY-FIELD-2    PIC X(5).

>and then his SELECT statement would look something like:

>    SELECT FILENAME ASSIGN TO DISK,
>         RECORD KEY IS TESTRECORD,
>         ALTERNATE RECORD KEY IS TESTRECORD-ALT.

>It won't take any more space in the program because of the REDEFINES, and
>every WRITE that is done to the file will automatically write the other
>index as well.

No way.
Redefining the data doesn't change the values.
The only way I know to do this is:

    SELECT FILENAME ASSIGN TO DISK
        RECORD KEY IS TEST-KEY
	ALTERNATE RECORD KEY IS TEST-ALT-KEY.

01  TESTRECORD.
    02  TEST-KEY.
        05  KEY-FIELD-1                  PIC X(10).
        05  KEY-FIELD-2                  PIC X(5).
        05  KEY-FIELD-3                  PIC 99.
    02  TEST-ALT-KEY.
        05  ALT-FIELD-3                  PIC 99.
        05  ALT-FIELD-1                  PIC X(10).
        05  ALT-FIELD-2                  PIC X(5).

and you have to make sure you move the "KEY" fields to the "ALT" fields
before you write.

Maybe someone else has something more clever (that works).

Steve
Newsgroups: alt.cobol
From: bjornts@ii.uib.no (Bjoern Tore Sund)
Subject: Re: MS-cobol and Turbo Pascal
Organization: Dept. of Informatics, University of Bergen
Date: Mon, 14 Dec 92 11:48:52 GMT

In article <1992Dec11.160310.8543@mfltd.co.uk>, jfid@mfltd.co.uk (James Fidell (x5320)) writes:
|> 
|> In article <1992Dec10.141522.20472@cs.ruu.nl>, ehversch@cs.ruu.nl (Eric Verschure) writes:
|> > Hello,
|> > 
|> > I have a problem with calling a Turbo-pascal compiled program
|> > from a cobol program.
|> > I use MS Cobol 4.0.
|> > 
|> > I have 2 questions :

|> As far as I know, this isn't yet possible without considerable hacking about
|> with the object internals.  I believe (although I don't know) that the
|> parameter passing conventions are different between MS and Borland, which
|> means that even if the CALL works, all your parameters get messed up.
|> 
|> This probably isn't any help, but it should work with MS Pascal.

There are a few public domain pascal-compilers out there in net-land, one
or two of them _should_ be able to pass parameters MS-style. Especially
since MS is the most popular protocol to "borrow from" in making public-
domain compilers.
-- 
    ___   ___
__  |__)   |    Bjoern Tore Sund (BT)   Quote: "Nothing!"
    |__)   |    bjornts@ii.uib.no              - Marvin

Newsgroups: alt.cobol
From: cochran@spam.rtp.dg.com (A. Jing Hippy)
Subject: Re: HELP !!! COBOL INDEXES
Date: Thu, 17 Dec 92 20:53:52 GMT
Organization: A Suffusion of Yellow

In article <segross.3@uci.edu>, segross@uci.edu (STEVE GROSS) writes:
|> 
|> No way.
|> Redefining the data doesn't change the values.
|> The only way I know to do this is:
|> 
|>     SELECT FILENAME ASSIGN TO DISK
|>         RECORD KEY IS TEST-KEY
|> 	ALTERNATE RECORD KEY IS TEST-ALT-KEY.
|> 
|> 01  TESTRECORD.
|>     02  TEST-KEY.
|>         05  KEY-FIELD-1                  PIC X(10).
|>         05  KEY-FIELD-2                  PIC X(5).
|>         05  KEY-FIELD-3                  PIC 99.
|>     02  TEST-ALT-KEY.
|>         05  ALT-FIELD-3                  PIC 99.
|>         05  ALT-FIELD-1                  PIC X(10).
|>         05  ALT-FIELD-2                  PIC X(5).
|> 
|> and you have to make sure you move the "KEY" fields to the "ALT" fields
|> before you write.

EEEP!  You're right.  I woulda found it when I debugged the program :-).

Sorry about that.

What if you left all of the 05-level items with the same names, and then
just did a MOVE CORRESPONDING TEST-KEY to TEST-ALT-KEY?

+--------------------------------------------------+
|Dave Cochran, Data General Corporation, RTP, NC   |
|cochran@dg-rtp.dg.com                             |
+--------------------------------------------------+
|"Reality is nothing but a collective hunch."      |
|                                   --Lily Tomlin  |
+--------------------------------------------------+
From: lacs@ERE.UMontreal.CA (Lacombe Serge)
Newsgroups: alt.cobol
Subject: Currently running program's name
Date: 17 Dec 92 16:31:35 GMT
Organization: Universite de Montreal


	Hi. I'm using Micro Focus 3.0 on a Unix server and i would
like to know if there is a fonction that return the name of the running
program?

	Is there a way of knowing the number of parameters passed
to a subprogram?

Thanks.

Serge Lacombe,
Universite de Montreal,

lacs@eole.ere.umontreal.ca
Newsgroups: alt.cobol