You can use FCOPY (which uses CTRANSLATE) to do the translasion.
fcopy from=ascii;to=ebcdic;ebcdicout;new
where,
DEV:MISC:hexdump ascii
0: 0001 0203 0405 0607 0809 0a0b 0c0d 0e0f - ................ Rec# 0
010: 1011 1213 1415 1617 1819 1a1b 1c1d 1e1f - ................
020: 2021 2223 2425 2627 2829 2a2b 2c2d 2e2f - !"#$%&'()*+,-./
030: 3031 3233 3435 3637 3839 3a3b 3c3d 3e3f - 0123456789:;<=>?
040: 4041 4243 4445 4647 4849 4a4b 4c4d 4e4f - @ABCDEFGHIJKLMNO
050: 5051 5253 5455 5657 5859 5a5b 5c5d 5e5f - PQRSTUVWXYZ[\]^_
060: 6061 6263 6465 6667 6869 6a6b 6c6d 6e6f - `abcdefghijklmno
070: 7071 7273 7475 7677 7879 7a7b 7c7d 7e7f - pqrstuvwxyz{|}..
080: 8081 8283 8485 8687 8889 8a8b 8c8d 8e8f - ................
090: 9091 9293 9495 9697 9899 9a9b 9c9d 9e9f - ................
0a0: a0a1 a2a3 a4a5 a6a7 a8a9 aaab acad aeaf - ÀÂÈÊËÎÏ´`^¨~ÙÛ£
0b0: b0b1 b2b3 b4b5 b6b7 b8b9 babb bcbd bebf - ¯Ýý°ÇçÑñ¡¿¤£¥§?¢
0c0: c0c1 c2c3 c4c5 c6c7 c8c9 cacb cccd cecf - âêôûáéóúàèòùäëöü
0d0: d0d1 d2d3 d4d5 d6d7 d8d9 dadb dcdd dedf - ÅîØÆåíøæÄìÖÜÉïßÔ
0e0: e0e1 e2e3 e4e5 e6e7 e8e9 eaeb eced eeef - ÁÃãÐðÍÌÓÒÕõ??Ú?ÿ
0f0: f0f1 f2f3 f4f5 f6f7 f8f9 fafb fcfd feff - Þþ·µ¶¾¼½ªº« »±.
DEV:MISC:hexdump ebcdic
0: 0001 0203 372d 2e2f 1605 250b 0c0d 0e0f - ....7-./..%..... Rec# 0
010: 1011 1213 3c3d 3226 1819 3f27 1c1d 1e1f - ....<=2&..?'....
020: 404f 7f7b 5b6c 507d 4d5d 5c4e 6b60 4b61 - @O.{[lP}M]\Nk`Ka
030: f0f1 f2f3 f4f5 f6f7 f8f9 7a5e 4c7e 6e6f - Þþ·µ¶¾¼½ªz^L.no
040: 7cc1 c2c3 c4c5 c6c7 c8c9 d1d2 d3d4 d5d6 - |êôûáéóúàèîØÆåíø
050: d7d8 d9e2 e3e4 e5e6 e7e8 e94a e05a 5f6d - æÄìãÐðÍÌÓÒÕJÁZ_m
060: 7981 8283 8485 8687 8889 9192 9394 9596 - y...............
070: 9798 99a2 a3a4 a5a6 a7a8 a9c0 6ad0 a107 - ...ÂÈÊËÎÏ´`âjÅÀ.
080: 2021 2223 2415 0617 2829 2a2b 2c09 0a1b - !"#$...()*+,...
090: 3031 1a33 3435 3608 3839 3a3b 0414 3ee1 - 01.3456.89:;..>Ã
0a0: 4142 4344 4546 4748 4951 5253 5455 5657 - ABCDEFGHIQRSTUVW
0b0: 5859 6263 6465 6667 6869 7071 7273 7475 - XYbcdefghipqrstu
0c0: 7677 7880 8a8b 8c8d 8e8f 909a 9b9c 9d9e - vwx.............
0d0: 9fa0 aaab acad aeaf b0b1 b2b3 b4b5 b6b7 - . ^¨~ÙÛ£¯Ýý°ÇçÑñ
0e0: b8b9 babb bcbd bebf cacb cccd cecf dadb - ¡¿¤£¥§?¢òùäëöüÖÜ
0f0: dcdd dedf eaeb eced eeef fafb fcfd feff - ÉïßÔõ??Ú?ÿº« »±.
DEV:MISC:
Internet
[log in to unmask]@RAVEN.UTC.EDU - 23/07/2002 16:48
Veuillez répondre à [log in to unmask]
Envoyé par : [log in to unmask]
Pour : HP3000-L
cc :
Objet : TRANSLATE
Greetings,
I need to populate an ASCII string that I will convert later to an EBCDIC
string using the CTRANSLATE Intrinsic. The problem is that I need this
conversion to generate an EBCDIC HEX(26) and HEX(15). I can't find the
equivalent in ASCII. I think the EBCDIC HEX(15) would be ASCII HEX(0a), but
not sure about the EBCDIC HEX(26). The EBCDIC HEX(26) is an End of
transmission block. I thought about using CTRANSLATE and go from EBCDIC to
ASCII using HEX(26) and see what it generates in ASCII, but thought I'll
ask
this group if they know off the top of their heads.
Any help would be appreciated.
thanks...
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
This message and any attachments (the "message") is
intended solely for the addressees and is confidential.
If you receive this message in error, please delete it and
immediately notify the sender. Any use not in accord with
its purpose, any dissemination or disclosure, either whole
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message.
BNP PARIBAS (and its subsidiaries) shall (will) not
therefore be liable for the message if modified.
---------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le
"message") sont etablis a l'intention exclusive de ses
destinataires et sont confidentiels. Si vous recevez ce
message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur. Toute utilisation de ce
message non conforme a sa destination, toute diffusion
ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse. L'internet ne permettant pas
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|