Code to find all Subcases ids in Hyperview

Can some would suggest me script for read and write all the subcase names and their respective ids, for now to get all subcases names, I am using-

hwi GetSessionHandle mySessionName

mySessionName GetDataFileHandle myDataFile $op2File
    
set subcase_list [myDataFile GetSubcaseList] 
puts 'subcase_list $subcase_list'

can some suggest script or code to find all Subcases ids with minimal changes in above.