Editor
Publicado por Lorena (1 intervención) el 22/04/2002 15:36:19
Buen día...
Estoy efectuando unas pruebas en el ensamblador para ibm370 para lo que utilizo un emulador...necesito tomar de teclado lineas de caracteres y grabarlas en un archivo de salida...peero se interrumpe y no tengo idea que puede ser...alguien me podría ayudar? Este es el código:
EDIT PPIO 3
OTRA MVC LINEA,BLANCO
WTOR 'SALIR?:(S/N)',BYTE
CLI BYTE,C'N'
BE SEGUIR
FIN WTO 'FINALIZACION DE INGRESO'
CLOSE FUENTE
SEGUIR WTOR 'INGRESE LA LINEA DE CODIGO:',LINEA
PUT FUENTE,LINEA
B OTRA
CHAU
*DECLARACIONES*
BYTE DC CL1' '
BLANCO DC CL80' '
LINEA DS CL80
FUENTE DCB DDNAME=FUENTE,MACRF=P,BLKSIZE=80,RECFM=F,LRECL=80
END
Estoy efectuando unas pruebas en el ensamblador para ibm370 para lo que utilizo un emulador...necesito tomar de teclado lineas de caracteres y grabarlas en un archivo de salida...peero se interrumpe y no tengo idea que puede ser...alguien me podría ayudar? Este es el código:
EDIT PPIO 3
OTRA MVC LINEA,BLANCO
WTOR 'SALIR?:(S/N)',BYTE
CLI BYTE,C'N'
BE SEGUIR
FIN WTO 'FINALIZACION DE INGRESO'
CLOSE FUENTE
SEGUIR WTOR 'INGRESE LA LINEA DE CODIGO:',LINEA
PUT FUENTE,LINEA
B OTRA
CHAU
*DECLARACIONES*
BYTE DC CL1' '
BLANCO DC CL80' '
LINEA DS CL80
FUENTE DCB DDNAME=FUENTE,MACRF=P,BLKSIZE=80,RECFM=F,LRECL=80
END
Valora esta pregunta
0