INCLUDE: Numeric tests

  • INCLUDE numeric tests are used to filter the records which satisfies the numeric matching condition specified.
  • (EQ, NUM) to test for numeric, or (NE, NUM) to test for non-numeric.

Syntax -

INCLUDE COND=(Field1 starting position, Field1 Length, 
	Field1 format, Relational Operator,NUM)
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
FS is a format for the field if want to test for character
 numeric('0'-'9' inevery byte).
ZD format for the field if you want to test for zoned decimal
 numeric ('0'-'9'in all non-sign bytes; X'F0'-X'F9', X'D0'-X'D9'
  or X'C0'-X'C9' in the sign byte).
PD is a format for the field if want to test for packed decimal
 numeric (0-9for all digits; F, D or C for the sign).
Relation operator Relational operators like GT, EQ, NE, LT etc,.
EQ 		Equal to
NE 		Not equal to
GT 		Greater than
GE 		Greater than or equal to
LT 		Less than
LE 		Less than or equal to
NUM can be used to indicate a test for numeric or non-numeric.

Example -

Scenario - From the below data, filter the records having the ID is numeric. The ID starts from 1st and ends at 5th column in the file.


********************************* Top of Data ******************************
00002     Srinivas            Employee             
test	  test                test
00001     pawan kumar         student                  
******************************** Bottom of Data ****************************

Input Record Layout -

	05 ID			PIC X(05).
	05 FILLER		PIC X(05).
	05 NAME			PIC X(15).
	05 FILLER		PIC X(05).
	05 FILLER		PIC X(40).


***************************** Top of Data ******************************
//STEP01   EXEC PGM=SORT                                       
//SORTIN   DD DSN=MTH.SORT.INPUT,DISP=SHR                      
//SORTOUT  DD SYSOUT=*                                  
//SYSOUT   DD SYSOUT=*                                         
//SYSIN    DD *                                       
     INCLUDE COND=(1,05,FS,EQ,NUM)                          
     SORT FIELDS=COPY                                      
**************************** Bottom of Data *************************

Output -

********************************* TOP OF DATA ****************************
00002     Srinivas            Employee                                 
00001     pawan kumar         student                                 
******************************** BOTTOM OF DATA **************************

Explaining Example -

  1. As a first step, need to get the position of the ID in the file.
  2. 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.
  3. As a Second step, need to get the type of the ID.
  4. From the Input record layout declaration, ID field is alpha-numeric. But we need only numeric data from it. So the type is FS.
  5. Lastly, the job requirement is to filter the data with the ID as numeric. So the keyword NUM should use to match the condition.
  6. The INCLUDE condition for the above requirement with all data gathered is
  7. The above condition specifies that include the records where the ID is numeric and copied to output file.
  8. The output would have the records where the IDs are numeric at first 5 positions.