Author: Daniel Teolotitla
Posted: Wed Aug 03, 2016 7:08 pm (GMT 5.5)
Hi!!
Thakns for the time!, the process is compiled with Cobol and CICS, i invoke a ASM routine with the CALL statement in CICS, that macro can be invoked from CICS
QG6TIME1 is a ASM routine
WK -MESSAGE field does come to the routine and is written in the TS , but the macro STIMERM no longer running, like end.
What i need to know is how I can make the macro run after the TS written?
Because my final idea is to use one of these parameters sent to the routine to be used in the macro
Thaks for your support!!
_________________
If you can imagine, you can program
Posted: Wed Aug 03, 2016 7:08 pm (GMT 5.5)
Hi!!
Thakns for the time!, the process is compiled with Cobol and CICS, i invoke a ASM routine with the CALL statement in CICS, that macro can be invoked from CICS
| Code: |
| CALL WK-QG6TIME1 USING DFHEIBLK DFHCOMMAREA WK-MESSAGE |
QG6TIME1 is a ASM routine
| Code: |
| *PROCESS RENT *ASM XOPTS(NOEPILOG,SP) DFHEISTG DSECT DYNAMIC-STG (R13) CSMTMSGL DS H CSMT MESSAGE-LGTH CSMTMSGA DS F CSMT MESSAGE-AREA QG6TIME1 DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11 L R7,8(,R1) NIHH R7,32767 MVI CSMTMSGA,C' ' MVC CSMTMSGA(4),0(R7) LHI R0,L'CSMTMSGA STH R0,CSMTMSGL STORE AS HWORD EXEC CICS WRITEQ TS, WRITE TO THE 'CSMT' TDQ, X QUEUE ('QGTIMER'), WHICH IS NORMALLY ROUTED TO X FROM (CSMTMSGA), DD 'MSGUSR' IN THE GIVEN REGION X LENGTH(CSMTMSGL), X NOHANDLE, L R15,EIBRESP LOAD THE RESPONSE-CODE DFHEIRET RCREG=R15 RETURN TO CALLER DFHREGS , CICS REGISTER-MACRO QG6TIME1 AMODE 31 , QG6TIME1 RMODE ANY , LABELTIM STIMERM SET,ID=ADDRESS,WAIT=YES,BINTVL=TIME EXEC CICS RETURN ADDRESS DS F TIME DS X'00000050' END |
WK -MESSAGE field does come to the routine and is written in the TS , but the macro STIMERM no longer running, like end.
What i need to know is how I can make the macro run after the TS written?
Because my final idea is to use one of these parameters sent to the routine to be used in the macro
Thaks for your support!!
_________________
If you can imagine, you can program