FIELD:NAMEC FIELD:TYPEC FIELD:LENN FIELD:DECN NUMBER C006000 DESC C030000 TRAN:DATE C008000 AMOUNT N010002STATE C002000 ZIP C010000 PHONE C014000 MEMB:TYPE C002000 APPL:DATE C008000 00937 00987 01098 01834 01864 02318 RE CATEGORY TO CAT STORE &CAT TO DEFA STORE SYS + TRIM(PROGRAM) TO PROG SET DEFAULT TO &DEFA DO &PROG SET DEFAULT TO &SYS SELECT PRIMARY STORE "DSPROG" TO DSFILE USE &SYS&DSFILE REPLACE PROGRAM WITH OLDMENU CL