Producing Reports › Designing Your Own Reports › Building a Control File › Step 5 - Select Tapes Due To Expire

Step 5 - Select Tapes Due To Expire

The next step is to perform the expiration date comparisons that you set up with the COMPUTE statement, and to select from the input file the records that represent tapes due to expire in the next week.

You also need to choose fields from the records that meet this expiration date test and place them in a file that can be sorted in a later step. Each field you choose can be used as a column in the finished report. Add these control statements to your control file:

IF EXPDT GT P5JULIAN AND EXPDT LT ENDDATE.
WRITE VOLSER EXPDT CDATE CUSERID LUSERID.
END IF.

The IF statement uses the EXPDT field from the TMC and the P5JULIAN and ENDDATE fields from GRW to determine which TMC records to process. If a record from the TMC meets all the requirements of this IF statement, GRW applies the WRITE statement to it.

The WRITE statement tells GRW to put the contents of the TMC’s VOLSER (volume serial number), EXPDT (expiration date), CDATE (creation date), CUSERID (creating user ID), and LUSERID (last used user ID) fields into an output file.

The END IF statement tells GRW that the IF clause is completed.