Hi all,
I have a file which is created through a COBOL program and looks perfect in
all views without any problems. However when I do a print on that file or
try to edit it through QEDIT it fails. If I display the contents of the file
through Suprtool, it works normally. Can anyone advise what am I doing wrong
? Thanks in advance.
RZR9.PCARTP1: L [log in to unmask]
ACCOUNT= PCARPS GROUP= PUB
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
CH100W1 16B FA 1208 100000 16 512 2 *
CH100W2 35B FA 16914 100000 7 2592 7 *
RZR9.PCARTP1: L [log in to unmask],3
********************
FILE: CH100W1.PUB.PCARPS
FILE CODE : 0 FOPTIONS: ASCII,FIXED,NOCCTL,STD
BLK FACTOR: 16 CREATOR : **
REC SIZE: 16(BYTES) LOCKWORD: **
BLK SIZE: 256(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 1208 APPEND : ANY
NUM SEC: 512 LOCK : ANY
NUM EXT: 2 EXECUTE : ANY
MAX REC: 100000 **SECURITY IS ON
FLAGS : NO ACCESSORS
NUM LABELS: 0 CREATED : TUE, SEP 17, 2002, 10:02 AM
MAX LABELS: 0 MODIFIED: TUE, SEP 17, 2002, 10:15 AM
DISC DEV #: 73 ACCESSED: TUE, SEP 17, 2002, 12:51 PM
SEC OFFSET: 0 LABEL ADDR: **
VOLCLASS : PRODVOL:DISC
********************
FILE: CH100W2.PUB.PCARPS
FILE CODE : 0 FOPTIONS: ASCII,FIXED,NOCCTL,STD
BLK FACTOR: 7 CREATOR : **
REC SIZE: 35(BYTES) LOCKWORD: **
BLK SIZE: 245(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 16914 APPEND : ANY
NUM SEC: 2592 LOCK : ANY
NUM EXT: 7 EXECUTE : ANY
MAX REC: 100000 **SECURITY IS ON
FLAGS : NO ACCESSORS
NUM LABELS: 0 CREATED : TUE, SEP 17, 2002, 10:02 AM
MAX LABELS: 0 MODIFIED: TUE, SEP 17, 2002, 10:15 AM
DISC DEV #: 72 ACCESSED: TUE, SEP 17, 2002, 12:50 PM
SEC OFFSET: 0 LABEL ADDR: **
VOLCLASS : PRODVOL:DISC
RZR9.PCARTP1:
(*** print here is displaying only first 8 characters of the 16 character
length file ***)
RZR9.PCARTP1: PRINT CH100W1.PUB.PCARPS
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
E9018002
(24/1208) Continue? N
RZR9.PCARTP1: QE
Qedit/iX. Copyright Robelle Solutions Technology Inc. 1977-2000 Type ? for
Help
(Version 5.0)
Licensee: Preferred Care [28I]
Today's Hint. F7: execute command at ===> line (in Line mode, Listredo, show
previous 20 commands).
/T CH100W1.PUB.PCARPS
'Language' is now TEXT
Error: line number out of sequence - renumbering the rest
Error: Too High
313 lines in file
/E
END OF PROGRAM
RZR9.PCARTP1:
With Best Regards
Raghu. Rao
Email: [log in to unmask]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|