IBM supplies (or did at one time) a sample COBOL program that supports a varying list SELECT statement via dynamic SQL. I adapted this program so that it could be invoked as an E15 exit. It accepts an SQL statement via a dd statement called SQLIN, then executes the query, fetching the results and passing the rows back to SORT.
Having said that, I was unable to come up with a plausible use case for it, so it sits on the shelf along with other interesting but impractical experiments. On Thu, Apr 16, 2020 at 15:12 Sri h Kolusu <[email protected]> wrote: > > Why offline? What's so secret about it? > > There is nothing secret about it. Just did not want to clutter this forum > and I wasn't even sure if OP was willing to share his DB2 DDL's. > > DFSORT Smart tricks page already has "Create DFSORT Symbols from COBOL > Copybook" trick which can be used to create DFSORT symbols from the Output > of DCLGEN. > > https://www.ibm.com/support/pages/smart-dfsort-tricks > > The other approach to do it in the SQL itself for which I wanted to test on > OP's DDL first before giving it to him and hence the offline request. > > Thanks, > Kolusu > > IBM Mainframe Discussion List <[email protected]> wrote on > 04/16/2020 02:26:57 PM: > > > From: Robert Prins <[email protected]> > > To: [email protected] > > Date: 04/16/2020 11:27 AM > > Subject: [EXTERNAL] Re: DB2 / DFSort question > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > On 2020-04-16 17:56, Sri h Kolusu wrote: > > >> It would be nice if this could execute before SYMNAMES is read, so > > >> the SELECT handler could create symbols for all of the columns in > > >> the result set. > > > > > > If your intention is to create DFSORT symbols from DB2 table definition > > > then there are a couple of ways to get it done. Let me know if you are > > > interested in that and we can discuss that offline. > > > > Why offline? What's so secret about it? > > > > 1) Use the standard Db2 tools to generate a PL/I %INCLUDE member foryour > table > > 2) Download RAP00110 and ESYMSORT from the URL in the signature below > > 3) Put them into an EXEC library concatenated to SYSEXEC (or use ALTLIB) > > 4) VIEW the generated PL/I %INCLUDE member, give the command "ESYMSORT ?" > and > > follow the instructions displayed. > > > > 5) Optional, but very much appreciated: Give me some feedback. > > > > Robert > > -- > > Robert AH Prins > > robert.ah.prins(a)gmail.com > > The hitchhiking grandfather - https://urldefense.proofpoint.com/v2/ > > url? > > u=https-3A__prino.neocities.org_indez.html&d=DwICaQ&c=jf_iaSHvJObTbx- > > siA1ZOg&r=IAduPlMgORoDwSg- > > > > QJfFI61PqQWHjCo5brtkXopHqZk&m=5E9jJTfDQ9c477aKnqviCWWkeYN8g3e1smY-4c9lqnI&s=A0k- > > > GHqK9B1F7Xd9UrSObixq-WOI26EwnuPTBZE8bfk&e= > > Some REXX code for use on z/OS - https://urldefense.proofpoint.com/ > > v2/url? > > > > u=https-3A__prino.neocities.org_zOS_zOS-2DTools.html&d=DwICaQ&c=jf_iaSHvJObTbx- > > > siA1ZOg&r=IAduPlMgORoDwSg- > > > > QJfFI61PqQWHjCo5brtkXopHqZk&m=5E9jJTfDQ9c477aKnqviCWWkeYN8g3e1smY-4c9lqnI&s=lrqqJu2TCk4icUOAWwu9RBa6yHRVCO81xXQP0IfUp_g&e= > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
