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
