Hi all,
I would like your advice when reserving 512Kb below 16Mb line.
During years i've coded :
L R7,LDASIZA Size of A.S. Region Below
L R8,LDAESIZA Size of A.S. Region Above
ASSIGN0 DS 0H Region=0M
ST R8,REGLIMA REGLIMA = EPRIVATE
S R8,LSQAA R8 => REGLIMA = Max - 15M
ST R8,REGSIZA Save EXTENDED REGION-SIZE
ST R7,REGLIMB REGLIMB = PRIVATE
S R7,LSQAB R7 => REGLIMB = Max - 512K
ST R7,REGSIZB Save
OC REGFLAGS,Highbit TELL VSM BRAFUSI SUPPLY INFO
LSQAB DC A(512*1024) LSQA Below (512Kb)
LSQAA DC A(15*1024*1024) LSQA Above (15Mb)
I was told that this code was not actually saving LSQA, then i was
instructed to code :
L R7,LDASIZA Size of A.S. Region Below
L R8,LDAESIZA Size of A.S. Region Above
S R7,LSQAB R7 => REGLIMB = Max - 512K
S R8,LSQAA R8 => REGLIMA = Max - 15M
ASSIGN0 DS 0H Region=0M
ST R8,REGLIMA REGLIMA = EPRIVATE-15M
S R8,@500K REGSIZA = REGLIMA-500K
ST R8,REGSIZA Save EXTENDED REGION-SIZE
ST R7,REGLIMB REGLIMB = PRIVATE-512K
S R7,@100K REGSIZB = REGLIMB-100K
ST R7,REGSIZB Save
OC REGFLAGS,Highbit TELL VSM BRAFUSI SUPPLY INFO
@100K DC A(100*1024) 100K
@500K DC A(500*1024) 500K
LSQAB DC A(512*1024) LSQA Below (512Kb)
LSQAA DC A(15*1024*1024) LSQA Above (15Mb)
Is There a better option ?
Thanks in advance
Atenciosamente / Regards / Saludos
Ituriel do Nascimento Neto
Banco Bradesco S/A
4254 - DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Tel: +55 11 4197-2021 R: 22021 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
