When transferring files between host and workstation, there is a translation 'bug' in WC3270 that inhibits the proper transfer of files with 80 character lines (Fixed/80) ending (on the workstation) in CR/LF. The workaround is to use a proper tool (Notepad++) to change the line-end to MAC (Carriage-Return | \r ) line-ends prior to attempting transfer using the transfer commands.
Sample Command-line parameters to dirmap.vbs
dirmap.vbs /directfile:"3380.direct.a.txt" /AllocMap:"141 241 34f 440 540 6f0 6a0 7a0" /herculesconf:"sixpack.3380.conf"
transfer host=vm "Direction=send" "LocalFile=sixpack.direct.a.txt" "HostFile=SIXPACKD DIRECT A1" Lrecl=80 CR=auto Recfm=fixed transfer host=vm "Direction=send" "LocalFile=sixpack.direct.b.txt" "HostFile=SIXPACKD DIRECT A1" mode=ascii recfm=fixed lrecl=80
transfer host=vm "Direction=receive" "LocalFile=sixpack.direct.a.txt" "HostFile=SIXPACK DIRECT A1" exist=replace transfer host=vm "Direction=receive" "LocalFile=dmksys.assemble.b.txt" "HostFile=DMKSYS ASSEMBLE B1" exist=replace transfer host=vm "Direction=receive" "LocalFile=dmksnt.assemble.b.txt" "HostFile=DMKSNT ASSEMBLE B1" exist=replace transfer host=vm "Direction=receive" "LocalFile=dmkrio.assemble.b.txt" "HostFile=DMKRIO ASSEMBLE B1" exist=replace transfer host=vm "Direction=receive" "LocalFile=$dmkdir.assemble.a.txt" "HostFile=$DMKDIR ASSEMBLE A1" exist=replace transfer host=vm "Direction=receive" "LocalFile=$dmkdio.assemble.a.txt" "HostFile=$DMKDIO ASSEMBLE A1" host=vm exist=replace
transfer host=vm "Direction=send" "LocalFile=sjz3380.direct.a.txt" "HostFile=SJZ3380 DIRECT A1" mode=ascii recfm=fixed lrecl=80 transfer host=vm "Direction=receive" "LocalFile=sjz3380.direct.b.txt" "HostFile=SJZ3380 DIRECT A1" exist=replace
transfer host=vm "Direction=send" "LocalFile=MAINTCPY.EXEC.A.txt" "HostFile=MAINTCPY EXEC A1" mode=ascii recfm=variable