Hello,
you may use the following REXX to do this job. AFAIK this program uses
the german code table, but this may easily changed.
/** REXX *************************************************************/
/*-------------------------------------------------------------------*/
/*! FA#ASCII !*/
/*! FA#ASCII - Convert EBCDIC to ASCII (adding CR/LF) !*/
/*! Author: Kehr 06/09/2005 !*/
/*! Category: 1 !*/
/*-------------------------------------------------------------------*/
/*! Last changed: 06/09/2005 !*/
/*-------------------------------------------------------------------*/
/*! Description of changes: !*/
/*! 06/09/2005 First version !*/
/*********************************************************************/
say
say "Convert EBCDIC to ASCII - adding CR/LF V1.0.0 (06/09/2005)"
say
/*-------------------------------------------------------------------*/
/* Read input file */
/*-------------------------------------------------------------------*/
"EXECIO * DISKR SYSUT1 (STEM data. FINIS)"
/*-------------------------------------------------------------------*/
nb = 0
do j = 1 to data.0
data1.j = translate(strip(data.j),ebc2asc()) !! "0d0a"x
nb = nb + length(data1.j)
end
/*-------------------------------------------------------------------*/
"EXECIO * DISKW SYSUT2 (STEM data1. FINIS)"
say "ASCII001I" data.0 "records written to output file"
say "ASCII001I" nb "bytes written to output file"
/*-------------------------------------------------------------------*/
exit
/*--------------------------------------------------------------*/
/*! p r o c e d u r e ebc2asc !*/
/*--------------------------------------------------------------*/
/*------------------------------- REXX ---------------------------------
Konvertiertabelle EBCDIC -> ASCII
----------------------------------------------------------------------*/
ebc2asc:
return,
/*0 1 2 3 4 5 6 7 8 9 A B C D E F */,
"00 01 02 03 ec 09 ca 7f e2 d2 d3 0b 0c 0d 0e 0f"x !!,
"10 11 12 13 ef c5 08 cb 18 19 dc d8 1c 1d 1e 1f"x !!,
"b7 b8 b9 bb c4 0a 17 1b cc cd cf d0 d1 05 06 07"x !!,
"d9 da 16 dd de df e0 04 e3 e5 e9 eb b0 b1 9e 1a"x !!,
"20 ff 83 7b 85 a0 f2 86 87 a4 8e 2e 3c 28 2b 21"x !!,
"26 82 88 89 8a a1 8c 8b 8d 7e 9a 24 2a 29 3b 5e"x !!,
"2d 2f b2 5b b4 b5 b6 8f 80 a5 94 2c 25 5f 3e 3f"x !!,
"ba 90 bc bd be f3 c0 c1 c2 60 3a 23 15 27 3d 22"x !!,
"c3 61 62 63 64 65 66 67 68 69 ae af c6 c7 c8 f1"x !!,
"f8 6a 6b 6c 6d 6e 6f 70 71 72 a6 a7 91 ce 92 a9"x !!,
"e6 e1 73 74 75 76 77 78 79 7a ad a8 d4 d5 d6 d7"x !!,
"9b 9c 9d fa 9f 40 14 ac ab fc aa 7c e4 fe bf e7"x !!,
"84 41 42 43 44 45 46 47 48 49 e8 93 b3 95 a2 ed"x !!,
"81 4a 4b 4c 4d 4e 4f 50 51 52 ee 96 7d 97 a3 98"x !!,
"99 f6 53 54 55 56 57 58 59 5a fd f5 5c f7 f0 f9"x !!,
"30 31 32 33 34 35 36 37 38 39 db fb 5d f4 ea c9"x
/*0 1 2 3 4 5 6 7 8 9 A B C D E F */
Claudio Marcio schrieb:
Hello,
How do I convert a member with data EBCDIC to ASCII in the TSO
environment?
thanks
Claudio
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
___________________________________________________________________
Freundliche Gruesse / Kind regards
Dipl.Math. Juergen Kehr, IT Schulung & Beratung, IT Education + Consulting
Tel. +49-561-9528788 Fax +49-561-9528789 Mobil +49-172-5129389
ICQ 292-318-696 (JKehr)
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
___________________________________________________________________
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
