Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > IBM Enterprise COBOL > JCL y utilidades
JCL y utilidades Job Control Lenguage, DFSORT, IEBGENER, IDCAMS...
Comunicados
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 15: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, 13:12
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.06.2021 16:12
PROCEDURE DIVISION
Posts: 1.760
Enviado: 557
Recibido: 722
Soluiones: 94
Reputació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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk está en línea   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 16:20.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.