Unidad central de trabajo por lotes Activación

Question

Soy nuevo en CICS. Tengo una pregunta, ¿Se puede desencadenar transacciones CICS a fondo por lotes de trabajo? Quiero desencadenar un trabajo por lotes a través del programa que es ejecutado por transacciones CICS, ¿es posible?

Answer 1

Sí, es posible.

Sus programadores del sistema tienen que configurar una cola de datos de partición adicional transitoria cuya declaración DD está señalando hacia el lector JES interno.

Tienes que escribir el JCL a la cola de datos transitorios, incluyendo la última // tarjeta.

Usted es responsable de asegurar el acceso de serie a la cola de datos transitorios con comandos CICS Enqueue y DEQUEUE.

La tarjeta de trabajo tiene que contener un identificador de usuario y una contraseña, de modo que se ejecuta el trabajo bajo su cuenta y no el ID de usuario de la región CICS.

Otra opción es el comando CICS SPOOLOPEN.

Aquí hay un código COBOL que utiliza el comando SPOOLOPEN.

EXEC CICS SPOOLOPEN OUTPUT
          NODE ('LOCAL')
          USERID ('INTRDR')
          RESP(RETCODE)RESP2(RESP2)
          TOKEN(TOKEN)
END-EXEC

PERFORM VARYING JCL-IND FROM +1 BY +1
  UNTIL RETCODE NOT = DFHRESP(NORMAL)
     OR JCL-IND > jcl-ind-max
  MOVE JCLELE (JCL-IND)     TO      JOBQUEUE
  EXEC CICS SPOOLWRITE
          FROM(JOBQUEUE)
          RESP(RETCODE) RESP2(RESP2)
          FLENGTH(OUTLEN)
          TOKEN(TOKEN)
  END-EXEC
END-PERFORM

EXEC CICS SPOOLCLOSE
          TOKEN(TOKEN)
          RESP(RETCODE) RESP2(RESP2)
END-EXEC

He encontrado esta información en un CICS wiki .