Code: |
ZZWAIT CSECT
SAVE (14,12),,* BALR 12,0 USING *,12 ST 13,SAVEAREA+4 LA 14,SAVEAREA ST 14,8(,13) LR 13,14 L 2,0(,1) MVC INTERVAL,0(2) STIMER WAIT,,BINTVL=INTERVAL RETURN L 13,SAVEAREA+4 RETURN (14,12),RC=0 SAVEAREA DC 18F'0' CNOP 0,4 INTERVAL DC XL4'00' RETURN (14,12),RC=0 SAVEAREA DC 18F'0' CNOP 0,4 INTERVAL DC XL4'00' END |
Code: |
say time()
X=10 PARM1=D2C(X,4) ADDRESS LINKPGM "ZZWAIT PARM1" SAY RC SAY TIME() exit |
deepa12 wrote: |
Currently the TSO session expires after half hour of inactivity We would like to write a tool to extend the tso session time by just doing for e.g. pressing ENTER key in an sdsf session at the background every 10 mins & stop it once the user comes back. |
Code: |
/* REXX */ CALL ON HALT DO COUNT = 1 TO 10 COUNT = COUNT - 1 IF LOOP_CONTINUE = 'NO' THEN LEAVE A = SYSCALLS('ON') ADDRESS SYSCALL "SLEEP 10" END EXIT 0 HALT: LOOP_CONTINUE = 'NO' RETURN |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours