COBOL:

input-out-section.
file-control.
  select listeq-file assign to "TESTEQ.PUB"
     file status is listeq-file-status.

Data division.
file section.
fd listeq-file.
01 listeq-record    pic x(80).

working-storage section.
01 listeq-file-status pic xx value "00".
   88 listeq-eof value "10".
01 intrinsic-variables.
  03 ci-command.
     05 command-name pic x(79) value spaces.
     05 carriage-return    pic x value %015.
  03 ci-error                 pic s9(4) comp.
  03 ci-parm                pic s9(4) comp.
  03 ci-msg-level          pic s9(4) comp value 0.

procedure division.

   move "LISTEQ >TESTEQ.PUB" to command-name.
   call intrinsic "HPCICOMMAND" using ci-command, ci-error,
                       ci-aprm, ci-msg-level.

   open input listeq-file.
   evaluate listeq-file-status
      when "35" display "Oops, no file equations"
      when "00" perform s100-find-equation
      when other display "File status: " listeq-file-status
   end-evaluate.
   close listeq-file.

s100-find-equation.
perform until listeq-eof
  read listeq-file
     not at end
        if listeq-record(1:11) = "FILE REPORT"
          display "DEV for REPORT = " listeq-record(17:xx)
        end-if
   end-read
end-perform.

Patrick Muylaert
Virgin Express
Information Systems
[log in to unmask]

Homepage: HTTP://www.virgin-express.com

New:
takeFLIGHT Online! Virgin Express' new, easy-to-use service allows you
to check for flight availability and make reservations across the
Internet.
Check our Homepage: HTTP://www.virgin-express.com, click on
'reservation'.



> ----------
> From:         Therm-O-Link[SMTP:[log in to unmask]]
> Reply To:     Therm-O-Link
> Sent:         donderdag 26 maart 1998 19:00
> To:   [log in to unmask]
> Subject:      Get Device Name Programmatically
>
> Given that a file equation like "FILE REPORT;DEV=MYLP;CCTL" has been
> issued prior to running a program, is there anyway to get the value
> of the DEV= clause (in this case MYLP) from inside the program,
> after the file has been opened?  I've looked at the FFILEINFO
> intrinsic and could not find a readily apparent way of doing it.
>
> We're trying to do this in Cobol, so a nice C answer won't
> really help me.
>
> Thanks in advance.  Oh, and please note that this is on-topic,
> which is a real change for me. :-)
>
> Jim Phillips                            Manager of Information Systems
> E-Mail: [log in to unmask]      Therm-O-Link, Inc.
> Phone: (330) 527-2124                   P. O. Box 285
>   Fax: (330) 527-2123                   Garrettsville, Ohio  44231
>