home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
zfamily.zip
/
zfamily
/
ZCVFUNCS
/
SAMPLE
/
TSTFTCP.INC
< prev
next >
Wrap
Text File
|
1993-09-24
|
2KB
|
45 lines
/*
** /----------------------------------------------------------------------\
** | IBM Z Family Reusable Libraries/2 (5641-504) |
** |----------------------------------------------------------------------|
** | (C) Copyright International Business Machines Corporation 1993, 1994 |
** |----------------------------------------------------------------------|
** | DISCLAIMER OF WARRANTIES |
** | ------------------------ |
** | The following code is sample code created by IBM Corporation. |
** | Such a code is provided to you solely for the purpose of assisting |
** | you in the development of your applications. The code is provided |
** | "AS IS", without warranty of any kind. IBM shall not be liable for |
** | any damages arising out of your use of the following code, even if |
** | they have been advised of the possibility of such damages. | *
** \----------------------------------------------------------------------/
**
** Header : TSTFTCP.INC
** Authors : Valerio Tavazzi (TAVAZZI at ROMEPPC)
** Dario de Judicibus (DEJUDICI at ROMEPPC)
** Created : 26 Aug 1992
** Updated : 24 Sep 1993
** Version : 2.12
** Content : Initialize the target DDL control for file conversion
*/
{
int i ;
zcvCCSID ccsid[zcvLISTSIZE] ;
/*
** Current CCSID in target CCSID field of DDL
*/
zcvCurrentCCSID(&ccsid[0]) ;
_ltoa(ccsid[0],Xltfil->XltFilTargetCP,10) ;
/*
** Fill the DLL control with all the supported CCSIDs
*/
zcvQuerySupportedCCSIDs(&ccsid[1]) ;
for (i = 1; i < zcvLISTSIZE && ccsid[i] != zcvENDOFLIST ; i++)
{
_ltoa(ccsid[i],Xltfil->XltFilTcpTbl[i],10) ;
}
}