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
