HP3000-L Archives

August 1997, Week 3

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:
Michael J Anderson <[log in to unmask]>
Reply To:
Michael J Anderson <[log in to unmask]>
Date:
Fri, 15 Aug 1997 21:22:14 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (44 lines)
Larry Boyd wrote:
>
> On 30 Dec 96 at 19:19, Don Paterwic wrote:
>
> > Is it posssible to call this quiz
> > program (executable) from a cobol program and use quizes output
> > result to a file?                  Thanks
>
> Don,
>
> You also set the parm (16-bit integer) to 10,000.  The only
> 'gotcha' with COBOL was setting the parm to 10,000.  In the old COBOL,
> you could only set the value to 9999 (variable is defined as 9999
> comp).


Use the CREATEPROCESS intrinsic to start your QUIZ, this intrinsic
allows you to redirect $STDIN and $STDLIST anywhere you want. Also, I
know someone who is working on a subroutine (to be called from COBOL, C,
FORTRAN, or whatever you use) that will return the record format
(including the definition of each item with in the record) of any COGNOS
subfile. If your interested I'll let you know when he's finished with
it.


The current rules for COBOL 16-bit s9(4) comp is: Any value with more
than four digits will be truncated when you use the MOVE verb!

If you do computations with this s9(4) comp, all 16-bits will be used
giving you the full 16-bit range.

Example:

 01 mybytes pic s9(4) comp value 0.

      MOVE 10000 to MYBYTES. << The value of MYBYTES is still zero. >>

      COMPUTE MYBYTES = 0 + 10000 << The value of MYBYTES is now 10000
>>


Regards,
Michael Anderson,

ATOM RSS1 RSS2