Re: COBOL Quest

[Terry Grider <tgrider@xxxxxxxxxxxx>]

Erick Garske wrote:

> 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?

   COMP or the long version COMPUTATIONAL, also in newer versions   BINARY 
works too.

> 2) How is an ASCII 27 represented in working storage?

  Hex literals are allowable such as VALUE X'27' or before the  days of hex 
literals, you could use a comp field with a value clause
  that supplied the binary equivalent of the hex value you wanted
  and redefine it as a charactor field such as ....

  01  WORK-FIELDS.
        03  WS-HEX-FIELD.
              05  FILLER              PIC X.
              05  WS-HEX-27      PIC X.
         03  WS-COMP-FIELD  REDEFINES  WS-HEX-FIELD
                                                PIC S9(04) COMP VALUE 0039.

> 3) With the proper linkage parameters set up can an RPG program call
> a    COBOL/400 program?

    Should be no problem.

> 4) Can an COBOL EVALUATE statement which uses one var (maybe more) be
> as    flexable as an RPG SELECT statement.

   Not sure I can answer this one, can you be more specific?

>
>
> Thanks in advance for any insights.
>
> Regards,
> Erick
>
>   
>------------------------------------------------------------------------------------------------------------------------------------------------------
>
>   Erick Garske <egarske@cts.com>
>   District Information Systems Consulting

+---
| 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
+---