REF. PROBLEMA AL CARGAR MAPA BMS COMPILADO EN JCL

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
ALDO
Usuario
Usuario
Mensajes: 28
Registrado: 27 Nov 2018, 11:45
País: CHILE
Ciudad: VIÑA DEL MAR
Ocupación: Jefe de area de sistemas

REF. PROBLEMA AL CARGAR MAPA BMS COMPILADO EN JCL

Mensaje por ALDO » 06 Dic 2018, 14:44

Estimados
REF. PROBLEMA AL CARGAR MAPA BMS COMPILADO EN JCL
Estoy Intentando Compilar y cargar un Mapa BMS para Ejecutar Bajo Cobol Cics
Con el sgte JCL (SE ADJUNTA):
Al Analizarlo encontre que en hecules no tengo la Biblioteca "USER.AVAN.JP.CPY"
Por lo que Me cree Una Biblioteca particionada para el Mapa Simbolico "ARVINGEN.CURSO.CPY".
Ejecute el Jcl, cual me compilo el mapa
pero el paso PSCH0020 me arrojo los siguientes errores:

Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement
1 01 MAPA001I.
* ASMA141E Bad character in operation code - 01
* ASMA435I Record 1 in ARVINGEN.CURSO.CPY(MAPA001) on volume: JASYS1
2 02 FILLER PIC X(12).
* ASMA141E Bad character in operation code - 02
* ASMA435I Record 2 in ARVINGEN.CURSO.CPY(MAPA001) on volume: JASYS1
3 01 MAPA001O REDEFINES MAPA001I.
* ASMA141E Bad character in operation code - 01
* ASMA435I Record 3 in ARVINGEN.CURSO.CPY(MAPA001) on volume: JASYS1
4 02 FILLER PIC X(12).
* ASMA141E Bad character in operation code - 02
* ASMA435I Record 4 in ARVINGEN.CURSO.CPY(MAPA001) on volume: JASYS1
* ASMA140W END record missing
* ASMA435I Record 4 in ARVINGEN.CURSO.CPY(MAPA001) on volume: JASYS1

'000000000 JCL EJECUTADO 000000000000000000000000

//JMAPA001 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=IBMUSER,REGION=0M TYPRUN=SCAN
//**********************************************************
//*COMPILA MAPA BMS MAPA001
//**********************************************************
//* PASO : PSCH0010
//* PROGRAMA : ASMA90
//* FUNCION : VALIDA ARQUITECTURA DEL MAPA Y GENERA EL COPY
//**********************************************************
//*
//PSCH0010 EXEC PGM=ASMA90,REGION=2M, <---- ESTE PASO CORRIO SIN PROBLEMAS COD 000
// PARM='DECK,NOOBJECT,LIST,XREF(FULL),ALIGN,SYSPARM(DSECT)'
//SYSLIB DD DSN=DFH320.CICS.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=ARVINGEN.CURSO.MAPAS(MAPA001),DISP=SHR FTE DEL MAPA
//SYSPUNCH DD DSN=ARVINGEN.CURSO.CPY(MAPA001),DISP=SHR MAPA SIMBOLICO
//*
//**********************************************************
//* PASO : PSCH0020
//* PROGRAMA : ASMA90
//* FUNCION : ENSAMBLA MAPA PARA GENERAR EL MODULO DE CARGA
//***********************************************************
//*
//PSCH0020 EXEC PGM=ASMA90,COND=(4,LT,PSCH0010),REGION=2M,
// PARM='DECK,NOOBJECT,LIST,XREF(FULL),ALIGN,SYSPARM(MAP)'
//SYSLIB DD DSN=DFH320.CICS.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=ARVINGEN.CURSO.CPY(MAPA001),DISP=SHR <---- AQUI MARCO ERROR ???
//---LINEA REEMPLAZAD POR LA ANTERIOR-----------------------
//*YSPUNCH DD DSN=USER.AVAN.JP.CPY(MAPA001),DISP=SHR MAPA SIMBOLICO
//-----------------------------------------------------------
//SYSPUNCH DD DSN=&&MAPA,UNIT=3390,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
// DISP=(NEW,PASS,DELETE),SPACE=(1700,(1000,300),RLSE)
//SYSLIN DD DUMMY
//*
//**********************************************************
//* PASO : PSCH0030
//* PROGRAMA : IEWL
//* FUNCION : VALIDA Y GENERA EL MODULO DE CARGA PARA CICSLIB
//***********************************************************
//*
//PSCH0030 EXEC PGM=IEWL,
// PARM='LET,LIST,SIZE=(512K,128K)',COND=(4,LT,PSCH0020)
//SYSLMOD DD DSN=DFH320.CICS.SDFHLOAD(MAPA001), MAPA OBJETO
// DISP=SHR
//SYSLIN DD DSN=&&MAPA,DISP=(OLD,DELETE)
// DD *
NAME MAPA001(R)
/*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=121,BLKSIZE=1210)
//*
//**********************************************************
//* FINALIZA PROCESO
//**********************************************************

Agaraceré si me puedeN dar alguna pista del problema, ya que revise el
Codigo de retorno y me indica que existe error en el tipo de caracter INVALIDO ??.
ASMA141E Bad character in operation code...?????
Gracias

ccavallo
Usuario
Usuario
Mensajes: 17
Registrado: 27 Ago 2013, 13:09
País: España
Ciudad: Alovera
Ocupación: Jefe de area de sistemas

Re: REF. PROBLEMA AL CARGAR MAPA BMS COMPILADO EN JCL

Mensaje por ccavallo » 29 Dic 2018, 10:49

ALDO,
1) Uno de los problemas que tienes es que el paso PSCH0020 ejecuta un compilador ASSEMBLER y le estas pasando como fuente una COPY en COBOL.
La SYSIN del paso PSCH0020 debe ser ARVINGEN.CURSO.MAPAS(MAPA001)
2) En el paso PSCH0030, quítale las siguientes líneas al JCL
// DD *
NAME MAPA001(R)
/*

ALDO
Usuario
Usuario
Mensajes: 28
Registrado: 27 Nov 2018, 11:45
País: CHILE
Ciudad: VIÑA DEL MAR
Ocupación: Jefe de area de sistemas

Re: REF. PROBLEMA AL CARGAR MAPA BMS COMPILADO EN JCL

Mensaje por ALDO » 30 Dic 2018, 12:23

Enterado, Gracias

Responder