Autor |
Mensaje |
Fede_lae
Nivel 3
Edad: 33
Registrado: 20 Abr 2013
Mensajes: 21
|
|
Buenas, hice varios ejercicios de final para practicar pero los que nunca logro entender (y aparecen siempre) son los que hay que hacer corrimientos (SLL,SRL...) para pasar de un formato y configuración a otra.
Por ejemplo: Cómo paso un numero en formato zoneado 2 bytes configuración octal a BPF. ?
Muchas gracias!
|
|
|
|
|
|
|
|
|
lerp90
Nivel 5
Edad: 33
Registrado: 08 Mar 2013
Mensajes: 141
Ubicación: San Miguel
Carrera: Sistemas
|
|
¿Tenés el enunciado de los ejercicios a mano?
|
|
|
|
_________________ “Si la cancha estaba embarrada era lo mejor que me podía pasar. Me podía deslizar mucho mejor. Y los agarraba en el viaje con el tackle deslizante, no tenía drama.”
|
|
|
|
|
Fede_lae
Nivel 3
Edad: 33
Registrado: 20 Abr 2013
Mensajes: 21
|
|
1) Hacer una rutina en IBM que reciba como paràmetros 2 nùmeros en base 4 de 8 dìgitos en formato EBCDIC y devuelva la suma tambièn en EBCDIC.
2) Codificar una rutina interna en IBM que reciba los siguientes 3 paràmetros:
a. Un campo empaquetado de longitud variable
b. Un byte en hexadecimal con la longitud del campo anterior (valores 116 a 416 unicamente).
c. Un campo resultado en donde la rutina deberà dejar la configuraciòn en base 8 del empaquetado (11 bytes en formato caràcter EBCDIC).
Ej:
Paràmetros de entrada : 123C16 0216
Paràmetro de salida: 11074 (en EBCDIC)
Muchas gracias!!
|
|
|
|
|
|
|
|
|
mandujar
Nivel 3
Registrado: 03 Dic 2012
Mensajes: 35
Carrera: Sistemas
|
|
Se se resuelve así aproximadamente
EJ130213 SUBENTRY BASES=(3)
BAL 12,VALIDAR
BAL 12,RESULT
BAL 12,MOSTRAR
B SALIR
INVALID WTO 'DATO NO VALIDO'
SALIR SUBEXIT
VALIDAR LA 4,0
IC 4,LONG
C 4,=F'1'
BL INVALID
C 4,=F'4'
BH INVALID
BR 12
RESULT LA 11,3
IC 11,LONG
M 10,=F'3'
LA 7,SALIDA
S 7,=F'1'
AR 7,11
LA 4,0
ICM 4,15,NUM
OTRODIG SRDL 4,3
SRL 5,29
A 5,=F'240'
STC 5,0(7)
S 7,=F'1'
LA 5,0
BCT 11,OTRODIG
BR 12
MOSTRAR WTO MF=(E,WTOBLOCK)
BR 12
*TIPOS DE DATOS
NUM DC PL4'123'
LONG DC X'3'
WTOBLOCK DC H'15'
DC H'0'
SALIDA DC CL11'0'
END
|
|
|
|
|
|
|
|
|
Fede_lae
Nivel 3
Edad: 33
Registrado: 20 Abr 2013
Mensajes: 21
|
|
Genial! Muchas gracias por la resolución!!
|
|
|
|
|
|
|
|
|
|
|
Ver tema siguiente
Ver tema anterior
Podés publicar nuevos temas en este foro No podés responder a temas en este foro No podés editar tus mensajes en este foro No podés borrar tus mensajes en este foro No podés votar en encuestas en este foro No Podéspostear archivos en este foro No Podés bajar archivos de este foro
|
Todas las horas son ART, ARST (GMT - 3, GMT - 2 Horas)
Protected by CBACK CrackerTracker365 Attacks blocked.
|
|
[ Tiempo: 0.4199s ][ Pedidos: 20 (0.3621s) ] |