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.
Important SQL CODES and ABEND CODES
SORT JOIN – TO JOIN TWO FILES BASED ON A KEY
KNOW YOUR MAINFRAME
REXX – INITIAL SETUP
EASYTRIEVE – A023 ABEND
EASYTRIEVE – SORT and FILE COMPARISION
EASYTRIEVE – Special-name Report Procedures
EASYTRIEVE – REPORT STAEMENT
EASYTRIEVE – Sample Program – Table And Search
EASYTRIEVE – Sample Program – Display Totals and Summary
EASYTRIEVE – Sample Program – Display Employee Data
CA-Easytrieve/Plus – Basics
REXX TOOL # 02 – FSAVE – Save member opened in VIEW mode
REXX TOOL # 01 – O – Open Any Mainframe Element from any ISPF Screen
REXX – INDEX, POS, SUBSTR, COMPARE
REXX – READ THE DSN PROVIDED AS DD IN JCL
REXX – SEND MULTIPLE ARGUMENTS THROUGH JCL
REXX – HOW TO COMPILE YOUR REXX EXEC
REXX – CHANGE UPPER TO LOWER CASE
REXX – GET LAST 4 DAYS FROM GIVEN DATE
REXX – PANEL Definition
REXX – READ, CREATE AND WRITE DATA TO A DATASET
REXX TOOL TO SUBSTITUTE SYMBOLICS IN A PROC


Advertisements