Cecilio,

You can use DFSORT's new translation function ETOA which translates 
characters from EBCDIC to ASCII using the default standard TCP/IP service 
EBCDIC-to-ASCII translation table. 

//STEP0100 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DISP=SHR,DSN=Your Input Tape DSN
//SORTOUT  DD DSN=Your output ASCII dataset,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD * 
  OPTION COPY 
  INREC BUILD=(1,80,TRAN=ETOA) 
//* 

The input records will be copied with the characters in positions 1-80 
translated from EBCDIC to ASCII using the default standard TCP/IP service 
ASCII-to-EBCDIC table.

If your input is VB , then change the INREC statement to the following

  INREC BUILD=(1,4,5,TRAN=ETOA)

Sri Hari Kolusu
DFSORT Development
IBM Corporation


IBM Mainframe Discussion List <[email protected]> wrote on 
10/15/2012 08:34:24 AM:

> From: af dc <[email protected]>
> To: [email protected], 
> Date: 10/15/2012 08:42 AM
> Subject: Convert data tape to ASCII format
> Sent by: IBM Mainframe Discussion List <[email protected]>
> 
> Hello,
> I need to copy data from STK/9840 tape media (text sequential dsns) to 
disk
> on Ascii format. To send them to AIX. What is the best way of doing it 
??
> Env is z/os 1.12
> 
> 1) recall dsns (they are hsm migrated)
> 2) running ditto to convert those dsns to ascii format
> 3) send those ascii files to AIX machine
> ??
> 
> Any hint is welcome, A.CEcilio
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to