Hi all,
If i have an address space running with REGION=2M (or whatever), i would
like to find out how much of
these 2Mb are still available (i'm interested specifically in PVT).
I've done some tests with VMLIST but i'm problably doing something
wrong.
Here goes a piece of code :
VSMLIST SP=PVT,WKAREA=(WKAREA,L'WKAREA),
SPACE=FREE,LOC=24,LINKAGE=SYSTEM
SPACE 1
L R3,WKAREA+4 -> RESULT AREA
L R10,0(,R3) # FREE SPACE DESCRIPTOR
LTR R10,R10
JZ NOFREE
LA R3,4(,R3) First FREESPACE DESCRIPTOR
FREESD DS 0H
L R5,0(,R3) INITIAL Address
L R4,4(,R3) LENGTH OF FREE SPACE
LA R3,8(,R3) Next FREESPACE DESC
STCM R5,B'1111',WTO+18
STCM R4,B'1111',WTO+23
WTO WTO 'FREESPACE=XXXX,XXXX ',ROUTCDE=11
BCT R10,FREESD
J RETURN
NOFREE DS 0H
WTO 'NO FREE SPACE DESCRIPTOR'
Can you help me ?
Atenciosamente / Regards / Saludos
Ituriel do Nascimento Neto
Banco Bradesco S/A
4254/DPCD Alphaville
Engenharia de Software - Sistemas Operacionais Mainframes
Tel: 55 11 4197-2021 Fax: 55 11 4197-2814
<HTML><font face="Tahoma" size="1"><HR>AVISO LEGAL <br>Esta mensagem é
destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter
informação confidencial e/ou legalmente privilegiada. Se você não for
destinatário desta mensagem, desde já fica notificado de abster-se a divulgar,
copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação
contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem
por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a
eliminação do seu conteúdo em sua base de dados, registros ou sistema de
controle. Fica desprovida de eficácia e validade a mensagem que contiver
vínculos obrigacionais, expedida por quem não detenha poderes de representação.
<HTML><font face="Tahoma" size="1"><HR>LEGAL ADVICE <br>This message is
exclusively destined for the people to whom it is directed, and it can bear
private and/or legally exceptional information. If you are not addressee of
this message, since now you are advised to not release, copy, distribute, check
or, otherwise, use the information contained in this message, because it is
illegal. If you received this message by mistake, we ask you to return this
email, making possible, as soon as possible, the elimination of its contents of
your database, registrations or controls system. The message that bears any
mandatory links, issued by someone who has no representation powers, shall be
null or void.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
