Hum, I got my example from looking at some old code. It may be bad, because as Tony said, "where's your DFHEIENT?" (I don't have one either). You probably also need a DFHEISTG for the equivalent of COBOL's WORKING-STORAGE, aka "transaction specific storage".
-- 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 McKown, John > Sent: Friday, July 27, 2012 9:47 AM > To: [email protected] > Subject: Re: Basic ASM question > > 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. > > > > > >
