Hello,
We are migrating from RJE to FTP and have had success except when we
are trying to get a file that is in EBCDIC format. The file also has
some comp data fields but the first 40 characters are not comp. With the
FTP method the result is that the first 40 characters are garbage. Has
anyone used FTP to pick up EBCDIC files?
Thanks in advance,
Derrick Tietz

R J E   C O M M A N D S
!RJE
RJLINE 3780;LINECODE=EBCDIC;CONNECT=DIAL,"XXXXXXXXXXXX",V.25,ASCII;&
DEV=151;XEND
RJIN THCTX1.DATA; COMPRESS=NO; XPARENT=NO ;TRUNCATE=NO ;ETX
RJOUT THFILE; OUTSIZE=-936;OUTCODE=BINARY;WAIT=60
RJCOMMENT RJIN CLOGOFF;COMPRESS=NO; XPARENT=NO ;TRUNCATE=NO
RJEOD
RJSTAT
RJEND

FROM=THFILE.DATA;TO=THEFILE2;EBCDICIN=(41:812;818:829;860:936),EXCLUDE;
&
                          DEBLOCK=-936

R J E   R E S U L T

-----Copying THEFILE2.TEST.CREATIVE     => $STDLIST
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999
*200*WARNING: FROMFILE RECSIZE IS 936 BYTES, TOFILE RECSIZE IS 80
BYTES.
CONTINUE OPERATION (Y OR N) ?Y

99             05     98
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
06050021352    06 01F3030000            ' í¡  ?p
06050371423    06 11C5030000            ?+O-X!
3 RECORDS PROCESSED *** 0 ERRORS



F T P   C O M M A N D S
!FTP
      EXITONERROR
      open ftp.XX.xxxxx.COM
      user xxxxxxxx xxxxxxxx
      get MSXFSE.txt THFILE.DATA;REC=-936,,F,BINARY
      close

FROM=THFILE.DATA;TO=THFILE2;EBCDICIN=(41:812;818:829;860:936),EXCLUDE;
&
                          DEBLOCK=-936

F T P   R E S U L T
-----Copying THEFILE2.TEST.CREATIVE         => $STDLIST
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999
*200*WARNING: FROMFILE RECSIZE IS 936 BYTES, TOFILE RECSIZE IS 80
BYTES.

99             05     98
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ßó  ?8
` +@!%+ihít| - '"H
3 RECORDS PROCESSED *** 0 ERRORS

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *