Re:If statements again..

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

>
>I would like to know if is there any new answer to eliminate IF statements
>in this case.
>
>I have 100 pairs of field names and values.  These field names are from a
>record format.
>
>Example: The following is an example of three pairs (in two arrays arrayA
>and arrayB)
>
>          arrayA,001: 'CUSTID'           arrayB,001: '001'
>          arrayA,002: 'CUSTNAME'   arrayB,002: 'JOHN'
>          arrayA,003: 'CUSTADDR'   arrayB,003: '123 EUCLID BLV., IRVINE, CA
>92000'
>
>
>Currently, I have to key 100 IF statements.  And every time we expand the
>data structure, I have to add one more IF statement.
>
>Example: 100 IF statements in a do loop
>
>
>     arrayA,index   IFEQ 'CUSTNAME'
>               MOVEL     arrayB,index         CUSTNAME
>               ENDIF
>
>Is there any better way ?

It depends on what you need to do with these names.
One possibility is to simply put them in a database file:

CUSTID   *CHAR  3
CUSTNAME *CHAR 30
CUSTADDR *CHAR 30

001  John Doe    555 Main St
002  John Smith  20 Broadway

then you simply read the records in your DO loop

        SETOF                 30
  *IN30 DOWEQ *OFF
        READ CUSTFILE         30
30      LEAVE
* Fields CUSTID, CUSTNAME and CUSTADDR are populated,
* now process the record
        WRITEPRTNAM
        ENDDO

Hope this helps

Buck Calabro
Commsoft, Albany, NY

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@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
+---