Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > IBM Enterprise COBOL > JCL y utilidades
JCL y utilidades Job Control Lenguage, DFSORT, IEBGENER, IDCAMS...
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Leer variables en fichero COBOL85.CBR Joseg PowerCOBOL (ActiveX, v4 - v11) 7 1 de septiembre de 2017 18:44
[Sintaxis] Error sintaxis ADODB Mariadb variables host dmosca PowerCOBOL (ActiveX, v4 - v11) 17 28 de julio de 2017 23:19
[Sintaxis] Variables en programa con SQL embebido DYANY IBM Enterprise COBOL 1 20 de diciembre de 2016 16:26
[Información] Variables globales en multisesión: son seguras? Adrianeloy PowerCOBOL (ActiveX, v4 - v11) 5 23 de mayo de 2016 19:12
Respuesta
 
Herramientas

  #1
Antiguo 26 de febrero de 2015, 14:12
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Arrow Variables SET en ficha SYSIN

Siempre me he preguntado si se podía exportar las variables de JCL definidas por SET en zonas de fichas como la SYSIN. Pues hace no mucho descubrí que se puede. Eso sí, ojo que se puede hacer sólo a partir del z/OS V2, en V1 no funciona.

Para ello se necesita:
  • El comando EXPORT donde se reúnen las variables que son exportadas.
  • En las fichas hay que añadir SYMBOLS=JCLONLY.
Ejemplo:

Código JCL:
  1. //MB01DETA JOB PROB,&SYSUID,MSGCLASS=H,CLASS=S,TIME=0,
  2. //         NOTIFY=&SYSUID,REGION=0M,RESTART=*
  3. //***********************************************************************
  4. // EXPORT SYMLIST=(ENV,SYS)
  5. // SET SYS='DBV1'
  6. // SET ENV='6L'
  7. //***********************************************************************
  8. //JOBLIB DD DISP=SHR,DSN=VSHRDV.TM.LOAD <== DEV
  9. //**********************************************************************
  10. //* SELECT EN LAS TABLAS
  11. //**********************************************************************
  12. //STEPTAB1 EXEC PGM=IKJEFT01,DYNAMNBR=20,
  13. // COND=(4,LT)
  14. //SYSTSIN DD *,SYMBOLS=JCLONLY
  15. DSN SYSTEM(&SYS)
  16. RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
  17. //SYSPRINT DD SYSOUT=*
  18. //SYSTSPRT DD DUMMY
  19. //SYSOUT DD *
  20. //SYSIN DD *,SYMBOLS=JCLONLY
  21. --
  22. SET CURRENT SCHEMA = 'TEST&ENV';
  23. --
  24. /*


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
export , jcl , jclonly , set , symbols , symlist , sysin , variable


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 07:14.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.