******************************************************************* *-----------------------------------------------------------------* * * * Copyright(c) by Bernd Riemke * * Riemke-IT Solutions * * An den Ruschen 27a * * D-28816 Stuhr * * * *-----------------------------------------------------------------* $SET ANS85 * * * GERUEST-COMP.CBL COBOL Geruest-Programm * ---------------- ---------------------- * * LETZTE ÄNDERUNG: * ================ * * 01.01.2017 Bernd Riemke * - Angelegt * * * *================================================================ = IDENTIFICATION DIVISION. PROGRAM-ID. GERUEST-COMP. AUTHOR. BERND RIEMKE. INSTALLATION. BERND RIEMKE. DATE-WRITTEN. 01-Januar-2017. DATE-COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC-COMP. OBJECT-COMPUTER. IBM-PC-COMP. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. * INPUT-OUTPUT SECTION. *--------------------- * FILE-CONTROL. *------------- * DATA DIVISION. *============== * FILE SECTION. *------------- * WORKING-STORAGE SECTION. *------------------------ * 01 C. 02 C0 PIC S9(4) COMP. 02 C1 COMP-1. 02 C2 COMP-2. 02 C3 PIC S9(4) COMP-3. 02 C4 PIC S9(4) COMP-4. 02 C5 PIC X(4) COMP-5. 02 C51 PIC S9(4) COMP-5. 02 C6 PIC 9(4) COMP-6. 02 CX PIC 9(4) COMP-X. 01 W PIC X. * PROCEDURE DIVISION. * HAUPTPROGRAMM SECTION. *---------------------- PERFORM VORLAUF. PERFORM HAUPTLAUF. PERFORM NACHLAUF. HAUPTPROGRAMM-E. * EXIT PROGRAM. STOP RUN. ******************************************************************* VORLAUF SECTION. *---------------- INITIALIZE C, W. VORLAUF-EE. EXIT. ******************************************************************* HAUPTLAUF SECTION. *------------------ DISPLAY SPACES AT 0101. DISPLAY "Nach Initialisierung". DISPLAY "====================". DISPLAY "COMP: PIC S9(4) --> (2 Byte / +0000)". DISPLAY C0. DISPLAY "COMP-1: ohne ! --> (4 Byte / ,00000000E 00)". DISPLAY C1. DISPLAY "COMP-2: ohne ! --> (8 Byte / ,00000000000000000E 000)". DISPLAY C2. DISPLAY "COMP-3: PIC S9(4) --> (3 Byte / +0000)". DISPLAY C3. DISPLAY "COMP-4: PIC S9(4) --> (2 Byte / +0000)". DISPLAY C4. DISPLAY "COMP-5: PIC X(4) --> (4 Byte / 0000000000)". DISPLAY C5. DISPLAY "COMP-51: PIC S9(4) --> (2 Byte / +00000)". DISPLAY C51. DISPLAY "COMP-6: PIC 9(4) --> (2 Byte / 0000)". DISPLAY C6. DISPLAY "COMP-X: PIC 9(4) --> (2 Byte / 00000)". DISPLAY CX. ACCEPT W AT 2401. DISPLAY SPACES AT 0101. MOVE 1234 TO C0 C1 C2 C3 C4 C5 C51 C6 CX. DISPLAY "Nach MOVE 1234 TO ...". DISPLAY "=====================". DISPLAY "COMP: PIC S9(4) --> (2 Byte / +1234)". DISPLAY C0. DISPLAY "COMP-1: ohne ! --> (4 Byte / ,12340000E 04)". DISPLAY C1. DISPLAY "COMP-2: ohne ! --> (8 Byte / ,12340000000000000E 004)". DISPLAY C2. DISPLAY "COMP-3: PIC S9(4) --> (3 Byte / +1234)". DISPLAY C3. DISPLAY "COMP-4: PIC S9(4) --> (2 Byte / +1234)". DISPLAY C4. DISPLAY "COMP-5: PIC X(4) --> (4 Byte / 0000001234)". DISPLAY C5. DISPLAY "COMP-51: PIC S9(4) --> (2 Byte / +01234)". DISPLAY C51. DISPLAY "COMP-6: PIC 9(4) --> (2 Byte / 1234)". DISPLAY C6. DISPLAY "COMP-X: PIC 9(4) --> (2 Byte / 01234)". DISPLAY CX. ACCEPT W AT 2401. HAUPTLAUF-EE. EXIT. ******************************************************************* NACHLAUF SECTION. *----------------- NACHLAUF-EE. EXIT. ******************************************************************* ******************************************************************* ******************************************************************* ******************************************************************* *******************************************************************