Hi, We have a little program that can be used :
*---------------------------------------------------------------------*
* PROGRAM - PGMRC *
* AUTHOR - BRADESCO - ITURIEL *
* *
* FUNCTION - ISSUE RC PASSED BY PARM (PARM='RC=XXXX') *
* *
* *
* REGS - R12 - REGISTRADOR BASE. *
* - R13 - ENDERECO DA SAVEAREA. *
* - R14 - ENDERECO DE RETORNO. *
* - R15 - RETURN CODE. *
* *
* ALTERACOES - - - *
*---------------------------------------------------------------------*
PGMRC CSECT
PGMRC AMODE 31
PGMRC RMODE ANY
PRINT NOGEN
*---------------------------------------------------------------------
* LINKAGE CONVENTION
*---------------------------------------------------------------------
BAKR 14,0
LR 12,15
USING PGMRC,12 SET REG12 COMO BASE
MVC 4(4,R13),=C'F1SA' ACRONIMUM PARA LINKAGE STACK
*
L R8,0(,R1) REG2 APONTA PARA OS PARMS
*
INICIO DS 0H
LH R3,0(R8)
CH R3,=H'0'
BE NOPARM
BCTR R3,0
EX R3,MVCPARM
CLC RCDEC(4),=C'4095'
JH NOPARM
PACK PACKDATA,RCDEC
CVB R15,PACKDATA
J FIM
NOPARM DS 0H
XR R15,R15
FIM DS 0H
PR
*---------------------------------------------------------------------*
* AREAS DE TRABALHO *
*---------------------------------------------------------------------*
SAVEAREA DC 18F'0'
MVCPARM MVC GETRC(0),2(R8)
GETRC DS 0CL7
RCEQUAL DC CL03'RC='
RCDEC DC CL04' '
DC CL08' '
PACKDATA DC D'0'
*---------------------------------------------------------------------*
* EQUATE DOS REGISTRADORES *
*---------------------------------------------------------------------*
R0 EQU 0
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
END PGMRC
Atenciosamente / Regards / Saludos
Banco Bradesco S/A
4254/DPCD Alphaville
Suporte Técnico - Software Básico Mainframes
Ituriel do Nascimento Neto
Tel: 55 11 4197-2021 Fax: 55 11 4197-2814
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.
+******+
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
