! Include the format from the screen that holds the Customer Code
I101 FORMAT INCLUDE #I4FCUST, OPT="NONE"
I102 LET START-CODE = #I4FCUST.CUST-CODE
! Customer Code different size in each file.
LN UTCUST SELECT WHEN CUST-CODE = START-CODE(1,4)
H LL-RRRRRR XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
D XXXX $###,###.00
D XXXXXXXXXXXXXXXXXXXX, XX XXXXXXXXXX
FORMAT INCLUDE #I4FCUST ! Include customer format
DIM SCREEN$ ! Dimension array
LET SCREEN$=$01$ ! Fields to maintain
LET SCREEN$="YY Y" ! Screen inicators
LET SCREEN$="F" ! set to logical screen
CONNECT SCREEN "I4SCUST" ! Connect to the Screen for Input
CONNECT REPORT "I4RCUSTF" ! Connect to the Report