Re: COBOL Question

Varma M V N wrote:

> Obviously I'm trying to avoid code like this -
>         If condition1 then
>                 Move from logical1 fields to subfile fields
>         else if condition2 then
>                 Move from logical2 fields to subfile fields
>         else if condition3 then
>                 Move from logical3 fields to subfile fields
>         else if condition4 then
>                 Move from logical4 fields to subfile fields
>         Endif
>
>  I'm looking for some solution like this -
>         If condition1 then
>                 Select logical1
>         else if condition2 then
>                 Select logical2
>         else if condition3 then
>                 Select logical3
>         else if condition4 then
>                 Select logical4
>       Endif
>         Move file fields to subfile fields
>
> Is it possible? If so how?

You bet it's possible.  What you want is the read into verb.

if  cond-1
then  read logical-1 into record-buffer
else if cond-2
then read logical-2 into record-buffer

etc.


Note.  The record buffer can be defined by copy of the physical file format.  
The
caveat here is that the logical formats must all match the physical formats, or
at least all the logicals you read from must have the same format and then you
can map the record-buffer from one of the logicals.

b.
--
===========================================================
R. Bruce Hoffman, Jr. -- IBM Certified AS/400 Administrator

-- The sum of all human knowledge is a fixed constant.
    It's the population that keeps growing!


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