|
On Mon, Sep 30, 2024 at 02:34 AM, Mark A. Stevens wrote:
I have seen this already, this happens because I have changed the PREFIX and NUMBER commands to "view" level and changed the defaults as in XEDIT. ?
Martin
?
On Tue, Sep 24, 2024 at 04:15 PM, Martin Scheffler wrote:
|
|
Re: CMS BREXX Question
#VMCE
On Mon, Sep 30, 2024 at 02:34 AM, Mark A. Stevens wrote:
Have it loaded on my dev system. LISTFILE EE is working!Nice to read ! But let us discuss development and testing of EE on "EE goes XEDIT - testing new features": ?
Martin
? |
|
It seems that the previous thread on EE is difficult to handle after it has reached more than 100 posts. If this helps to get more feedback, here is a new thread with a slightly changed name.
?
On Thu, Sep 26, 2024 at 02:54 PM, Martin Scheffler wrote:
Please play with the beast ! ?
Martin
?
What is in this archive ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? README ? MEMO ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? this file, same as README ? HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EE$D ? ? MODULE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? executable module, DYNAMICally linked, runs in user area at 0x020000 ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EE$S ? ? MODULE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? executable module, STATICally linked, runs in user area at 0x020000 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EE$D ? ? MAP ? ? ?A5 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$S ? ? MAP ? ? ?A5 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? load maps for DYNAMICally linked and STATICally linked module ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EERESLIB TEXT ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? relocatable object code to load EE in high memory via RESLIB ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EER$LOAD EXEC ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? REXX exec to load EE in high memory via RESLIB ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? EE$MACRO EXEC ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? REXX exec that handles EE's new macro facility, necessary for REXX integration? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SYSPROF ?EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? PROFILE ?EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? simple EE macros run once at startup ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PROFILER EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? repeatable profile, called after file has been loaded into storage ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LISTFILE EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? REXX macro: load output of CMS LISTFILE into the editor ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REVERSER EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? REXX macro: A demonstration how a macro can modify file contents ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? $EE ? ? ?HELP$EE ?A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? README ? HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? CURSOR ? HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$BUGS ?HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$HELP ?HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$IBM ? HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$NEW ? HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$NOTES HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? EE$WISH ?HELPEE ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? work in progress, small help files for EE's internal help ? ? ? ? ? ? ? ? ? ? ? Note: CMS HELP can be called when EE is loaded into high memory ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? /* work in progress, numbers may differ */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label ? ? ? ? ?? README ? MEMO ? ? A1 ?V ? ?78 ? ? 74 ? ? ?4 ?2024-09-26 12:22 ?MCF191 ? ? ? ? ? EE$D ? ? MODULE ? A1 ?V 65535 ? ? ?6 ? ?322 ?2024-09-24 12:25 ?MCF191 ? ? ? ? ? EE$S ? ? MODULE ? A1 ?V 65535 ? ? ?8 ? ?452 ?2024-09-24 12:25 ?MCF191 ? ? ? ? ? EE$D ? ? MAP ? ? ?A5 ?F ? 100 ? ?460 ? ? 58 ?2024-09-24 12:25 ?MCF191 ? ? ? ? ? EE$S ? ? MAP ? ? ?A5 ?F ? 100 ? ?466 ? ? 59 ?2024-09-24 12:25 ?MCF191 ? ? ? ? ? EERESLIB TEXT ? ? A1 ?F ? ?80 ? 5570 ? ?557 ?2024-09-24 12:25 ?MCF191 ? ? ? ? ? EER$LOAD EXEC ? ? A1 ?V ? ?70 ? ? 36 ? ? ?2 ?2024-09-14 11:59 ?MCF191 ? ? ? ? ? EE$MACRO EXEC ? ? A1 ?V ? 109 ? ?194 ? ? ?7 ?2024-09-25 11:50 ?MCF191 ? ? ? ? ? SYSPROF ?EE ? ? ? A1 ?V ? ?34 ? ? ?9 ? ? ?1 ?2024-09-14 ?9:47 ?MCF191 ? ? ? ? ? PROFILE ?EE ? ? ? A1 ?V ? ?42 ? ? 38 ? ? ?1 ?2024-08-13 11:20 ?MCF191 ? ? ? ? ? PROFILER EE ? ? ? A1 ?V ? ?71 ? ? 57 ? ? ?4 ?2024-09-25 ?9:43 ?MCF191 ? ? ? ? ? LISTFILE EE ? ? ? A1 ?V ? ?52 ? ? 30 ? ? ?1 ?2024-09-04 ?9:51 ?MCF191 ? ? ? ? ? REVERSER EE ? ? ? A1 ?V ? ?64 ? ? 41 ? ? ?2 ?2024-09-26 11:23 ?MCF191 ? ? ? ? ? $EE ? ? ?HELP$EE ?A1 ?V ? ?84 ? ? 27 ? ? ?2 ?2024-08-08 21:28 ?MCF191 ? ? ? ? ? README ? HELPEE ? A1 ?V ? ?78 ? ? 74 ? ? ?4 ?2024-09-26 12:22 ?MCF191 ? ? ? ? ? CURSOR ? HELPEE ? A1 ?V ? ?75 ? ? ?4 ? ? ?1 ?2024-08-10 ?5:33 ?MCF191 ? ? ? ? ? EE$BUGS ?HELPEE ? A1 ?V ? 114 ? ?120 ? ? ?6 ?2024-08-10 ?6:03 ?MCF191 ? ? ? ? ? EE$HELP ?HELPEE ? A1 ?V ? ? 8 ? ? ?1 ? ? ?1 ?2024-08-08 20:19 ?MCF191 ? ? ? ? ? EE$IBM ? HELPEE ? A1 ?V ? ?51 ? ? 14 ? ? ?1 ?2024-08-08 22:13 ?MCF191 ? ? ? ? ? EE$NEW ? HELPEE ? A1 ?V ? ?76 ? ? 38 ? ? ?2 ?2024-08-09 ?1:46 ?MCF191 ? ? ? ? ? EE$NOTES HELPEE ? A1 ?V ? ? 7 ? ? ?1 ? ? ?1 ?2024-08-08 21:25 ?MCF191 ? ? ? ? ? EE$WISH ?HELPEE ? A1 ?V ? ? 6 ? ? ?1 ? ? ?1 ?2024-08-08 21:25 ?MCF191 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? |
|
Re: CMS BREXX Question
#VMCE
On Sun, Sep 29, 2024 at 03:29 PM, Martin Scheffler wrote:
I am trying to improve that situation ... but play with the beast please.Here's a QUERY DISK based on your LISTFILE. type QDISK EE D ? /* REXX */ ? address "COMMAND" "SENTRIES" stacked_old = rc address "COMMAND" "MAKEBUF" new_buffer_id = rc ? address "COMMAND" "QUERY DISK * ( FIFO" rc_listfile = rc if rc_listfile <> 0 then do ? address "COMMAND" "DROPBUF" new_buffer_id ? exit rc_listfile end ? address "COMMAND" "SENTRIES" stacked_new = rc address "EE" "X QDISK ? ?LISTING A1" address "EE" "EXTRACT line" line_old = line.1 do i = 1 to stacked_new-stacked_old ? parse pull from_listfile ? address "EE" "INPUT" ?from_listfile end address "COMMAND" "DROPBUF" new_buffer_id ? address "EE" "LOCATE :"line_old exit rc_listfile ? Ready; T=0.01/0.01 19:08:29 ?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
On Sun, Sep 29, 2024 at 03:29 PM, Martin Scheffler wrote:
I am trying to improve that situation ... but play with the beast please. Have it loaded on my dev system. LISTFILE EE is working!
?
An interesting side-effect when using XLIST
?
XLIST: * EXEC A ? ? ? ? ? ? ? ? ? ? ?Lines 1-7/7 ?XLIST V1.3.2.0012_240924-1417
? Filename Filetype Fm ?Format ? ?Recs Blocks ?Date ? ? ? Time ? Label ===== ATTDASD ?EXEC ? ? A1 ?V ? ?72 ? ? 18 ? ? ?2 ?2021-02-11 03:10 ?MNT191 ===== CPEREP01 EXEC ? ? A1 ?V ? ?35 ? ? ?8 ? ? ?1 ?2024-09-11 19:19 ?MNT191 ===== GETFMADR EXEC ? ? A1 ?F ? ?80 ? ? 60 ? ? ?6 ?2021-12-16 20:58 ?MNT191 ===== PROFILE ?EXEC ? ? A1 ?V ? ?71 ? ? 26 ? ? ?1 ?2024-09-07 20:03 ?MNT191 ===== RSDIRUPD EXEC ? ? A1 ?V ?4560 ? ? ?1 ? ? ?6 ?2019-05-23 00:01 ?MNT191 ===== SNOBOL4 ?EXEC ? ? A1 ?F ? ?80 ? ?121 ? ? 13 ?2024-02-19 10:56 ?MNT191 ===== VMSETUP ?EXEC ? ? A1 ?V ? ?72 ? ?377 ? ? 34 ?2022-04-30 15:00 ?MNT191 ?
?... Mark S.
?
? |
|
Re: CMS BREXX Question
#VMCE
On Sun, Sep 29, 2024 at 08:37 PM, Ross Patterson wrote:
I'm much more comfortable with XEDIT than with EE [...]I am trying to improve that situation ... but play with the beast please. ?
/g/h390-vm/message/6160
?
Martin
|
|
Re: CMS BREXX Question
#VMCE
On Sun, Sep 29, 2024 at 01:37 PM, Ross Patterson wrote:
I'm much more comfortable with XEDIT than with EE, but I believe the command you want is: You are correct. I was remembering the MVS/RPF change command. I wish I could use just one editor across all Operating Systems :-(
?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
On Sun, Sep 29, 2024 at 11:50 AM, Ross Patterson wrote:
Without having checked, I'll guess it's the not-sign character that's the problem.? You can replace "?="?with "<>". ?I figured it was the & as I was in an EBCDIC environment (VM/370 CE). ?
I tried changing them with EE.
?
change /?=/ /<>/ * *
?
It changed one to blanks and quit. I was thinking earlier, this is not my day. Now I'm beginning to think this is not my week. Sorry to be whining.
?
I guess I will transfer the EXEC to Linux, edit it there and transfer back.
?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
What is the equivalent for & since BREXX doesn't like that? This drives me nuts, since I expect this to work. By-the-bye, the & works on VM/SP 5 at SDF.org.
?
Ready; T=0.13/0.22 21:17:13
GRAPHDEM ? ? 52 *-* ?= 'ATTRY1' & attry1 ?= ' ' Error 13 running GRAPH1, line 52: Invalid character in program ?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 06:40 PM, Martin Scheffler wrote:
Mark, you run into GRAPHDEM EXEC line 23, a label "L0" is not defined there Martin,
?
THANK YOU! I was not looking at GRAPHDEM.
?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
Mark, you run into GRAPHDEM EXEC line 23, a label "L0" is not defined there
?
Martin
?
Ready; T=0.01/0.01 23:21:00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?GRAPHDEM EXEC ? ? A1 ? ? ?? GRAPHDEM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 15 *-* ea = bitand(substr(diag('8C'),1,1),'40'x) = '40'x; ? ? ?? Error 43 running GRAPH1, line 15: Routine not found ? ? ? ? ? ? ? ?? ? ? 23 *-* signal l0; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Error 16.1 running GRAPHDEM, line 23: Label "L0" not found ? ? ? ? ? Ready(20016); T=0.27/0.28 23:21:03 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? q stor ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? STORAGE = 16384K ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Ready; T=0.01/0.01 23:21:07 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? id ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? MECAFF ? AT VM370CE ?VIA RSCS ? ? 23:21:17 09/28/24 GMT ? ? SATURDAY Ready; T=0.01/0.01 23:21:17 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ?====> all/l0 ? ? ? ? ? ? ? ?? ? ? 0 * * * Top of File * * *? ? ?23 signal l0; ? ? ? ? ? ? ? ? ?78 * * * End of File * * *? |
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 03:39 PM, Martin Scheffler wrote:
Can you post the complete source ? I could run it to check if I see the "L0 error" too.I will create a VMARC of the files and post in the Files section as soon as I can manage. ?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
This is not something that I can run on my (untouched) system.
?
Martin |
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 03:33 PM, Mark A. Stevens wrote:
I tried the workaround. No fix for the L0 error ...Also tried a different label, to no positive effect. Still at 16M, too. Ready; T=0.28/0.29 14:40:29 type graph1 exec a 20 25 ? say 'Screen is too small. Must be at least 32 lines.'; signal outahere; end; /* * Get data from calling EXEC: * * X. data for x-axis. * ? Ready; T=0.01/0.01 14:40:37 graphdem ? ? 15 *-* ea = bitand(substr(diag('8C'),1,1),'40'x) = '40'x; Error 43 running GRAPH1, line 15: Routine not found ? ? 23 *-* signal l0; Error 16.1 running graphdem, line 23: Label "L0" not found Ready(20016); T=0.25/0.26 14:40:47 ?
?... Mark S. |
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 10:33 PM, Mark A. Stevens wrote:
I tried the workaround. No fix for the L0 error ...Can you post the complete source ? I could run it to check if I see the "L0 error" too. ?
Martin |
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 03:16 PM, Martin Scheffler wrote:
Set VM size to 16 MB as a quick workaround.I tried the workaround. No fix for the L0 error ... cp define storage 16m STORAGE = 16384K DMKDSP450W CP ENTERED; DISABLED WAIT PSW '00020000 00000000' IPL 190 CLEAR PARM AUTOCR VM Community Edition V1 R1.2 DMSACC723I Y (19E) R/O Segment GCCLIB is not loaded because virtual machine memory is in use. DMSACC723I U (19D) R/O DMSACC723I B (5E5) R/O DMSACC723I C (195) R/O XMAS 195 WORK DISK R/O DMSACC723I E (194) R/O DMSACC723I T (196) R/O DMSACC723I R (193) R/O Ready; T=0.01/0.01 14:26:29 graphdem ? ? 15 *-* ea = bitand(substr(diag('8C'),1,1),'40'x) = '40'x; Error 43 running GRAPH1, line 15: Routine not found ? ? 23 *-* signal l0; Error 16.1 running graphdem, line 23: Label "L0" not found Ready(20016); T=0.25/0.26 14:26:38 ?
?... Mark S. |
Martin Scheffler
Mark A. Stevens