Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Z/OS or S/390- how to find

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
mfhelp
Warnings : 1

New User


Joined: 29 Jun 2006
Posts: 33

PostPosted: Wed Oct 04, 2006 11:03 am    Post subject: Z/OS or S/390- how to find
Reply with quote

how to find whether i m working on Z/OS or S/390??
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Oct 04, 2006 5:45 pm    Post subject: Re: Z/OS or S/390- how to find
Reply with quote

Look at the contents of the ISPF system variable ZOS390RL (ISPF Option 7.3).
Back to top
View user's profile Send private message
mfhelp
Warnings : 1

New User


Joined: 29 Jun 2006
Posts: 33

PostPosted: Wed Oct 04, 2006 5:51 pm    Post subject:
Reply with quote

we dont have any option 7 in our ISPF menu......any other alternate method plz??
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Oct 04, 2006 6:19 pm    Post subject: Re: Z/OS or S/390- how to find
Reply with quote

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
View user's profile Send private message
jon_s_rice

Active User


Joined: 24 Mar 2005
Posts: 102
Location: Douglasville, GA USA

PostPosted: Thu Oct 05, 2006 3:20 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts How to find the first monday of the w... abdulrafi COBOL Programming 10 Fri Nov 25, 2016 3:24 pm
No new posts Find out a active PGM jpsager JCL & VSAM 10 Fri Oct 07, 2016 4:32 pm
No new posts How to find a CICS resource used in C... Arunkumar Chandrasekaran CICS 8 Thu Sep 29, 2016 1:45 pm
No new posts how to find clist's or view library Andrew Hsia CLIST & REXX 4 Tue Jun 28, 2016 6:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us