Thanks it work. 2012/7/27 Dan Skomsky @ Home <[email protected]>
> 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 >
