Hi, You might like to consider examing the LDA control block (IHALDA in MODGEN) pointed to by ASCBLDA.
This control block has various fields that describe the private area above and below the line. As for your VSMLIST attempt : (1) You are not checking the RC from VSMLIST. (2) STCM is not going to give you readable results in your WTO - you need to convert the binary values to printable characters. It would also have helped if you included the output that you received. Rob Scott Rocket Software, Inc 275 Grove Street Newton, MA 02466 617-614-2305 [EMAIL PROTECTED] -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of ITURIEL DO NASCIMENTO NETO Sent: 27 September 2007 13:24 To: [email protected] Subject: VSMLIST 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 ---------------------------------------------------------------------- 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
