For additional information about simotime Services or Technologies please send an e-mail to: or call.
This is an 80/80 repro with conversion from ascii to ebcdic.
Display SIM-title display SIM-copyright exit.execc2A1 exec pgmcble2AC1 /steplib.cble2AJ1 JOB / cble2AJ1.JCL - a JCL Member for Batch Job Processing * This JCL Member is provided by SimoTime Technologies * (C) Copyright All Rights Reserved * Web Site URL: m * e-mail: * / Text - Read qsam 80-byte ebcdic and write qsam.AE9437B1.cpy - a cobol Copy File * * Copyright (C) SimoTime Technologies * * All Rights Reserved * * Provided by SimoTime Technologies * * Our e-mail address is: * * Also, visit our Web Site at m The following tables are used by the.Add 8 to zero giving appl-result.05 message-header pic X(11) value cble2AC1 '.Data.qsam080A, / disp(NEW, catlg,delete / storclasmfi, / space(TRK,5 / / Create ebcdic-encoded qsam File This JCL member (cble2AJ8.jcl) is provided to create an ebcdic file that may be used as input when attempting to execute the conversion program.05 ebcdic-byte pic X occurs 256 times.05 ebcfile-status-R pic.Computers can only understand numbers, so an ascii code is the numerical representation of a character such as 'a' or or an action of some sort.
Let's look at two examples. .
The first 32 values are non-printing control characters, such as Carriage Return (decimal value 13) and Line Feed (decimal value 10).
If a global ebcdic to ascii character conversion is performed on a signed field, all bytes are converted as-if they were characters. .
Note: A SimoTime License is required for the items to be made available on a local system or server.
This JCL member will run on an IBM cricket game 2013 pc ea Mainframe with ZOS or a Linux, unix or Linux System with Micro Focus Enterprise Server that is configured to use the ebcdic character set.Filler pic X(16) value X' A2B2C2D2E2F'.Filler pic X(16) value X' A5B5C5D5E5F'.05 filler pic X(3) value ' - '.Move all to message-text-1 perform Z-display-message-text move info-statement to message-text-1 perform Z-display-message-text move all to message-text-1 perform Z-display-message-text perform Z-post-copyright perform ascfile-open perform ebcfile-open perform until ascfile-status not '00' perform ascfile-read if ascfile-status '00' add 1 to ascfile-RDR perform build-output-record perform ebcfile-write if ebcfile-status '00'.If message-text not spaces perform Z-display-message-text end-if move 'program-IS-abending.' to message-text perform Z-display-message-text add 12 to zero giving return-code stop RUN.Note: this table converts the Y characters * * with an umlat, this will convert high-values * * X'FF' to X'DF' * * ascebcb4.CPY - includes the character set for the alphabet * * (upper/lower case digit, special characters.Filler pic X(16) value X' A171B88898A8B8C050607'.The documentation and software were developed and tested on systems that are configured for a simotime environment based on the hardware, operating systems, user requirements and security requirements.ascebcb5.CPY - includes a full character set for the alphabet * * (upper/lower case digit, special characters * * and alternate codes for characters with the * * acute, grave, umlaut, tilde and circumflex.For example, BEL (Bell) is value decimal 7, Control and the letter G at the same time, often shown in documents.