/* REXX */ Address syscall /* load an ISPF option 6 screen */ /* set passthru mode */ 'pt3270 1 2' If retval = -1 then do Say "Unable to set 3270 passthru mode" return 2 End /* do we have an ISPF environment ? */ Address linkmvs 'ispqry' isprc = rc if isprc = 0 then , /* if ispf known to be active */ cmd = 'ISPEXEC SELECT PGM(ISRRCL) PARM(C1) SUSPEND SCRNAME(CMD) ', 'MODE(LINE)' else , /* if do not know */ cmd = '%ISTART PGM(ISRRCL) PARM(C1) SUSPEND SCRNAME(CMD)' /* send the command */ buf='ff51000000010001'x || d2c(length(cmd),4) || cmd "write 1 buf" /* discard the response */ "read 1 ibuf 1000" /* return to normal */ 'pt3270 1 3' return 0