All:

I am building a branch table like this:

FUNC         DS    CL10

FUNCTBL   DS   0H
                    DC  'INIT      'A(INIT_DSP)
......etc
TBLENT      DS   F'5'

------------------------------------------------------------------------------

                    LA        R4,FUNCTBL
                    L          R5,TBLENT
LOOPTBL   DS       0H
                   CLC     FUNC,0(R4)
                   BE       FOUND_IT

FOUND_IT DS       0H
                   LA        R4,10(R4)
                   L          R14,R4
                   BALR  R14,R15


Is my logic correct ? or did i miss something ?

Regards,
Scott

Reply via email to