Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
I Need to Know the STORAGE CLASS(SMS) of any Volumen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
ANTONIO HERNANDEZ MENDEZ

New User


Joined: 28 Dec 2007
Posts: 2
Location: CARACAS - VENEZUELA

PostPosted: Mon Jan 07, 2008 4:52 am    Post subject: I Need to Know the STORAGE CLASS(SMS) of any Volumen
Reply with quote

I am using the Assembler macro Instruction IEFSSREQ, to try to obtain the STORAGE GROUP of any Volumen DISK.
But when i execute the program, always return a Blank Field.

If you need i can send a program for more help...!!!!

Thank you, very much
Back to top
View user's profile Send private message

Srinivasa Rao

New User


Joined: 21 Jun 2005
Posts: 75

PostPosted: Mon Jan 07, 2008 7:13 pm    Post subject:
Reply with quote

It will be helpful if you send the program.
Back to top
View user's profile Send private message
ANTONIO HERNANDEZ MENDEZ

New User


Joined: 28 Dec 2007
Posts: 2
Location: CARACAS - VENEZUELA

PostPosted: Tue Jan 08, 2008 4:24 am    Post subject: Reply to: I Need to Know the STORAGE CLASS(SMS) of any Volum
Reply with quote

I Send the program (Subroutine).

Input parameter R2 : Volune Serial (6 chars)
Output parameter r3 : SMS Storage Group (8 chars)
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jan 14, 2008 5:14 pm    Post subject:
Reply with quote

Please DO NOT use attachments as many sites do not allow them to be downloaded / opened. This reduces the number of people able to help you.

Run DCOLLECT under IDCAMS to get the VL records which relate a volume to a STORGRP
Code:

//SYSIN    DD *
DCOLLECT  OUTFILE(DCOLLOUT) VOLUMES(**)        -       
          NOVOLUMEINFO NODATAINFO ERRORLIMIT(1)           -       
          SMSDATA(ACTIVE)                               
SET MAXCC EQ 0                                         


You can also invoke IDCAMS from your program, or even take a look at the CSI modules supplied in SYS1.SAMPLIB
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts sharing PLI storage Pedro PL/I & Assembler 2 Mon Oct 16, 2017 10:11 pm
No new posts question about dfsms management clas... Hervey Martinez IBM Tools 0 Tue Oct 10, 2017 6:19 pm
No new posts Iterative use of a REXX script causin... bryonyh CLIST & REXX 4 Fri Jul 28, 2017 12:52 pm
No new posts GETMAIN / FREEMAIN versus STORAGE OBT... steve-myers PL/I & Assembler 8 Wed Feb 01, 2017 1:45 am
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us