OMIT Statement
OMIT Statement
Summary
- Omitting records can ignore the specific set of records which satisfies the condition provided. In this scenario, all records other than the records which satisfy the condition specified will be copied to output file. EXCLUDE control statement is used to specify the selection criteria.
Syntax1 - Comparing with a constant
OMIT COND=(Field1 starting position, Field1 Length,
Relational Operator, constant)
Syntax2 - Comparing with another field
OMIT COND=(field1 starting position, field1 Length,
field1 format_type, Relational Operator,
field2 starting position, field2 Length,field2 format_type)
Field1 starting position | Starting position of field1 to be compared |
Field1 Length | Length of the field1 to be compared |
Field1 format_type | Format of the field1 like CH, PD, BI etc,. |
Relation operator | Relational operators like GT, EQ, NE, LT etc,.
|
Field2 starting position | Starting position of field2 which is to be compared with Field1 |
field2 Length | Length of field2 which is to be compared with field1 |
Field2 Format_type | Format of the field2 like CH, PD, BI etc,. |
Example - Comparing with a constant
Scenario - From the below data, filter the records not having the id is 00001. The ID starts from 1st and ends at 5th column in the file
Input File - MTH.SORT.INPUT
---+----1----+----2----+---3----+---4----+---5---+---6----+----7---+---8
********************************* Top of Data *******************************
00002 Srinivas Employee
test test test
00001 pawan kumar student
******************************** Bottom of Data *****************************
Input Record Layout -
01 INPUT-REC.
05 ID PIC X(05).
05 FILLER PIC X(05).
05 NAME PIC X(15).
05 FILLER PIC X(05).
05 OCCUPATION PIC X(10).
05 FILLER PIC X(40).
JCL -
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
//Job-card
//*******************************************************************
//*
//* SORT TO WRITE NUMBERIC TEST IN OMIT CONDITION
//*
//*******************************************************************
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=MTH.SORT.INPUT,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OMIT COND=(1,05,CH,EQ,C'00001')
SORT FIELDS=COPY
/*
**************************** Bottom of Data *************************
Output -
----+----1----+---2----+---3---+----4---+---5---+---6---+----7----+----8
********************************* TOP OF DATA *******************************
00002 Srinivas Employee
test test test
******************************** BOTTOM OF DATA *****************************
Explaining Example -
- As a first step, need to get the position of the ID in the file.
- The ID starting from 1st position and ends at 5th position as per the input record layout provided. So the length of ID field is 5.
- As a second step, need to get the type of the ID.
- From the Input record layout declaration, ID field is alpha-numeric. So the type is character (CH).
- Lastly, the job requirement is to ignore the data with the ID as 00001 and other records should be copied. So the constant is 00001.
- The OMIT condition for the above requirement with all the data gathered is
OMIT COND=(1,05,CH,EQ,C'00001')
- The above condition specifies that ignore the records where the ID is 00001 and other records which are not satisfied the condition copied to output file.
- The output would have the records where the IDs not equal to00001 at first 5 positions.