ICETOOL Utilities and Operations with Examples

RANGE focuses on numeric ranges and is perfect for threshold‑based reporting.

Example: Count transactions between 1,000 and 5,000

Record layout:

• 20–25: Amount (BI – binary integer)

//RNGMSG DD SYSOUT=*
//TOOLIN DD *
   RANGE FROM(IN) WRITE(RNGMSG) -
  ON(20,6,BI) -
         LOW(1000) HIGH(5000)
/*

The message in RNGMSG shows how many records fall inside the specified range. You can use different ranges or multiple RANGE statements to segment data.

Scenario-1

RESIZE FROM(IN1) TO(OUT1) TOLEN(40)

The IN1 data set has RECFM=FB and LRECL=10 with these 10-byte records:

Bird 
Bluejay 
4 
Charlie 
Rodent 
Rat 
2 
Sara 

The OUT1 data set has RECFM=FB and LRECL=40 with these 40 byte records:

Bird        Bluejay   4   Charlie 
Rodent      Rat       2    Sara

Scenario-2

RESIZE FROM(OLD) TO(NEW) TOLEN(15) USING(CTL1)

This example illustrates how you can create larger records from a subset of smaller sorted records. The CTL1CNTL data set contains: 

OMIT COND=(2,4,ZD,EQ,0) 
SORT FIELDS=(1,1,CH,A) 

The OLD data set has RECFM=FB and LRECL=5 with these 5-byte records: 

C0005 
B0000 
A0008 
I1234 
F0053 
D0123 
H0001 
G0000 
E0022 

The NEW data set will have RECFM=FB and LRECL=15 with these 15-byte records: 

A0008C0005D0123 
E0022F0053H0001 
I1234 

Note that before the records were resized, the two records with 0 in positions 2-5 were omitted, and the remaining records were sorted as directed by the DFSORT control statements in CTL1CNTL. The last output record was padded with blanks on the right to 15 bytes.

Scenario-3

RESIZE FROM(IN3) TO(OUT3) TOLEN(3) USING(CTL2) 

This example illustrates how you can break up large records into multiple smaller records. The CTL2CNTL data set contains: 

OUTFIL FNAMES=OUT3,OMIT=(1,3,CH,EQ,C’ ’),OVERLAY=(10:X) 

The IN3 data set has RECFM=FB and LRECL=18 with these 18-byte records: 

000111222333444555 
666777888999 

Every 3-byte field in each large IN3 record will be broken up into a single 3-byte field and then padded on the right with blanks to 10-bytes. TOLEN(3) indicates that the resized records will have a length of 3 bytes. OVERLAY=(10:X) expands each resized record to 10 bytes in OUT3. OMIT=(1,3,CH,EQ,C’ ‘) removes any resized records that are completely blank (that is, the two blank resized records resulting from the blanks in positions 13-18 of the second input record). 

The OUT3 data set will have RECFM=FB and LRECL=10 with these 10-byte records: 

000 
111 
222
333 
444 
555 
666 
777 
888 
999

SELECT FROM(INPUT) TO(DUPS) ON(11,8,CH) ON(30,44,CH) ALLDUPS

Sorts the INPUT data set to the DUPS data set, selecting only the records from INPUT with characters in positions 11-18 and characters in positions 30-73 that occur more than once (that is, only records with duplicate ON field values).

SELECT FROM(INPUT) TO(ONLYONE) ON(23,3,FS) NODUPS

Sorts the INPUT data set to the ONLYONE data set, selecting only the records from INPUT with floating sign values in positions 23-25 that occur just once (that is, only records with no duplicate ON field values).

SELECT FROM(FAILURES) TO(CHECKOUT) ON(28,8,CH) ON(1,5,CH) - 
HIGHER(3)

Sorts the FAILURES data set to the CHECKOUT data set, selecting only the records from FAILURES with characters in positions 28-35 and characters in positions 1-5 that occur more than three times (that is only recorded with four or more duplicate ON field values).

SELECT FROM(BOOKS) TO(PUBLISHR) ON(29,10,CH) FIRST 

Sorts the BOOKS data set to the PUBLISHR data set, selecting only the records from BOOKS with characters in positions 29-38 that occur only once and the first record of those with characters in positions 29-38 that occur more than once (that is, one record for each unique ON field value).

SELECT FROM(BOOKS) TO(PUBLISHR) ON(29,10,CH) FIRST - 
DISCARD(SAVEREST)

This example creates the same PUBLISHR data set as Example 4. In addition, it creates a SAVEREST data set that contains all of the records not written to the PUBLISHR data set.

SELECT FROM(MASTPULL) TO(MATCH) ON(5,8,CH) FIRSTDUP

This example shows how you can use a list of account numbers in a “pull” data set to only select records with those account numbers from a “master” data set. The MASTPULL DD would have the “master” data set and “pull” data set concatenated together (in that order).

SELECT FROM(INPUT) TO(ONLYONE) ON(23,3,FS) NODUPS USING(CTL1)

This example shows how you can use USING(xxxx) to supply an OUTFIL statement to modify the TO data set. SELECT chooses the same output records as for “Example 2” on page 669, but an OUTFIL statement is used to further modify those records for output to the ONLYONE data set.

The CTL1CNTL data set contains: 

OUTFIL FNAMES=ONLYONE, 
REMOVECC, 
INCLUDE=(23,3,FS,LT,100), 
OUTREC=(1:1,7,8:C’|’,11:11,7,19:C’|’,23:23,3,FS,M11, 27:C’|’,30:30,15), 
TRAILER1=(/,’TOTAL= ’,TOT=(23,3,FS,M11,LENGTH=6)) 

and the ONLYONE data set might look as follows: 

DFSRT2 | EISSLER | 005 | DOC.EXAMPLES 
DFSRT1 | PACKER | 008 | ICETOOL.SMF.RUN 
USR002 | EISSLER | 012 | DOC.EXAMPLES 
SYS003 | YAEGER | 032 | ICETOOL.TEST.CA 

TOTAL= 000057