Put into your REXX TOASCII: TRACE N /* 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F */ RETURN TRANSLATE(ARG(1),, '00010203CF09D37FD4D5C30B0C0D0E0F10111213C7B408C91819CCCD831DD21F'x||, '81821C84860A171B89919295A2050607E0EE16E5D01EEA048AF6C6C21415C11A'x||, '20A6E180EB909FE2AB8B9B2E3C282B7C26A9AA9CDBA599E3A89E21242A293B5E'x||, '2D2FDFDC9ADDDE989DACBA2C255F3E3FD78894B0B1B2FCD6FB603A2340273D22'x||, 'F861626364656667686996A4F3AFAEC58C6A6B6C6D6E6F7071729787CE93F1FE'x||, 'C87E737475767778797AEFC0DA5BF2F9B5B6FDB7B8B9E6BBBCBD8DD9BF5DD8C4'x||, '7B414243444546474849CBCABEE8ECED7D4A4B4C4D4E4F505152A1ADF5F4A38F'x||, '5CE7535455565758595AA0858EE9E4D130313233343536373839B3F7F0FAA7FF'x) /*-End of TOASCII function-------------------------------------------*/ /*RXCOPY TOEBCDIC **** 21 LINES COPIED ON 12-17-98 AT 20:11************/ /*-Start of TOEBCDIC function---------------------------Version-01.02-*/ /*:TOEBCDIC Function: Returns an EBCDIC string equivalent to the */ /* ASCII string passed to it. */ /* Parms: 1 positional parm, ASCII text. */ /* Returns: EBCDIC text. */ /* Example: SAY TOEBCDIC(input.i) */ /*--------------------------------------------------------------------*/ TOEBCDIC: TRACE N /* 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F */ RETURN TRANSLATE(ARG(1),, '00010203372D2E2F1605250B0C0D0E0F101112133C3D322618193F27221D351F'x||, '405A7F7B5B6C507D4D5D5C4E6B604B61F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F'x||, '7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F6D'x||, '79818283848586878889919293949596979899A2A3A4A5A6A7A8A9C04FD0A107'x||, '4320211C23EB249B7128384990BAECDF45292A9D722B8A9A6756644A53685946'x||, 'EADA2CDE8B5541FE5851524869DB8E8D737475FA15B0B1B3B4B56AB7B8B9CCBC'x||, 'AB3E3B0ABF8F3A14A017CBCA1A1B9C0434EF1E0608097770BEBBAC5463656662'x||, '30424757EE33B6E1CDED3644CECF31AAFC9EAE8CDDDC39FB80AFFD7876B29FFF'x) /*-End of TOEBCDIC function-------------------------------------------*/
________________________________ From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Schuh, Richard Sent: Monday, March 05, 2007 6:56 PM To: [email protected] Subject: FTP Linux - CMS We have a need to transfer text files (extension of TXT) from Linux (running in an IFL LPAR) to CMS. The FTP is to be initiated by the CMS user. The files are ASCII, as you might expect. The lines/records end in a LineFeed (0A). I have not been able to come up with a way to translate the data from ASCII to EBCDIC and write the records to a CMS file in the FTP. I can transfer the file as "BINARY F nn" records and pass the resultant file through a pipe ("PIPE < file | strip trailing 00 | deblock linend 0a | xlate a2e | > newfile") that does the job, but it seems that there ought to be a way to accomplish the entire job in FTP. Everything I have tried other than the "BINARY F nn" results in a message that the stream is too big. What am I missing? Regards, Richard Schuh ------------------------------------------------------------------------------------------- ***National City made the following annotations ------------------------------------------------------------------------------------------- This communication is a confidential and proprietary business communication. It is intended solely for the use of the designated recipient(s). If this communication is received in error, please contact the sender and delete this communication. ===========================================================================================
