Thank you > On May 9, 2023, at 11:02 AM, Tony Harminc <t...@harminc.net> wrote: > > On Tue, 9 May 2023 at 15:12, Seymour J Metz <sme...@gmu.edu> wrote: > >> I believe that the optional source tapes for OS/360 and OS/VS2 3.8 are >> archived (CBTTAPE?), so it should be possible to examine the source code >> for TEST. > > > MVS 3.8 TSO modules can also conveniently be browsed at > http://www.mainframe.eu/mvs38/asm/TSO%20(IKJ) > > The first module of the "assign" pseudo-command is IKJEGPCH. It is called > by IKJEGMNL (the subcommand prompter), which has special code to check for > an a=b type "command". > > >> I would expect it to be something like >> >> IKJOPER 'Err label',OPERND1=OP1,RSVWD=OPLIST,OPERND2=OP2 >> OP1 IKJTERM 'Err label', ... >> OPLIST IKJRSVWD 'Err label' >> IKJNAME '=' >> OP2 IKJTERM 'Err label', ... >> >> The = is the operator, not a subcommand. Normally a subcommand begins with >> a subcommand name and you use IKJSCAN to locate the offset to the >> subcommand text; things like assignment statements are special cases. >> > > In IKJEGPCH I see only two IKJPOSITs for the parse. But I'm not sure what > it's working on in the command buffer, since IKJEGMNL has diddled around > with it. > > Of course this is the code as of the early 1970s, and so has doubtless > changed quite a lot. On the other hand some of it is probably untouched. > > Tony H. > > ---------------------------------------------------------------------- > 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