RE: COBOL Quest -- MIDRANGE-L

Eric,

1) How is binary data represented in working storage? COMP?
     A binary field, s9(4) binary is a two byte binary halfword field
that can range from -32767 to +32767 this is the
     same as s9(4) comp.
2) How is an ASCII 27 represented in working storage?
     An ASCII 27 is an ESC but in EBCDIC it is a CU1 you will probably
need to ensure that it converts to a hex'27'
     which is the EBCDIC equivalent.
3) With the proper linkage parameters set up can an RPG program call a
COBOL/400 program?
     Yup under ILE no problem also under OPM there is no problem that
I know of  off the top of my head (????) 
4) Can an COBOL EVALUATE statement which uses one var (maybe more) be
as flexable as an RPG SELECT 
    statement.
    Yup but a bit more verbose eg..  Evaluate SOMETHING
                                           When COND1 
                                                Do something
                                            When COND2
                                                Do something else
                                            When Other
                                                Perhaps this is an
error
                                        End Evaluate             

______________________________________________________________________
___
Howard Weatherly

hweatherly@dlis.dla.mil
howard.weatherly@ctg.com
hweath@ibm.net

X4324

 <<COBOL Quest>>

Subject: COBOL Quest
From: Erick Garske <egarske@xxxxxxx>
Date: Mon, 31 Aug 1998 11:05:59 -0400

This message uses a character set that is not supported by the
Internet Service.  To view the original message content,  open the
attached message. If the text doesn't display correctly, save the
attachment to disk, and then open it using a viewer that can display
the original character set. <<message.txt>>

Received: from Kitten.mcs.com ([192.160.127.90]) by dlscex1.dlsc.dla.mil with 
SMTP (Microsoft Exchange Internet Mail Service Version 5.5.1960.3)
        id R7RDR609; Tue, 1 Sep 1998 00:00:43 -0400
Received: from uucphost.mcs.net (Uucp1.mcs.net [192.160.127.93]) by 
Kitten.mcs.com (8.8.7/8.8.2) with ESMTP id XAA29189; Mon, 31 Aug 1998 23:01:02 
-0500 (CDT)
Received: (from uucp@localhost)
        by uucphost.mcs.net (8.8.8/8.8.8) id XAA05096;
        Mon, 31 Aug 1998 23:01:01 -0500 (CDT)
Received: (from majordom@localhost)
        by midrange.com (8.9.1/8.8.8) id WAA04788
        for midrange-l-outgoing; Mon, 31 Aug 1998 22:46:08 -0500
Received: (from uucp@localhost)
        by midrange.com (8.9.1/8.8.8) with UUCP id WAA04757
        for midrange-l@midrange.com; Mon, 31 Aug 1998 22:32:23 -0500
Received: from mh2.cts.com (mh2.cts.com [209.68.192.68])
        by uucphost.mcs.net (8.8.8/8.8.8) with ESMTP id WAA03073
        for <midrange-l@midrange.com>; Mon, 31 Aug 1998 22:10:42 -0500 (CDT)
Received: from cts.com (psc6160027.cts.com [204.216.160.27]) by mh2.cts.com 
(8.8.7/8.8.5) with ESMTP id UAA05987 for <midrange-l@midrange.com>; Mon, 31 Aug 
1998 20:10:40 -0700 (PDT)
Message-ID: <35EABBD7.F2DA70@cts.com>
Date: Mon, 31 Aug 1998 08:05:59 -0700
From: Erick Garske <egarske@cts.com>
Organization: FORMation mg
X-Mailer: Mozilla 4.5b1 [en] (Win95; I)
X-Accept-Language: en
MIME-Version: 1.0
To: Midrange List <midrange-l@midrange.com>
Subject: COBOL Quest
Content-Type: multipart/mixed;
 boundary="------------DC4B2D13FB58EAC09A6BECC5"
Sender: owner-midrange-l@midrange.com
Precedence: bulk
Reply-To: MIDRANGE-L@midrange.com
X-List-Name: Midrange Systems Mailing List (MIDRANGE-L@midrange.com)

This is a multi-part message in MIME format.
--------------DC4B2D13FB58EAC09A6BECC5
Content-Type: text/plain; charset=x-user-defined
Content-Transfer-Encoding: 7bit

Cutting my teeth in COBOL converting an application from RPG am
searching for a couple of answers. 

1) How is binary data represented in working storage? COMP?
2) How is an ASCII 27 represented in working storage?
3) With the proper linkage parameters set up can an RPG program call
a    COBOL/400 program?
4) Can an COBOL EVALUATE statement which uses one var (maybe more) be
as    flexable as an RPG SELECT statement.

Thanks in advance for any insights.

Regards,
Erick
--------------DC4B2D13FB58EAC09A6BECC5
Content-Type: text/x-vcard; charset=x-user-defined;
 name="egarske.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Erick Garske
Content-Disposition: attachment;
 filename="egarske.vcf"

begin:vcard
n:Garske;Erick
x-mozilla-html:FALSE
org:District Information Systems Consulting
adr:version:2.1
version:2.1
email;internet:egarske@cts.com
fn:Erick Garske
end:vcard


--------------DC4B2D13FB58EAC09A6BECC5--

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---