home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / bit / listserv / ibmmain / 2605 < prev    next >
Encoding:
Text File  |  1992-11-09  |  2.2 KB  |  44 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!stanford.edu!unixhub!fnnews.fnal.gov!overload.lbl.gov!zeus.ieee.org!europa.asd.contel.com!paladin.american.edu!auvm!UTMARTN.BITNET!##09
  3. Message-ID: <09NOV92.18043480.0015.MUSIC@UTMARTN>
  4. Newsgroups: bit.listserv.ibm-main
  5. Date:         Mon, 9 Nov 1992 16:42:24 CST
  6. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  7. From:         Larry Holder <##09@UTMARTN.BITNET>
  8. Subject:      problem opening a vsam file
  9. In-Reply-To:  In reply to your message of MON 09 NOV 1992 15:05:09 CST
  10. Lines: 32
  11.  
  12. > A student teaching assistant here has a VS COBOL II program which attempts
  13. > to open a VSAM KSDS file which is varying in record length and also has an
  14. > alternate index with duplicate entries. The file and its index were just
  15. > defined so there is no data in the cluster or its aix component. She wants
  16. > to open the file for the purpose of populating it with data. Unfortunately, an
  17. > when the program attempts to OPEN OUTPUT the file, the program abends and
  18. > displays the following error message:
  19. >
  20. > 4228I FILE SYS09    OPEN  ERROR X'64'(100) CAT IJSYSUC
  21. >
  22. > The contents of the KSDS file's status key = 39 at this point.
  23.  
  24. Stan:
  25. The VSAM error code X'64' for an OPEN says: "OPEN encountered an empty
  26. alternate index that is part of an upgrade set."
  27. Checking the COBOL-II Appl Pgming Guide, page 218 says "...After you
  28. have defined the alternate index and the path and have loaded the
  29. VSAM indexed file, you can specify a BLDINDEX command to load the
  30. alternate index with index records..."
  31. I'm rusty on this topic, but it sounds like you need to load the
  32. KSDS without reference to any ALTERNATE RECORD KEY, and "then" do a
  33. build for the alternate index via IDCAMS.
  34. If I'm wrong, someone please jump in and correct me.  The original
  35. message indicated a need for a quick reply.
  36.  
  37. Larry Holder,  Sr. Programmer/Analyst            Bitnet: ##09@UTMARTN
  38. The University of Tennessee at Martin            Phone:  901-587-7890
  39. Martin, TN  38238                                Fax:    901-587-7841
  40.  
  41. Software: VM/ESA 1.0, VSE/ESA 1.1, CICS/VSE 2.1, COBOL-II, DL/I, SQL/DS
  42. Hardware: IBM 9221-150 with 9336 FBA dasd
  43. PSW:      (Personal Status Words): Saved by grace (Romans 1:16 & 8:38)
  44.