Screen Question

[stewm@canada.com]

Anthony,

Something like this maybe?  You'd have to fill in the
right table name and database of course...and customize
to your index values.

FILE CLIENT_BRANCH IN DATABASE PRIMARY
   ACCESS VIA CLIENT_CODE,BRANCH_CODE      &
          USING CLIENT_CODE,BRANCH_CODE    &
          ORDERBY CLIENT_CODE, BRANCH_CODE &
          REQUEST CLIENT_CODE, BRANCH_CODE 

FILE CLIENT_BRANCH IN DATABASE DETAIL &
   ALIAS CLIENT_BRANCH_DET OCCURS 15 NOITEMS
   ACCESS VIA   CLIENT_CODE,               &
                BRANCH_CODE                &
          USING CLIENT_CODE OF CLIENT_BRANCH,    &
                BRANCH_CODE OF CLIENT_BRANCH
   ITEM CLIENT_CODE OF CLIENT_BRANCH_DET &
        INITIAL CLIENT_CODE OF CLIENT_BRANCH FIXED

   ITEM BRANCH_CODE OF CLIENT_BRANCH_DET
        INITIAL BRANCH_CODE OF CLIENT_BRANCH FIXED

SKIP TO LINE 4
ALIGN(?,?,?)(?,?,?)
FIELD CLIENT_CODE OF CLIENT_BRANCH &
  REQUIRED NOCHANGE

FIELD BRANCH_CODE OF CLIENT_BRANCH &
  REQUIRED NOCHANGE UPSHIFT 

ALIGN (?,?,?) (?,?,?)
CLUSTER AT ?,? OCCURS WITH CLIENT_BRANCH_DET

FIELD RATE_AMT OF CLIENT_BRANCH_DET REQUIRED 
FIELD FUNCTION_CODE OF CLIENT_BRANCH_DET REQUIRED

CLUSTER

PROCEDURE SECTION...

BUILD

Mark Stewart
1-519-739-0297
IT Consultant
Consultants Club Corp.
Tecumseh, Ontario
www.consultantsclub.biz