/******************************************************************************
 * Programme : Anwenden von Bezeichnungen und Formaten
 * Reference : ANWEND75E4
 * Source    : https://www.wearecas.eu/de/sampleCode/ANWEND75E4
 ******************************************************************************/

/* --- BLOC 1 --- */
data work.creditscores;
    input Customer_Name $ Payment_History Credit_Score Total_Debt State_FIPS Region_FIPS Age Income;
    datalines;
"John Doe" 0.95 750 15000 12345 67890 35 60000
"Jane Smith" 0.80 680 25000 54321 09876 42 80000
"Peter Jones" 0.90 700 10000 98765 43210 28 45000
"Alice Brown" 0.70 600 30000 11223 44556 50 90000
;
run;

proc cas;
   table.alterTable / columns={
      {label="Customer Name", name="Customer_Name"},
      {label="Payment History", format="percent.", name="Payment_History"},
      {label="Credit Score", name="Credit_Score"},
      {label="Total Debt", format="dollar10.", name="Total_Debt"},
      {label="State FIPS", name="State_FIPS"},
      {format="dollar10.", name="Income"},
      {label="Region FIPS", name="Region_FIPS"}},
   name="creditscores";
   table.fetch / table="creditscores"
   fetchvars={"Customer_Name", "State", "Age", "Income",
              "Payment_History", "Credit_Score", 
              "Total_Debt", "State_FIPS", "Region_FIPS"},
index=false;
quit;