Using TMSGRW, how can I compare for the high level qualifier of a DSN?

Products

• CA 1 Flexible Storage

Issue/Introduction

 

How can I compare the DSN for a specific high level qualifier, or other character field for just the first couple of characters?

 

Resolution

 

Define the high level qualifier as a character field in the CONTROL-SECTION.
Example: DEFINE MYDSN CH 'SYS1'
In the PROCESS-SECTION of your code use the WHEN statement with your field as the first operand. The first operand determines the length of the compare.
Example: WHEN MYDSN EQ DSN
LIST