Is there a way to determine programmatically in an ADSO dialog what CV it is executing on? In other words, is there some system variable that could be interrogated from an executing dialog to determine the CV that it is executing on?
The ACCEPT command could be used to retrieve the SYSTEM VERSION into a binary halfword field.
PROCESS NAME IS ACCEPT VERSION IS 1
PUBLIC ACCESS IS ALLOWED FOR ALL
PROCESS SOURCE FOLLOWS
ACCEPT SYSVERSION INTO SYS-NUM.
02 SYS-NUM...................................N 00001850
This is on a CV with this definition:
*+ ADD SYSTEM 1850
*+ SYSTEM ID IS SYST1850
*+ CVNUMBER IS 17
It does not directly give the CV number but the SYSTEM number. The two numbers are associated on the SYSTEM statement but either way it identifies the CV it is running on.