|
View previous topic :: View next topic
|
| Author |
Message |
ANTONIO HERNANDEZ MENDEZ
New User
Joined: 28 Dec 2007
Posts: 2
Location: CARACAS - VENEZUELA
|
|
|
|
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 |
|
 |
Srinivasa Rao
New User
Joined: 21 Jun 2005
Posts: 75
|
|
|
|
| It will be helpful if you send the program. |
|
| Back to top |
|
|
ANTONIO HERNANDEZ MENDEZ
New User
Joined: 28 Dec 2007
Posts: 2
Location: CARACAS - VENEZUELA
|
|
|
|
I Send the program (Subroutine).
Input parameter R2 : Volune Serial (6 chars)
Output parameter r3 : SMS Storage Group (8 chars) |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
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 |
|
|
|
|
