HP3000-L Archives

April 2002, Week 5

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:
Duane Percox <[log in to unmask]>
Reply To:
Duane Percox <[log in to unmask]>
Date:
Tue, 30 Apr 2002 06:52:48 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines)
Leonard asks:
>This error is caused by an object file that is too small. How can I
>override the file equation that is in the COB85XL.PUB.SYS
>command file, without modifying that file. Any file equation
>I set before executing the compile, is reset by the command
>file. Yes, I can set file  equations and RUN COBOL etc.
>explicitly, but the folks here rely on the  command files in
>PUB.SYS. And what is the default size for COBOBJ? 10,000?

Try this:

:FILE XX=MYOBJ.DAP;DISC=30000
:COB85XL DAPTST.CBL,*XX,$NULL

PAGE 0001  COBOL II/iX HP31500A.04.20  [85] Copyright Hewlett-Packard CO.
1987



0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)

    DATA AREA IS      1D8 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:01.

END OF PROGRAM
END OF COMPILE

:LISTF MYOBJ.DAP,2
ACCOUNT=  QSSDEV      GROUP=  DAP

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MYOBJ     NMOBJ   128W  FB          10      30000   1       16  1  8


Seems to do what you are looking for...

duane percox

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2