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