Tags

, , , , ,

EASYTRIEVE – Sample Program – Display Employee Data

The Input file contains the data of all the employees as shown below

=COLS> —-+—-1—-+—-2—-+—-3—-+—-4—-+—-5

****** ***************************** Top of Data ********

000100 RAJESH SURNAME1 23125478 MECH

000200 SIVA SURNAME2 22351875 CHEM

000300 HARI SURNAME3 21357987 MCA

000400 PAVAN SURNAME4 22574821 MTEC

****** **************************** Bottom of Data ******

The output report Looks like below.

********************************* Top of Data **********************************

3/16/12 EMPLOYEES DATA PAGE 1

FIRST SECOND EMPLOYEE BRANCH

NAME NAME NUM NAME

RAJESH SURNAME1 23125478 MECH

SIVA SURNAME2 22351875 CHEM

HARI SURNAME3 21357987 MCA

PAVAN SURNAME4 22574821 MTEC

******************************** Bottom of Data ********************************

The Code for this is provided Below:

//STEP01 EXEC PGM=EZTPA00

//INPUT DD DSN=HLQ1.INPUT01,DISP=SHR

//OUTPUT1 DD DSN=HLQ1.OUTPUT01,

// DISP=(,CATLG,DELETE),

// UNIT=SYSALLDA,SPACE=(CYL,(1,1),RLSE),

// DCB=(RECFM=FB,LRECL=100,BLKSIZE=0)

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSIN DD *

FILE INPUT

INREC 1 80 A

FIRST-NAME 1 6 A HEADING (‘FIRST’ ‘NAME’)

SECOND-NAME 8 8 A HEADING (‘SECOND’ ‘NAME’)

EMPLOYEE-NUM 17 8 N HEADING (‘EMPLOYEE’ ‘NUM’)

BRANCH 26 4 A HEADING (‘BRANCH’ ‘NAME’)

*

FILE OUTPUT1 PRINTER

*

JOB INPUT (INPUT)

*

IF EMPLOYEE-NUM > 20000000

PRINT

END-IF

REPORT PRINTER OUTPUT1 LINESIZE 80

TITLE 01 ‘EMPLOYEES DATA ‘

LINE 01 FIRST-NAME SECOND-NAME EMPLOYEE-NUM BRANCH

/*

Explaining concepts used in these program:

  1. HEADING – When Used, we get the header as mentioned here in the final Report. This is used at the field declaration process. This can also be done in REPORT section. Here we gave the statement as HEADING (‘FIRST’ ‘NAME’) as we have space between FIRST and NAME, we got the HEADER in two rows.
  2. Here when we provide the option of PRINTER for output file, the default length of output file is taken as 133 and RECFM as FA (printer file). But LINESIZE provided in the REPORT section, defines the length the report to be displayed in the output file.
  3. If we have only single report for the whole program, it is not necessary to provide the report name at PRINT statement and REPORT statement.——————————————————————————————————–

    In United States, If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

    ——————————————————————————————————–

    You may also like to look at:

    Working on Mainframes – Is Change to a different technology necessary
    Important SQL CODES and ABEND CODES
    SORT JOIN – TO JOIN TWO FILES BASED ON A KEY
    KNOW YOUR MAINFRAME
    REXX – INITIAL SETUP
    HOW TO SUBMIT A BATCH JOB FROM THE CICS PROGRAM
    CICS – EXEC interface block – EIBRESP Values
    CICS – EXEC interface block Fields
    Flow of control between COBOL programs, run units, and CICS
    CICS INTERVIEW QUESTIONS
    CICS TIPS
    COBOL – COPY and INCLUDE statements
    COBOL – PERFORMANCE IMPROVEMENT
    COBOL – SIGN STORED IN COMP, COMP-3 AND DISPLAY FORMATS
    SHORTEST COBOL PROGRAM
    RESTART LOGIC IN COBOL DB2 Program
    GOBACK – EXIT PROGRAM – STOP RUN
    Continuation lines in COBOL
    Computational items – COMP, COMP 1 , COMP 2, COMP 3
    COBOL program format
    cobol indicator area column-7 and area a and area b
    COBOL INTERVIEW QUESTIONS
    COBOL TIPS
    COBOL COMPILER OPTIONS
    The IDENTIFICATION DIVISION