HP3000-L Archives

August 1999, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Joe Howell <[log in to unmask]>
Reply To:
Date:
Sun, 22 Aug 1999 10:28:53 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (45 lines)
Well, its Sunday noon and time to cry "Uncle"

I'm working on an old (and I do mean old) COBOL program which was
moved to NM a few years ago.  Reads what is now a KSAM XL file.

Though I would SWEAR the key is correct, I need to verify the
structure of this file.  Under CM, we used KSAMUTIL, VERIFY.  I don't
recall, but how do I do this to a KSAM XL file?

As always, any assistance is greatly appreciated.


Joe Howell
HIS Company
Onsite at Intl. Paper - Savannah

BTW, here is the tombstone:

Filename: HCS10
File status is 39
File's fixed attributes differ from program [39] KEY (COBERR 648)
Program file: HCSA10.OBJECT.LDPE
END OF FILE  (FSERR 0)

+-F-I-L-E---I-N-F-O-R-M-A-T-I-O-N---D-I-S-P-L-A-Y+
!  FILE NAME IS HCS20.GRIFPROD.LDPE              !
!  FOPTIONS: SYS,ASCII,FORMAL,F,NOCCTL,FEQ,KXL   !
!            NOLABEL                             !
!  AOPTIONS: INPUT,NOMR,LOCK,SHR,BUF,NOMULTI     !
!            WAIT,NOCOPY                         !
!  DEVICE TYPE: 3      DEVICE SUBTYPE: 8         !
!  LDEV: 2        DRT: 8         UNIT: 0         !
!  RECORD SIZE: 14     BLOCK SIZE: 4096  (BYTES) !
!  EXTENT SIZE: 110    MAX EXTENTS: 8            !
!  RECPTR: 0           RECLIMIT: 3033            !
!  LOGCOUNT: 5            PHYSCOUNT: 0           !
!  EOF AT: 1           LABEL ADDR: %00000000000  !
!  FILE CODE: 0        ULABELS: 0                !
!  FILE OWNER: JOE.LDPE                          !
!  PHYSICAL STATUS: ????????????????             !
!  ERROR NUMBER: 0     RESIDUE: 0                !
!  BLOCK NUMBER: 0            NUMREC: 37         !
+------------------------------------------------+
**** COB_QUIT 648 ****

ATOM RSS1 RSS2