 |
|
| When technology complements business | The COBOL Source Code |
| Copyright © 1987-2008 SimoTime Enterprises, LLC All Rights Reserved | http://www.simotime.com |
|
|||||
|
This document provides a listing of the COBOL source code for a callable routine that provides conversion between ASCII and EBCDIC for an eighty (80) byte text string. This program is included in the SimoCARD suite of programs.
Additional information about this program may be obtained by sending an e-mail to: helpdesk@simotime.com
The SimoXT80 program provides an easy to use, callable routine for converting an eighty (80) byte string of text data.
The following is an example of how to initialize the pass area and call SimoXT80 to do a conversion between ASCII and EBCDIC. The eighty (80) byte text string to be converted must be moved to the XT80-DATA buffer that is defined in the copy file that should be used when calling SimoXT80.
move 'A2E ' to XT80-REQUEST
call 'SIMOXT80' using XT80-PASS-AREA
The following is an example of a call statement for the callable routine.
call 'SIMOXT80' using XT80-PASS-AREA
The following is a listing of the copy file that defines the pass area when calling SimoXT80.
*****************************************************************
* Copy File for 80 byte Text record used by the Demo programs. *
*****************************************************************
* Copyright (C) 1987-2006 SimoTime Enterprises *
* All Rights Reserved *
*****************************************************************
* Provided by SimoTime Enterprises *
* Our e-mail address is: helpdesk@simotime.com *
* Also, visit our Web Site at http://www.simotime.com *
*****************************************************************
01 XT80-PASS-AREA.
05 XT80-REQUEST pic X(4).
05 XT80-RESPOND pic 9(4).
05 XT80-DATA PIC X(80).
*! SimoXT80 - End-of-Copy File...
The following is a list of the parameters required when using the GL80-PASS-AREA to call the SimoGL80 routine.
| Parameter | Description | ||||||
| XT80-REQUEST | This parameter must be provided by the calling program.
|
||||||
| XT80-RESPOND | A zero (0) value indicates a successful completion of the request. A non-zero value indicates the request could not be completed successfully. | ||||||
| XT80-DATA | This parameter will contain the logical record for a READ request. |
The following is the copy statement used in the LINKAGE section of the SIMOGL80 callable routine.
COPY PASSXT80.
The following is the COBOL Source Code.
IDENTIFICATION DIVISION.
PROGRAM-ID. SIMOXT80.
AUTHOR. SIMOTIME ENTERPRISES.
*****************************************************************
* This routine was generated by SimoREC1 *
* A product of SimoTime Enterprises *
* Our e-mail address is: helpdesk@simotime.com *
* Also, visit our Web Site at http://www.simotime.com *
* Generation Date: 2005/06/23 Generation Time: 09:26:05:57 *
*****************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WORK-04 pic X(4) value SPACES.
01 ENCODE-FLAG pic X value 'A'.
COPY ASCEBCB1.
COPY ASCEBCB2.
*****************************************************************
LINKAGE SECTION.
COPY PASSXT80.
*****************************************************************
PROCEDURE DIVISION using XT80-PASS-AREA.
move 'A' to ENCODE-FLAG
move XT80-REQUEST to WORK-04
evaluate WORK-04
when 'E2A ' inspect XT80-DATA converting E-INFO to A-INFO
move ZERO to XT80-RESPOND
move ZERO to RETURN-CODE
when 'A2E ' inspect XT80-DATA converting A-INFO to E-INFO
move ZERO to XT80-RESPOND
move ZERO to RETURN-CODE
when other perform TRY-EBCDIC
end-evaluate
if ENCODE-FLAG = 'E'
inspect XT80-RESPOND converting A-INFO to E-INFO
end-if
GOBACK.
*****************************************************************
TRY-EBCDIC.
inspect WORK-04 converting E-INFO to A-INFO
evaluate WORK-04
when 'E2A ' inspect XT80-DATA converting E-INFO to A-INFO
move ZERO to XT80-RESPOND
move ZERO to RETURN-CODE
move 'E' to ENCODE-FLAG
when 'A2E ' inspect XT80-DATA converting A-INFO to E-INFO
move ZERO to XT80-RESPOND
move ZERO to RETURN-CODE
move 'E' to ENCODE-FLAG
when other add 12 to ZERO giving XT80-RESPOND
add 12 to ZERO giving RETURN-CODE
end-evaluate
exit.
The purpose of this document is to provide a COBOL Source member for viewing.
Permission to use, copy, modify and distribute this software for any commercial purpose requires a fee to be paid to Simotime Enterprises. Once the fee is received by SimoTime the latest version of the software will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.
Permission to use, copy, modify and distribute this software for a non-commercial purpose and without fee is hereby granted, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.
SimoTime Enterprises makes no warranty or representations about the suitability of the software for any purpose. It is provided "AS IS" without any express or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software.
You may view the list of Eighty-Column Card File access programs at http://www.simotime.com/simocard.htm.
You may view the complete list of SimoTime callable Modules or Driver Programs at http://www.simotime.com/simomods.htm.
This item will provide a link to an ASCII or EBCDIC translation table. A column for decimal, hexadecimal and binary is also included.
This document provides a quick summary of the File Status Key for VSAM data sets and QSAM files.
To review all the information available on this site start at The SimoTime Home Page .
This link provides information about The Training Sessions and Self-Study Courses available from SimoTime Enterprises.
Check out The SimoTime Glossary for a list of terms and definitions used in the documents provided by SimoTime.
If you have any questions, suggestions or comments please call or send an e-mail to: helpdesk@simotime.com
We appreciate your comments and feedback.
Founded in 1987, SimoTime Enterprises is a privately owned, Limited Liability Corporation located in Novato, California. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems. Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com
| Return-to-Top |
| Copyright © 1987-2008 SimoTime Enterprises, LLC All Rights Reserved |
| When technology complements business |
| http://www.simotime.com |