home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / bit / listserv / statl / 1184 < prev    next >
Encoding:
Text File  |  1992-07-21  |  2.0 KB  |  63 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!darwin.sura.net!wupost!psuvax1!psuvm!auvm!ERS.BITNET!ATKINSON
  3. Message-ID: <CMM.0.90.2.711742771.wgreene@option.stern.nyu.edu>
  4. Newsgroups: bit.listserv.stat-l
  5. Date:         Tue, 21 Jul 1992 14:36:35 EDT
  6. Sender:       "STATISTICAL CONSULTING" <STAT-L@MCGILL1.BITNET>
  7. Comments:     Resent-From: Linda <ATKINSON@ERS>
  8. Comments:     Originally-From: William Greene <wgreene@option.stern.nyu.edu>
  9. From:         Linda <ATKINSON@ERS.BITNET>
  10. Subject:      LIMDEP
  11. Lines: 50
  12.  
  13. +----------------------------------------------------------------------+
  14. | Linda Atkinson, Statistician     | BITNET:  ATKINSON@ERS             |
  15. | U.S. Department of Agriculture   | Tel:     (202) 219-0505           |
  16. | Economic Research Service        | FAX:     (202) 219-1292           |
  17. | Washington, D.C.                 |          (ATTN: RM 240)           |
  18. +----------------------------------------------------------------------+
  19.  
  20.  
  21. ----------------------------Original message----------------------------
  22.  
  23.  
  24.  
  25.  
  26. Memo:
  27. To:    Users of LIMDEP 6.0 on IBM Mainframe systems
  28. From:    W. Greene, developer, LIMDEP
  29. Date:    July 21, 1992
  30. Re:    Problems reading unformatted data sets.
  31.  
  32. Dear IBM User:
  33.  
  34.     Several IBM mainframe users have reported problems reading
  35. unformatted data sets with LIMDEP version 6.0.  The program crashes with
  36. an 'END OF RECORD ON UNIT 10' error.
  37.     A LIMDEP user has suggested a patch which deals specifically with
  38. this problem.  The offending line, which should be but apparently is not
  39. protected by its ERR=992 specification, is in subroutine LOAD, and follows
  40. statement 242,
  41.         READ(IUD,2421,END=993,ERR=992)(LINE(J),J=ONE,255)
  42.  
  43. An approach for getting around the problem is
  44.  
  45.     1.  At the top of the subroutine, add the two lines
  46.  
  47.         CHARACTER*255 IBMBUF
  48.         EQUIVALENCE (LINE,IBMBUF)
  49.  
  50.     2.  Replace the aforementioned READ statement with
  51.  
  52.         READ(IUD,2429,END=993,ERR=993)IBMBUF
  53.       2429  FORMAT(A255)
  54.  
  55. Users of nonIBM mainframe systems need not make this change.
  56.  
  57.                 Sincerely yours,
  58.  
  59.                 Bill Greene
  60.                 EcoSoft
  61.  
  62. 
  63.