Example of Displaying Two Display Files in a COBOL ILE Program

Troubleshooting

Problem

This document provides an example of displaying two display files in a CBLLE (COBOL ILE) program.

Resolving The Problem

Disclaimer: This is only an example. IBM accepts no responsibility for its correctness.

This document provides an example of displaying two display files (DSPF) in a CBLLE (COBOL ILE) program.

Here is the COBOL ILE program called TEST2.

Example

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST2.
        DATE-WRITTEN. May 1, 2009.
        DATE-COMPILED.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
        SOURCE-COMPUTER. IBM-AS400.
        OBJECT-COMPUTER. IBM-AS400.
       FILE-CONTROL.
           SELECT DSP1FILE
                 ASSIGN TO WORKSTATION-TEST1DSPF
                 ORGANIZATION IS TRANSACTION
                 ACCESS MODE IS SEQUENTIAL.

           SELECT DSP2FILE
                 ASSIGN TO WORKSTATION-TEST2DSPF
                 ORGANIZATION IS TRANSACTION
                 ACCESS MODE IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD   DSP1FILE
                    LABEL RECORDS ARE STANDARD.
       01 DSP1REC.
                COPY DDS-ALL-FORMATS OF TEST1DSPF.
         05   TEST1DSPF-RECORD PIC X(10).
       FD   DSP2FILE
                            LABEL RECORDS ARE STANDARD.
       01   DSP2REC.
                         COPY DDS-ALL-FORMATS OF TEST2DSPF.
         05   TEST2DSPF-RECORD PIC X(10).
       WORKING-STORAGE SECTION.
       01   W3-GENERAL.
          03   HIFLD         PIC XX.
          03   BYEFLD        PIC XXX.
       PROCEDURE DIVISION.
       MAIN-LINE SECTION.
       000.
            PERFORM A-INIT.
            PERFORM B-MAIN.
       9999.
            STOP RUN.
       A-INIT SECTION.
       A-100.
            OPEN I-O DSP1FILE.
            OPEN I-O DSP2FILE.
       B-MAIN SECTION.
       B-100.
            WRITE DSP1REC FORMAT IS "TSTREC1".
            WRITE DSP1REC FORMAT IS "TSTREC1".
            READ DSP1FILE.
            DISPLAY FLD1.
            WRITE DSP2REC FORMAT IS "TSTREC2".
            READ DSP2FILE.
            DISPLAY FLD2.

Here is the display file called TEST1DSPF.

     A          R TSTREC1                   
     A            FLD1          10A  B  5 10

Here is the display file called TEST2DSPF.

     A          R TSTREC2                   
     A            FLD2          10A  B  5 10

[{"Type":"MASTER","Line of Business":{"code":"LOB68","label":"Power HW"},"Business Unit":{"code":"BU070","label":"IBM Infrastructure"},"Product":{"code":"SWG60","label":"IBM i"},"ARM Category":[{"code":"a8m3p000000F98bAAC","label":"Programming ILE Languages-\u003ECOBOL"}],"ARM Case Number":"","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"All Versions"}]

Historical Number

523328161

Was this topic helpful?

Document Information

More support for:
IBM i

Component:
Programming ILE Languages->COBOL

Software version:
All Versions

Operating system(s):
IBM i

Document number:
634619

Modified date:
09 December 2024

UID

nas8N1012973

IBM Support

Tips