MVSFORUMS.com

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

hi everybody,

i need to write into internal reader a jcl by a application program in cobol cics. is that possible?

many tanks

acevedo · Posted: Thu Sep 11, 2008 3:47 am Post subject:

search in the CICS manual for SPOOL sentences (spoolopen-spoolwrite-spoolclose)

hth

enge · Beginner Joined: 12 Oct 2004 Posts: 78 Topics: 39

THANK YOU FOU YOUR TIP! I FIND OUT AN EXAMPLE!
!EXEC CICS SPOOLOPEN OUTPUT
! NODE ('LOCAL')
! USERID ('INTRDR')
! RESP(RESPCODE)RESP2(RES2CODE)
! 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(RESPCODE) RESP2(RES2CODE)
! FLENGTH(OUTLEN)
! TOKEN(TOKEN)
! END-EXEC
!END-PERFORM
!
!EXEC CICS SPOOLCLOSE
! TOKEN(TOKEN)
! RESP(RETCODE) RESP2(RESP2)
!END-EXEC