HP3000-L Archives

September 2002, Week 1

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:
Re: Are there any COBOL/BBXL Gurus out there?
From:
Greg Terterian <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Thu, 5 Sep 2002 14:16:09 EDT
Content-Type:
text/plain
Parts/Attachments:
text/plain (26 lines) 
How will you translate this to Business Basic?


01     PARM1                PIC S9(9).
01     RESULT               PIC S9(9).

01 PARM2.
    05  PARM2-FILLER1       PIC S9(4)   VALUE 2.
    05  PARM2-FILLER2       PIC S9(4)   VALUE 1234.
    05  PARM3-FILLER3       PIC S9(9)   VALUE 0.
    05  PARM3-FILLER4       PIC X(8)    VALUE SPACES.

01 PARM3                    PIC S9(9)   VALUE 16.

     CALL "PARMX" USING  \PARM1\
                         PARM2
                         \PARM3\
                 GIVING  RESULT.

Thank you in advance for your effort.

David

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

ATOM RSS1 RSS2