If you still need help with this, email me at [email protected] and I'll send you a small sample program. We have been running CICS command level assembler programs for 22 years with this certain "setup"with no problems. Oh, at one point we had to change the 1st working storage reg to be R13 since our CICS command level assembler programs do call sub programs that do basic work (no system services). Just one reason why I love programming on IBM mainframe!
Duf On Fri, Jul 27, 2012 at 8:38 AM, Dan Skomsky @ Home < [email protected]> wrote: > Oops, I almost forgot. You need to insert: > > *ASM XOPTS(NOPROLOG NOEPILOG) > > As the first statement in this little program so that the Command Level > Translator doesn't insert unneeded crap into your source. > > > -----Original Message----- > From: IBM Mainframe Assembler List [mailto:[email protected] > ] > On Behalf Of Dan Skomsky @ Home > Sent: Friday, July 27, 2012 10:32 AM > To: [email protected] > Subject: Re: Basic ASM question > > Try this: > > V100 TITLE 'SETOPTI, A LITTLE TEST CICS ASSEMBLER PROGRAM' > SETOPTI CSECT SET &SYSECT > *..* > DFHEIENT CODEREG=R11, DO EXEC $ > EIBREG=R12, INTERFACE $ > DATAREG=R13 INITIALIZATION > *..* > *..* 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' > SPACE 1 > STARTUP DS 0H > EXEC CICS ASKTIME. <== DON'T FORGET THE PERIOD > *********************************************************** > * > RETOUR DS 0H > *..* DFHEIRET > EXEC CICS RETURN. <== RETURN TO CICS > R11 EQU 11 > R12 EQU 12 > R13 EQU 13 > LTORG , A NICE PLACE FOR THE LITERAL POOL > TITLE 'DYNAMIC WORK AREA' > DFHEISTG DYNAMIC AREA START > * > * USER DATA AREAS BEGIN > * > USERDAT DS CL100 HOLDS USER DATA > SPACE 1 > * > * USER DATA AREAS END > * > DFHEIEND DYNAMIC AREA END > SPACE 4 > END SETOPTI END ASSEMBLY, SUPPLY EP >
