!ERROR=47  (Substring or template field error)
0121 IF POS(CUST_CD$(1,1)="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")=0 THEN LET Z
0121:Z$="0" ELSE LET ZZ$=CUST_CD$(1,1)

READY
>