Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

3.9.- DDNAMES ESPECIALES

Ver el tema anterior Ver el tema siguiente Ir abajo

3.9.- DDNAMES ESPECIALES

Mensaje por Coboler@ el Dom Mayo 29, 2011 9:32 pm

JOBCAT.

Sirve para definir un VSAM privado o un catálogo privado.

//EJEMPLO1 JOB WILLIAMS,MSGLEVEL=1
//JOBCAT DD DSNAME=LYLE,DISP=SHR
// EXEC PGM=SCAN

JOBLIB.

Sirve para crear o identificar una librería privada, es decir cuando no queremos que busque en la SYS1.LINKLIB. No se debe usar JOBLIB dentro de un procedimiento catalogado. Debe ser la primera sentencia DD.

//EJEMPLO2 JOB WILLIAMS
//JOBLIB DD DSNAME=USER.LIB,DISP=SHR
// EXEC PGM=SCAN

STEPCAT.

Sirve para definir o identificar un VSAM privado o un catálogo privado. Sólo se puede utilizar en este paso.

//EXEC PROC=SNZ12
//STEPCAT DD DSNAME=BETTGER,DISP=SHR

STEPLIB.

Sirve para definir o identificar una librería privada. Sólo podrá utilizarse en este paso. Si se puede utilizar dentro de un procedimiento catalogado. No tiene porque ser la primera sentencia DD.

SYSABEND,SYSUDUMP,SYSMDUMP.

SYSABEND : Produce un DUMP de las áreas de usuario y de sistema. Es decir, vuelca el núcleo del sistema, el área del programa que ha tenido el problema y la tabla de trace. Este dump se puede imprimir directamente.

SYSUDUMP : Produce un DUMP de las áreas de usuario. Es decir, sólo vuelca el área del programa que ha tenido el problema. Se puede imprimir directamente.

SYSMDUMP : Produce un DUMP de las áreas de sistema. Si se quiere imprimir hay que utilizar PRDUMP.

SYSCHK.

Define el fichero donde se grabaron los checkpoints del programa en una ejecución anterior y desde donde se quiere ahora rearrancar. La DD con este nombre debe preceder a la primera EXEC.

SYSIN.

Sirve para comenzar ficheros in-stream (ver ficheros in-stream).
La SYSIN termina con los caracteres /* o //.

EXPL.JOBS(DSESPECI) - 01.03
===>
//*******************************************
//**** OS390_DELETEFILE
//*******************************************
//STEPDEL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES(XBGS.TSLPROV)
IF LASTCC = 0 -
THEN -
DELETE XBGS.TSLPROV
//*******************************************

SYS1.EXPLPROC(MPODAMCF) - 01.01 Columns 00001
===> Scroll ===
/*
//IFTEST2 IF (MPOD4VMC.RC = 0 ) THEN
//MPOD3AMC EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=0M
- - - - - - - - - - - - - - - 187 Line(s) not Dis
//SYSTSPRT DD SYSOUT=*
// ENDIF
//IFTEST3 IF (MPOD4VMC.RC < 5 ) THEN
//***************************************************************
//* PASO DE BORRADO DE LOS FICHEROS
//***************************************************************
//DELETE8 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL ( TEST.MPODAMCF.INTERFAC.FRESULTA -
TEST.MPODAMCF.MPOD4ERF.FSALREF )

SET MAXCC = 0
SET LASTCC = 0
/*


//********************************************************************
//* SUBMIT A JOB TO JES INTERNAL READER FOR EXECUTION *
//********************************************************************
//SUBMIT EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XYFPERE.LIB.PROCLIB(COMPIDB2)
//SYSUT2 DD SYSOUT=(B,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.