TMSGRW, How to select records based on a date field.

Products

• CA 1 Flexible Storage

Issue/Introduction

How can I select records based on date field using TMSGRW?

Resolution

If you need to compare the EXPDT field to one of the CA 1 keyword dates you can use the DT format to define the date.

In the DEFINE the value can be any date in your selected date format (see your TMOOPTxx member and the option of DATEFMT),

a julian date (yyyy/ddd) or a date keyword.  The keywords include, USER/uuu, CATLG/ddd, LDATE/ddd, CYCLE/ccc, PERM, PERMANENT,

STATS/nnn and CATALOG.

This is an example of how to compare and list all tapes under catalog control.

CONTROL-SECTION

DEFINE CATDATE DT 'CATALOG'

PROCESS-SECTION

WHEN EXPDT EQ CATDATE

LIST

REPORT-SECTION

PRINT VOLSER

PRINT EXPDT

PRINT DSN