Hi rick, I found this article very helpful.
Thanks for great work.
Is there any way I can plot this type of graph with my test data set?

ods graphics on;
proc logistic data=c.trainset plots(maxpoints=none)=calibration(CLM ShowObs );
score data=c.testset; /*I want to draw calibration plot of test set with predicted probability estimated by parameters of trainset */
model outcome(event='1')=score_total/GOF;
run;