On Thu, 20 Mar 2008 10:39:28 -0500, Mark Zelden <[EMAIL PROTECTED]>
wrote:
>On Thu, 20 Mar 2008 10:04:11 -0500, McKown, John
><[EMAIL PROTECTED]> wrote:
>
>>I cannot think of an easy way to do this, so I thought that I'd ask. I
>>want to copy a sequential file to another sequential file (both on DASD,
>>not tape!), translating the contents from EBCDIC (CP-037) to ASCII
>>(ISO8859-1). I can think of a way to do it using UNIX services, but I'm
>>hoping for a simplier method. The ASCII file is to be transferred to a
>>Windows system, so each line must end in CRLF.
>>
>
>Write a program that uses ICONV()? I've used this program (don't
>recall where it came from):
>
<snip>
BROWSE SYS1.CEE.SCEEPROC(EDCICONV) Line 00000000 Col 001 080
Command ===> Scroll ===> CSR
********************************* Top of Data *********************************
//********************************************************************
//* *
//* OS/390 Language Environment *
//* *
//* Licensed Materials - Property of IBM. *
//* *
//* 5645-001 *
//* *
//* (C) Copyright IBM CORP. 1993, 1996 All Rights Reserved *
//* *
//* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, *
//* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA ADP *
//* SCHEDULE CONTRACT WITH IBM CORP. *
//* *
//* Status = JMWL650 *
//* *
//********************************************************************
//* *
//* EDCICONV --- INVOKE ICONV UTILITY TO CONVERT THE INPUT FILE FROM *
//* THE SPECIFIED CODESET TO THE SPECIFIED CODESET. *
//* *
//********************************************************************
//* *
//EDCICONV PROC INFILE=, < INPUT DATA SET
// REGSIZ='6144K', < ICONV REGION SIZE
// OUTFILE=, < OUTPUT DATA SET
// FROMC=, < INPUT CODE SET NAME
// TOC=, < OUTPUT CODE SET NAME
// LIBPRFX='CEE' < PREFIX FOR LIBRARY DSN
//*
//EDCICONV EXEC PGM=EDCICONV,REGION=®SIZ,
// PARM=('FROMCODE(&FROMC),TOCODE(&TOC)')
//STEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
//SYSUT1 DD DSNAME=&INFILE,DISP=SHR
//SYSUT2 DD DSNAME=&OUTFILE,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
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
