| View previous topic :: View next topic |
| Author |
Message |
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
 Posted: Fri Jan 06, 2006 9:53 am Post subject: Connect:Direct Preserving EBCDIC coding from mainframe to NT |
 |
|
The situation is that I need to pass a file to an NT server by Connect:Direct. The file will then be processed by a printing sub-system that requires its input in EBCDIC. The file is in VB format.
I'm using these control cards:
| Code: | EDIT userid.FDIPRINT.DATALIB(SEND1) - 01.10 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 SIGNON
000002 DEL PROC WHERE(PNAME=TEST1)
000003 SUBMIT SNODE=ssssssssssssss -
000004 PROC=FDIREPT NEWNAME=TEST1 -
000005 PNODE=pppppppp -
000006 &SDSN1=CDIRECT.TEST.FDI.REPORT1.INPT.G0001V00 -
000007 &RDSN1=\'V:\\CDIRECT\\FDRCON\\REPORT1.TXT'\ -
000008 &JOBNAME=TEST1 -
000009 CASE=YES
000010 SIGNOFF
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
EDIT userid.FDIPRINT.DATALIB(FDIREPT) - 01.07 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 FDIREPT PROCESS
000002 STEP020 COPY FROM (PNODE DSN=&SDSN1 -
000003 DISP=SHR) -
000004 TO (SNODE DSN=&RDSN1 -
000005 SYSOPTS=\"STRIP.BLANKS(NO)"\ -
000006 DISP=RPL) -
000007 COMPRESS
****** ******************************** Bottom of Data ******************************** |
and it seems the file is arriving at the server in ASCII format.
Can anyone please tell me what I need to do to get the file there in EBCDIC format?
Cheers,
Merv |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Sun Jan 08, 2006 9:37 am Post subject: |
|
|
Mervyn,
May be you can use XLATE parm which controls ASCII/EBCDIC character translation.
From the manual
| Code: |
XLATE = no | yes specifies whether ASCII/EBCDIC character translation occurs. Can be a key word. Valid for HFS files only.
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Sun Jan 08, 2006 4:20 pm Post subject: |
|
|
Kolusu,
Yes, it's worth a try. I'll let you know.
It's really galling to be unable to see the file at the other end. I've no reason to doubt what I've been told, though.
Cheers,
Merv
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Mon Jan 09, 2006 7:07 am Post subject: |
|
|
This did the trick:
| Code: | | SYSOPTS=\"DATATYPE(BINARY) STRIP.BLANKS(NO) XLATE(NO)"\ |
I'm not convinced the STRIP.BLANKS bit is necessary, but I think I'll just leave it in!
Thanks for your help.
Merv
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
