How to compare system date to alphanumeric field in CULPRIT

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

Using CULPRIT, how can I compare the system date returned by US10 to a date field in the format MM/DD/YY?

US10 returns the date in a numeric field.

This code shows how to compare it to an alphanumeric field.

Environment

CA-IDMS CULPRIT all supported releases.

Resolution

The attached file culprit.txt has sample code for doing this, along with input and output.

The system date returned by US10 is a numeric field of the format MMDDYY.

US34 is used to convert it to an alphabetic field which can then be compared to the input of format MM/DD/YY.

Additional Information

For more information, see the following CA IDMS DocOps pages:

CA CULPRIT Procedure Modules – System Time and Date Retrieval (CULLUS10)

CA CULPRIT Procedure Modules – Converting Packed Decimal to Zoned Decimal (CULLUS34)