You don't have the proper "setup" at the start of your CICS code. You can't use
standard OS linkage setup.
You have:
SETOPTI CSECT
STM R14,R12,12(R13) * SAVE CALLER'S REGS
USING SETOPTI,R12 * R12 IS BASE
ST R13,SAVEAREA+4
LA R13,SAVEAREA
B STARTUP
*
DC CL8'SETOPTI'
DC C'&SYSDATE'
DC C'&SYSTIME'
STARTUP DS 0H
EXEC CICS ASKTIME
***********************************************************
*
RETOUR DS 0H
DFHEIRET
All you need is:
SETOPTI CSECT
B STARTUP
*
DC CL8'SETOPTI'
DC C'&SYSDATE'
DC C'&SYSTIME'
STARTUP DS 0H
EXEC CICS ASKTIME
***********************************************************
*
RETOUR DS 0H
EXEC CICS RETURN
You run this through the CICS Preprocessor, then though the assembler. In the
CICS supplied proclib, you can use the DFHEITAL proc as example JCL.
Not meaning to be objectionable, but you really could use having some CICS
programming training. CICS is nothing like batch. And if you use batch
techniques, you are liable to crash CICS or, more likely, cause unacceptable
response times.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Assembler List
> [mailto:[email protected]] On Behalf Of
> Mainframe Mainframe
> Sent: Friday, July 27, 2012 9:27 AM
> To: [email protected]
> Subject: Basic ASM question
>
> I'm trying to make a little CICS Assembler program an I get
> always a 0C4 at
> execution. DFHSR0618 CICSPROD An illegal macro call or
> reference to the CSA
> or TCA. Here's my program.
>
> SETOPTI CSECT
> STM R14,R12,12(R13) * SAVE CALLER'S REGS
> USING SETOPTI,R12 * R12 IS BASE
> ST R13,SAVEAREA+4
> LA R13,SAVEAREA
> B STARTUP
> *
> DC CL8'SETOPTI'
> DC C'&SYSDATE'
> DC
> C'&SYSTIME'
>
> STARTUP DS 0H
> EXEC CICS ASKTIME
> ***********************************************************
> *
> RETOUR DS 0H
> DFHEIRET
>
> Does someone can help me.
>
>
