Thank you, thank you, thank you!!!!!  🙂 ... View more

Woot!  That is great - thank you so much! I just have one follow up question... I coded my own export as follows, but I'm only getting the first record in the export. Can  you tell me how to fix my make-shift code so that all of the records are exported? Thanks so much - you are a lifesaver! Barb   data _null_; %let _EFIERR_ = 0; /* set the ERROR detection macro variable */ %let _EFIREC_ = 0; /* clear export record count macro variable*/ file '/sasem/gbmkuser/client/incrmtl_ieid_98233475.txt' delimiter='09'x DSD lrecl=32767; if _n_ = 1 then /* write column names or labels */ do; put "CURR_RCD_IND" '09'x "INDIV_ENTPR_ID" '09'x "CHNL_SRC_CD" '09'x "CLIENT_ID" '09'x "CLIENT_ACCT_NUM" '09'x "PRODT_CTGRY_CD" '09'x "CLIENT_BEN_KEY" '09'x "BEN_PLAN_NUM" '09'x "CUST_ELGBTY_CVRG_EFF_DT" '09'x "CUST_ELGBTY_CVRG_TERM_DT" '09'x "RCD_EFF_TS" '09'x "RCD_TERM_TS" '09'x "CUST_INTGRD_DTL_SV_EFF_DT" '09'x "CUST_INTGRD_DTL_SV_TERM_DT" '09'x "PRODT_FAM_CD" '09'x "PRODT_TY_CD" '09'x "CVRG_BEHVRAL_IND" '09'x "CVRG_DENT_IND" '09'x "CVRG_MED_IND" '09'x "CVRG_PHRM_IND" '09'x "CVRG_VSN_IND" '09'x "CVRG_EAP_IND" '09'x "CUST_INTGRD_DTL_INCRMTL_SV_KEY" '09'x "CRET_TS" '09'x "UPDT_TS" ; end; set CLIENT.IEID_98233475_INCRMTL end=EFIEOD; format CURR_RCD_IND $1. ; format INDIV_ENTPR_ID $40. ; format CHNL_SRC_CD $10. ; format CLIENT_ID $10. ; format CLIENT_ACCT_NUM $10. ; format PRODT_CTGRY_CD $30. ; format CLIENT_BEN_KEY $32. ; format BEN_PLAN_NUM $10. ; format CUST_ELGBTY_CVRG_EFF_DT yymmdd10. ; format CUST_ELGBTY_CVRG_TERM_DT yymmdd10. ; format RCD_EFF_TS E8601DT26.6 ; format RCD_TERM_TS E8601DT26.6 ; format CUST_INTGRD_DTL_SV_EFF_DT yymmdd10. ; format CUST_INTGRD_DTL_SV_TERM_DT yymmdd10. ; format PRODT_FAM_CD $30. ; format PRODT_TY_CD $30. ; format CVRG_BEHVRAL_IND $1. ; format CVRG_DENT_IND $1. ; format CVRG_MED_IND $1. ; format CVRG_PHRM_IND $1. ; format CVRG_VSN_IND $1. ; format CVRG_EAP_IND $1. ; format CUST_INTGRD_DTL_INCRMTL_SV_KEY $32. ; format CRET_TS E8601DT26.6 ; format UPDT_TS E8601DT26.6 ; do; EFIOUT + 1; put CURR_RCD_IND $ @; put INDIV_ENTPR_ID $ @; put CHNL_SRC_CD $ @; put CLIENT_ID $ @; put CLIENT_ACCT_NUM $ @; put PRODT_CTGRY_CD $ @; put CLIENT_BEN_KEY $ @; put BEN_PLAN_NUM $ @; put CUST_ELGBTY_CVRG_EFF_DT @; put CUST_ELGBTY_CVRG_TERM_DT @; put RCD_EFF_TS @; put RCD_TERM_TS @; put CUST_INTGRD_DTL_SV_EFF_DT @; put CUST_INTGRD_DTL_SV_TERM_DT @; put PRODT_FAM_CD $ @; put PRODT_TY_CD $ @; put CVRG_BEHVRAL_IND $ @; put CVRG_DENT_IND $ @; put CVRG_MED_IND $ @; put CVRG_PHRM_IND $ @; put CVRG_VSN_IND $ @; put CVRG_EAP_IND $ @; put CUST_INTGRD_DTL_INCRMTL_SV_KEY $ @; put CRET_TS @; put UPDT_TS @; ; end; if _ERROR_ then call symputx('_EFIERR_',1); /* set ERROR detection macro variable */ if EFIEOD then call symputx('_EFIREC_',EFIOUT); run; ... View more

Hi Tom! In your reply, it looks like there is a format  E8601DT26.6 that would do what I need. Is that correct? Thanks so much, Barb ... View more