HP3000-L Archives

October 2008, Week 5

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

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

Print Reply
Sender:
HP-3000 Systems Discussion <[log in to unmask]>
Date:
Tue, 28 Oct 2008 23:59:33 -0500
Reply-To:
Mark Ranft <[log in to unmask]>
Content-Transfer-Encoding:
7bit
Subject:
Re: COBOL COMPILER BLUES...
From:
Mark Ranft <[log in to unmask]>
Content-Type:
text/plain; charset="us-ascii"
In-Reply-To:
<[log in to unmask]>
MIME-Version:
1.0
Comments:
To: Paul Raulerson <[log in to unmask]>
Parts/Attachments:
text/plain (47 lines) 
I was able to duplicate the problem.  I am with you. I am confused.  When
isn't COBLIST the list file?

Here is what I know so far.  If you print the first line of
COB85XL.PUB.SYS...

:print cob85xl.pub.sys
parm text="",obj="",list="",mast="",new="",info="",wksp="",xdb=""


Positionally the parameters are:
1 = Text 
2 = OBJ
3 = List

So coblist is third.  Right?  Now try. (Don't worry that none of the 'my@'
files exist)...

:setvar hpcmdtrace true
:cob85xlg mysource,myobject,mylist

Check where you see the FILE equations set up.  I see...

*** EXPRESSION TRUE
   setvar _cob_parm _cob_parm+$02
   file coblist=myobject
   endif
if "mylist" <> "" then
*** EXPRESSION TRUE
   setvar _cob_parm _cob_parm+$08
   file cobmast=mylist

This is bizarre!


Anyway to get it to work for now.

File mylist= DISCTST.LST.RSEN,new;rec=-132,1,f,ascii;disc=10000;save
:COB85XL DISCTST,DISCTST.OBJ.RSEN,*mylist

That should get you going.

Mark Ranft

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

ATOM RSS1 RSS2