RPGLE C*======================================= C* /DOWDTA01= Download data based C*======================================= CSR /DOWDTA01 BEGSR C* /free close(e) TMHR05501 ; xxSTAT = 'STRPCCMD PCCMD('Q:/PS400/PROGRAM/HR055C.BAT') PAUSE(*NO)'; qcmdexc (xxSTAT : %size(xxSTAT)) ; open(e) TMHR05501 ; /end-free C* CSR ENDSR BAT @echo off @call MD C:/TEMP/MIS/Report @call RTOPCB /S /I Q:/PS400/PROGRAM/HR05501.DTF @exit DTF [DataTransferFromAS400] Version=1.2 [HostInfo] HostName=PEPS400 HostFile=TMHR05501 [ClientInfo] OutputDevice=2 PCFileType=16 PCFile=C:/TEMP/MIS/Report/TMHR05501.XLS CrtOpt=1 SaveFDF=0 FDFFile= ConvType=1 ASCIITruncation=1 FileOps=8281471 [SQL] Select=* Where= OrderBy= GroupBy= Having= JoinBy= SQLSelect= EnableGroup=0 MissingFields=0 [Options] IgnoreDecErr=1 TimeSep=[:] TimeFmt=HMS DateSep=[/] DateFmt=MDY DecimalSep=. SortSeq=0 SortTable= Lang=0 LangID= [HTML] AutoSize=0 AutoSizeKB=128 OverWrite=1 Charset= ConvInd=0 Title= IncDateTime=0 DateTimeLoc=0 TabAlign=0 TabRows=2 TabCols=2 TabBW=1 TabCS=1 TabCP=1 TabWidth=100 TabWidthP=0 TabMap=1 CapAlign=0 CapStyle=1 CapSize=6 CapIncNum=0 Caption= RowAlignHdrV=0 RowAlignHdrH=0 RowAlignGenV=0 RowAlignGenH=0 RowSytleHdr=1 RowStyleGen=1 CellAlignT=0 CellAlignN=0 CellWrap=1 CellSize=6 UseTemplate=0 Template= TemplateTag= [Properties] Check4Untrans=1 Convert65535=1 UseAlias=1 Notify=1 SQLStmt=0 AutoRun=1 AutoClose=1 ShowWarnings=0 UserOption=0