Enterprise Cobol - Pseudo figurative constants "max-value" and "min-value"

In some processing, we need to assign the greatest possible value, or the smallest possible value, to a data-item, without necessarily knowing the PICTURE and the USAGE of this data-item (processing carried out by COPYBOOKs of general interest) .

The "high-value" or "low-value" figurative constants are not suitable for feeding numeric zones (or purely alphabetic zones), because this generates warnings or abends at runtime (in particular with the NUMCHECK option active).

We would like "pseudo" figurative constants ("pseudo" because adaptive to the context) to be supported by the compiler:
- "max-value" to assign to a data-item the greatest possible value and in accordance with PICTURE and USAGE,
- "min-value" to assign to a data-item the smallest possible value and in accordance with PICTURE and USAGE.

Examples:
- PIC S9(3): "max-value" = +999, "min-value" is -999
- PIC 9(3): "max-value" = 999, "min-value" is 000
- PIC S9(3) COMP-5: "max-value" is +32767, "min-value" is -32768
- PIC ZZ9: "max-value" is 999, "min-value" is 2 spaces fallowed by 1 0
- PIC A(3): "max-value" = ZZZ, "min-value" = spaces
- PIC X(3): "max-value" = x'FFFFFF ', "low-value" = x'000000'

These "pseudo" figurative constants must be able to be used in different contexts where they will adapt to the description of the related data-item:
- in move instructions: "move max-value to :data-item:" (including initialize ... replacing ... by max-value ")
- in comparison instructions? (no use case identified)
- in declarations: "05 :data-item: PIC :apic: value max-value."