Extracting result file from Time History postprocess in ANSYS APDL

[sachin46]

Dear all,
I am working on trasient analysis problem in ANSYS.In which I am interested to extract the result file from Time History post processer.The file can be saved through GUI i.e. TimeHist Postpro ----> export data option.
The same thing I am intrested through APDL which is working well if i run following macro once solution complete
-----------------------------------------------
resume,shell181,db
/post26
FILE,'shell181','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
NSOL,2,10,U,Z, UZ_2,
*DEL,_P26_EXPORT
*DIM,_P26_EXPORT,TABLE,5000,1
VGET,_P26_EXPORT(1,0),1
VGET,_P26_EXPORT(1,1),2
/OUTPUT,'vertical_deflection','txt','.'
*VWRITE,'TIME','UZ_2'
%14C %14C
*VWRITE,_P26_EXPORT(1,0),_P26_EXPORT(1,1)
%14.5G %14.5G
/OUTPUT,TERM
--------------------------------------------
But if I am doing same thing in complete transient analysis macro it is not working , The macro is described below,

resume,shell181,db,
/PREP7
/SOLU
ANTYPE,4
TRNOPT,MSUP, , , ,1
LUMPM,0
TRNOPT,MSUP,4, ,1,1

MDAMP,1, , ,0.008,0.007,,

/solu
OUTRES,ERASE
OUTRES,ESOL,last,A_RES
*do,i,1,500,1
j=(2*i-1)
/INPUT,'force%j%','mac','',1,0
TIME,(j/1000)
AUTOTS,-1
DELTIM,0.001, , ,1
KBC,0
!*
TSRES,ERASE
LSWRITE,j,
FDELE,ALL,ALL
*enddo
lssolve,1,999,2
finish
/post26
FILE,'shell181','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
NUMVAR,200
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
NSOL,2,9,U,Z, UZ_2,
STORE,MERGE
XVAR,1
PLVAR,2,
*DEL,_P26_EXPORT
*DIM,_P26_EXPORT,TABLE,5000,1
VGET,_P26_EXPORT(1,0),1
VGET,_P26_EXPORT(1,1),2
/OUTPUT,'vertical_deflection','txt','.'
*VWRITE,'TIME','UZ_2'
%14C %14C
*VWRITE,_P26_EXPORT(1,0),_P26_EXPORT(1,1)
%14.5G %14.5G
/OUTPUT,TERM

If anybody can help me to find out reason I will appreacite the same.
waiting for reply
regards,
SACHIN46