ISPF system commands under program control?
Does anyone know a way to issue ISPF System Commands (eg PANELID, FKA ON, etc) under program control??? Would it, for example, be possible to set the command field in a panel and DISPLAY it with .RESP set to END??? (Doesn't seem to work, unfortunately . . .) Andy Robertson telephone mobile 0777 214 9545 home 01308 420797 ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN Websites: http://www.johnlewis.com http://www.waitrose.com http://www.greenbee.com http://www.johnlewispartnership.co.uk ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF system commands under program control?
Andy Robertson of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 09/14/2010 10:31:10 AM: Does anyone know a way to issue ISPF System Commands (eg PANELID, FKA ON, etc) under program control??? Would it, for example, be possible to set the command field in a panel and DISPLAY it with .RESP set to END??? (Doesn't seem to work, unfortunately . . .) Gilbert Saint-flour posted this on the ISPF list about a decade ago. Regards, John K /* This REXX EXEC displays the SMF system-id and screen number in the upper left hand corner of your ISPF 4.x screen. */ ADDRESS ISPEXEC CVT= PTR(16)/* CVTPTR */ SMCA = PTR(CVT+196) /* CVTSMCA (SMF CTL AREA) */ SMCASID = STRING(SMCA+16,4) /* SMCASID (SMF SYSTEM ID)*/ VGET ZSCREEN /* get screen number */ CMD = 'PANELID OFF;SCRNAME ON;SCRNAME' SMCASID'#'ZSCREEN 'PERM' DISPLAY PANEL(ISPSTRTP) COMMAND(CMD) EXIT 1 PTR: RETURN C2D(BITAND(STORAGE(D2X(ARG(1)),4),'7FFF'X)) STRING: RETURN STRIP(STORAGE(D2X(ARG(1)),ARG(2))) /* Gilbert Saint-flour: g...@ibm.net */ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF system commands under program control?
ah, the COMMAND option of DISPLAY PANEL(...). gotcha To: IBM-MAIN@bama.ua.edu From: John P Kalinich jkali...@csc.com ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN Websites: http://www.johnlewis.com http://www.waitrose.com http://www.greenbee.com http://www.johnlewispartnership.co.uk ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF system commands under program control?
Look at control nodisplay enter and display panel() cmd(panelid). Use an ispf panel that foes nothing just to enter the command. ITschak On Tue, Sep 14, 2010 at 5:31 PM, Andy Robertson andy_robert...@johnlewis.co.uk wrote: Does anyone know a way to issue ISPF System Commands (eg PANELID, FKA ON, etc) under program control??? Would it, for example, be possible to set the command field in a panel and DISPLAY it with .RESP set to END??? (Doesn't seem to work, unfortunately . . .) Andy Robertson telephone mobile 0777 214 9545 home 01308 420797 ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN Websites: http://www.johnlewis.com http://www.waitrose.com http://www.greenbee.com http://www.johnlewispartnership.co.uk ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html