|
View previous topic :: View next topic
|
| Author |
Message |
mfhelp
Warnings : 1
New User
Joined: 29 Jun 2006
Posts: 33
|
|
|
|
| how to find whether i m working on Z/OS or S/390?? |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Look at the contents of the ISPF system variable ZOS390RL (ISPF Option 7.3). |
|
| Back to top |
|
|
mfhelp
Warnings : 1
New User
Joined: 29 Jun 2006
Posts: 33
|
|
|
|
| we dont have any option 7 in our ISPF menu......any other alternate method plz?? |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
Then write a program to interrogate the variable:
| Code: |
IDENTIFICATION DIVISION.
PROGRAM-ID...
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 VARLIST.
03 ZOS390RL PIC X(80).
01 NZOS390RL PIC X(10) VALUE '(ZOS390RL)'.
01 VDEFINE PIC X(8) VALUE 'VDEFINE'.
01 VGET PIC X(8) VALUE 'VGET '.
01 SHARED PIC X(8) VALUE 'SHARED '.
01 ASIS PIC X(8) VALUE 'ASIS '.
01 PROFILE PIC X(8) VALUE 'PROFILE'.
01 CHAR PIC X(8) VALUE 'CHAR '.
01 L80 PIC 9(6) VALUE 80 COMP.
PROCEDURE DIVISION.
CALL 'ISPLINK' USING VDEFINE NZOS390RL ZOS390RL CHAR L80.
CALL 'ISPLINK' USING VGET NZOS390RL ASIS.
DISPLAY ZOS390RL.
MOVE ZEROS TO RETURN-CODE.
STOP RUN.
|
|
|
| Back to top |
|
|
jon_s_rice
Active User
Joined: 24 Mar 2005
Posts: 102
Location: Douglasville, GA USA
|
|
|
|
| Another alternative is to use TSO ISPVCALL STATUS. this will create a flie that will show the OS version and other system information. |
|
| Back to top |
|
|
|
|
