• Rajesh A R

F1 for Mainframe

F1 for Mainframe

Tag Archives: sample

EASYTRIEVE – Sample Program – Display Employee Data

16 Friday Mar 2012

Posted by rajeshar in EASYTRIEVE

≈ Leave a comment

Tags

easytrieve, header, linesize, mainframe, printer, sample

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


 

Rate this:

← Older posts

Subscribe

  • Entries (RSS)
  • Comments (RSS)

Archives

  • November 2020
  • July 2020
  • February 2020
  • January 2020
  • September 2019
  • August 2019
  • October 2018
  • April 2018
  • March 2018
  • December 2017
  • October 2017
  • August 2017
  • July 2017
  • June 2017
  • April 2017
  • March 2017
  • February 2017
  • January 2017
  • December 2016
  • May 2016
  • March 2016
  • February 2016
  • January 2016
  • May 2015
  • September 2013
  • August 2013
  • July 2013
  • June 2013
  • May 2013
  • January 2013
  • December 2012
  • November 2012
  • April 2012
  • March 2012
  • February 2012
  • January 2012
  • April 2011
  • March 2011
  • August 2009
  • June 2009
  • April 2009

Categories

  • Azure
  • CA7
  • CICS
  • COBOL
    • Keywords
  • DB2
  • EASYTRIEVE
  • FILEAID
  • FILEMAXX
  • IMS
  • ISPF
  • JCL
  • KNOW YOUR MAINFRAME
  • Mainframe Migration
  • MAINFRAMES
  • Others
  • REXX
  • SDSF
  • SORT
  • Training
  • TSQL
  • VSAM

Meta

  • Register
  • Log in

Create a free website or blog at WordPress.com.

  • Follow Following
    • F1 for Mainframe
    • Join 88 other followers
    • Already have a WordPress.com account? Log in now.
    • F1 for Mainframe
    • Customize
    • Follow Following
    • Sign up
    • Log in
    • Report this content
    • View site in Reader
    • Manage subscriptions
    • Collapse this bar