Yes, I've done 3270 data streams the hard way, and given the choice I would load and call ISPLINK (I'm out of date--there may be easier ways these days?) with the usual R1-> variable length parameter list, with the first being a CL8 'DISPLAY ', the second the name of the panel, and so on.
If you VDEFINE any variable fields you want on the panel first, then the data is immediately available in the linked field in your code. Store the panel somewhere in the ISPPLIB allocation, or add your own panel library (I forget the name of the service to do that). Roops On Tue, 22 Aug 2023, 13:24 Seymour J Metz, <sme...@gmu.edu> wrote: > The easiest way is to actually create a panel, either directly or via DTL. > It's a lot easier than reinventing the wheel. ISPF does have dynamic > panels, but that seems like overkill. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > ________________________________________ > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf > of Clem Clarke [clementcla...@ozemail.com.au] > Sent: Tuesday, August 22, 2023 8:12 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Converting Assembler TPUTS to ISPF > > I have a program that takes as input something like: > > Panel Menubar ('Files Apps Exit') > // ('Please enter your Logon Id:', Logon,8,' '); > > This will create a full screen panel with a MenuBar, and an entry field > for a Logon ID. > > This simple statement works on Z/OS, Windows and Linux as part of a > scripting language. > > The mainframe version uses Assembler TPUTs. I think there are ways to > create ISPF panels in assembler. > > How would I put output text at a particular row/column, for example? Or > change a color? > > Many thanks, > > Clem Clarke > > PS: A full example with colors and so on can be seen here: > > http://secure-web.cisco.com/1rHOjmwoTiUvPSCp7BdLV3xu0AQQHWoy54OSMZpDua2tqLMnvZYa06HK4Fu4MzLLLX6L5Ec-wMbYhfLI2WzqwcLSZL6Zl8U9PwZbkKdlwEG3A9O4xHb7i2uFwoiQcMUw_j6VqODvghaj1yllvebDTO3Lhsntp6qbDkSL9mD0HuYBACmsXG_Fx93JeSoBNrCVkji6U2amOXN3XZ2J4qRvWX6CJGoStCBh__GKJQr0i8UltGM_MHdHYNNEQrAWMRs4fE_7eWhmycKkp_m-g7HSTPJ1R25uvQiI9GfnmeIG-GZs2_deTOoeH2rRA2_BVajJM3EZJIj3zD54xab-XQ3YfZKjP9FoDIw7C5h7VZDNM4m56pkIsT1HJchsDpjNzNJ3PU87KUZJHUvcfgJ7I2rXI8LiUOJmGL8868oEeTOePh2o/http%3A%2F%2Fwww.oscar-jol.com > < > https://secure-web.cisco.com/10hFH09S-HkRD8z7DlaGqYyI-O2tiNJenQScJuTvRgWUGyCPm7V_d3RBgzZYInVvlFzx4wegk-cLG72jLw4piRtc_0AXo5Rh1E0RvqBTj3c_Uz3JmUmJQP03KQloQsUriSxHdiqR0JrfM5agndlvhcgfZ75WtqjzaKRaIOiQftTZ7NYbBRJyywHRWDr5uWvBISvWoLASjfetYv_iwNn4mzHo-ZdTL5JqkBF8KL3E0ooTgvv-f7J5j2-xv0wljaIrT8X7JjwFH8OF5od21Z76yfCgFyuMspYlP8fqv8hjmzVCOC9lT5oexOq_4Ds-VA1q9W4njNsWMzJUY8HEaqIKKi4S9hQyuc1AD1K0ruxV8HlXp4QgvNTA_X8dnUYB9-orWujROdlaXTAMH2UVz1RamAzqZ-GmyF7CfxnuRS7UYaCs/https%3A%2F%2Fstart.oscar-jol.com%2F > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
