How to compare system date to alphanumeric field in CULPRIT

Document ID : KB000010734
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

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

Background:

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.
Instructions:

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)

File Attachments:
TEC1365928.zip