Keyboard Shortcuts
ctrl + shift + ? :
Show all keyboard shortcuts
ctrl + g :
Navigate to a group
ctrl + shift + f :
Find
ctrl + / :
Quick actions
esc to dismiss
Likes
- H390-Vm
- Messages
Search
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. |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 15:46 Mark A. Stevens via <marXtevens=[email protected]> wrote:
It is now ? Ross |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 03:16 PM, Martin Scheffler wrote:
Is fix not applied to your system ?I have to look, but I don't think I have applied this patch. We match (below), so I will try the 16MB workaround. ?
listfile brexx text * (l iso
Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label BREXX ? ?TEXT ? ? Y2 ?F ? ?80 ? 4471 ? ?448 ?2022-07-11 11:34 ?MNT19E Ready; T=0.01/0.01 14:20:42 ?
?... Mark S. |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 09:03 PM, Mark A. Stevens wrote:
I have a "signal exit;" at line 23, but I get this, and can't figure out where the 'L0' is coming from, as that string is nowhere to be found in the code. The "exit:" label exists.Do you use VM/370 Community Edition V1R1.2 ? Is your VM size < 16 MB ? Is fix not applied to your system ? ?
On Sat, Sep 14, 2024 at 02:39 PM, Martin Scheffler wrote:
BREXX ? ?TEXT ? ? Y2 ?is dynamically linked and will malfunction in unpredictable ways (= "weird") if above conditions are met.
?
Set VM size to 16 MB as a quick workaround.
?
Martin
?
listfile brexx text * (l iso ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label ?? BREXX ? ?TEXT ? ? Y2 ?F ? ?80 ? 4471 ? ?448 ?2022-07-11 11:34 ?MNT19E ? Ready; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ?
|
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 02:27 PM, Ross Patterson wrote:
Would SIGNAL TRACE help me track that down. It's been ages, and this BREXX trips me up every time I think I know what is going on. ?
?... Mark S. |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 02:27 PM, Ross Patterson wrote:
Is that one of the SIGNAL challenges you have found and documented, to be worked on? Or do I need to add it?
?
?... Mark S. |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 15:03 Mark A. Stevens via <marXtevens=[email protected]> wrote:
That is a bug.? SIGNAL should accept either a symbol or a literal.
That is correct.? Labels are not case-sensitive.? TRL2 even has this example: signal bill; ... Bill: say 'Hi!'
That qualifies as "weird".? I've never seen that happen in any Rexx version, including BREXX.? I have some Rexx programs that use SIGNAL extensively, and BREXX runs them just fine. Ross |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 01:52 PM, Ross Patterson wrote:
BREXX doesn't have either DIAG() or DIAGRC().Well, darn it. That hurts. ?
?... Mark S. |
Re: CMS BREXX Question
#VMCE
Today is not my day to be programming REXX, it seems.
?
Another REXX question. If I quote a label, it fails. If I don't use quotes, it works, regardless of whether the label is lowercase, or uppercase.
?
graphdem
? ?281 *-* ? signal 'IOS' Error 19.4 running GRAPH1, line 281: String or symbol expected after SIGNAL keyword; found "IOS" ?
I have a "signal exit;" at line 23, but I get this, and can't figure out where the 'L0' is coming from, as that string is nowhere to be found in the code. The "exit:" label exists.
? ? 23 *-* signal l0; Error 16.1 running graphdem, line 23: Label "L0" not found Ready(20016); T=0.23/0.23 12:44:48 ?
?... Mark S.
? |
Re: CMS BREXX Question
#VMCE
On Sat, Sep 28, 2024 at 14:31 Mark A. Stevens via <marXtevens=[email protected]> wrote:
BREXX doesn't have either DIAG() or DIAGRC(). Ross |
CMS BREXX Question
#VMCE
Which of these functions does BREXX on VM not have?
ea = bitand(substr(diag('8C'),1,1),'40'x) = '40'x; ?
I'm getting the following which isn't very helpful.
? ? 15 *-* ea = bitand(substr(diag('8C'),1,1),'40'x) = '40'x; Error 43 running GRAPH1, line 15: Routine not found ? My knowledge of REXX, that still resides in what is left of my brain, is from the 90s, so I'm sure I'm missing something. ?
?... Mark S.
|
On Tue, Sep 24, 2024 at 06:45 PM, William Denton wrote:
Personally, I would like to see efforts on EE going into creating a rich enough REXX integration that would allow the "side modes" to be implemented in REXX.like IBM did.It is a lot of legwork to implement all the XEDIT subcommands and EXTRACT options. You can help me a lot by playing with the beast and tell me which XEDIT subcommands and EXTRACT options are needed first. I was a little shocked when I just logged into VM/SP 5 at SDFVM ( planet.sdf.org:24 ) and saw that FILELIST, RDRLIST, PEEK and others are still written in EXEC 2.
?
Martin
|
Re: OS/VSAM Options for Advanced Applications (GC26-3819)
¿ªÔÆÌåÓýThere is a paper copy here :- ? ? The used to scan manuals for a fee ? Dave ? From: [email protected] <[email protected]> On Behalf Of Dagfinn Hammar via groups.io
Sent: 27 September 2024 21:04 To: [email protected] Subject: [h390-vm] OS/VSAM Options for Advanced Applications (GC26-3819) ? Hi I am looking for this IBM manual OS/VSAM Options for Advanced Applications (GC26-3819) but so far I have not been able to find this online. Does anybody here in this group know if this is available online or does anyone have a copy of this manual and willing to share this with this group?? ? Kind regards Dagfinn |
OS/VSAM Options for Advanced Applications (GC26-3819)
Hi
I am looking for this IBM manual OS/VSAM Options for Advanced Applications (GC26-3819) but so far I have not been able to find this online. Does anybody here in this group know if this is available online or does anyone have a copy of this manual and willing to share this with this group??
?
Kind regards
Dagfinn
|
A demonstration of EE's new ALL, MORE, and SHOW commands:
?
First:? all/extract
Second: more/input
Third: show
?
Note that MORE and SHOW are implemented as internal macros inside EE$MACRO EXEC.
?
See coloured screenshot for full beauty: /g/h390-vm/photo/280705/3834709
?
Martin
?
?REVERSER EE ? ? ? A1 ? ? ? ? V 255 ?Workl=125 Size=41 Line=ToF ? ? ? ? 5 File(s)?
?====> all/extract ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 * * * Top of File * * * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? 6 ? ? ? ?"extract line" ? ? ?retrieves editor status information ? ? ? ? ? ? ? ? ? 7 ? ? ? ?"extract curline" ? file contensts in curline.3 ? ? ? ? ? ? ? ? ? ? ? ? ?12 ? "extract line" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?14 ? /* "extract size" */ size.1 = 41 /* not yet implemented */ ? ? ? ? ? ? ? ? ? ?17 ? ? "extract curline" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?42 * * * End of File * * * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Unchanged ?Load=0xE9C000 ?EE V1.3.2.0012_240924-1417 ?MECAFF at VM370CE ?14:42:30? ?REVERSER EE ? ? ? A1 ? ? ? ? V 255 ?Workl=125 Size=41 Line=ToF ? ? ? ? 5 File(s)? ?====> more/input ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? 0 * * * Top of File * * * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? 6 ? ? ? ?"extract line" ? ? ?retrieves editor status information ? ? ? ? ? ? ? ? ? 7 ? ? ? ?"extract curline" ? file contensts in curline.3 ? ? ? ? ? ? ? ? ? ? ? ? ? 8 ? ? ? ?"input ..." ? ? ? ? adds new content to file ? ? ? ? ? ? ? ? ? ? ? ?? ? ?12 ? "extract line" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?14 ? /* "extract size" */ size.1 = 41 /* not yet implemented */ ? ? ? ? ? ? ? ? ? ?17 ? ? "extract curline" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?20 ? ? ? "input ." ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?28 ? ? ? "input ."text1""reverse(text2) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?31 ? ? ? ?"input" reverse(text) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?42 * * * End of File * * * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Unchanged ?Load=0xE9C000 ?EE V1.3.2.0012_240924-1417 ?MECAFF at VM370CE ?14:43:38? ?REVERSER EE ? ? ? A1 ? ? ? ? V 255 ?Workl=125 Size=41 Line=19 ? ? ? ? ?5 File(s)? ?====> show ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? 7 ? ? ? ?"extract curline" ? file contensts in curline.3 ? ? ? ? ? ? ? ? ? ? ? ? ? 8 ? ? ? ?"input ..." ? ? ? ? adds new content to file ? ? ? ? ? ? ? ? ? ? ? ?? ? ? 9 ? */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?10 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?11 ? signal on syntax ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?12 ? "extract line" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?13 ? "top" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?14 ? /* "extract size" */ size.1 = 41 /* not yet implemented */ ? ? ? ? ? ? ? ? ? ?15 ? do i = 1 to size.1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?16 ? ? "locate 1" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?17 ? ? "extract curline" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?18 ? ? text = curline.3 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?19 ? ? if text = "" then do /* blank line ? */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?20 ? ? ? "input ." ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?21 ? ? end ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?22 ? ? else if substr(text,1,1) = " " then do /* leading blank ? */ ? ? ? ? ? ? ? ?23 ? ? ? do j = 1 to length(text) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?24 ? ? ? ? if substr(text,j,1) ^= " " then leave ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?25 ? ? ? end ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?26 ? ? ? text1 = substr(text,2,j-2) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?27 ? ? ? text2 = substr(text,j) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?28 ? ? ? "input ."text1""reverse(text2) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?29 ? ? end ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?30 ? ? else do /* 1st char is non-blank */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Unchanged ?Load=0xE9C000 ?EE V1.3.2.0012_240924-1417 ?MECAFF at VM370CE ?14:45:19? |
Photo EE_ALL_MORE_SHOW_Demo.png uploaded
#photo-notice
Group Notification
The following photos have been uploaded to the EE goes XEDIT photo album of the [email protected] group. By: Martin Scheffler <San-Lorenzo@...> |
Re: What is special about the 3066?
On Thu, Sep 26, 2024 at 05:07 PM, Tony Harminc wrote:
When did the Yale-ASCII Series 1 software come along. Ah, the protocol converters!
?
I was working at the Simon School of Business at the University of Rochester in the mid-1980's. The school had an HP3000 computer and a slew of ascii terminals of various models and manufacturers. Through a grant, the school obtained a 4361 along with a model 7171 protocol converter. I was assigned the task of programming the key mappings to get all the terminals to speak 3270 so students could log into VM (VM/SP 5 at the time).
?
I was originally hired to maintain the HP3000, but the success of the terminal mappings (which I shared with other schools), and the "how to use VM" seminars I conducted for the students made me the 4361 go-to guy and put me in position to ease into the job of sole system programmer. My boss hired someone else to deal with the HP3000 <grin>. |
You run a macro (filetype EE) by entering its name as an EE subcommand. If you run the demonstration REVERSER EE on itself, you should get a result like this below. Note that EXTRACT /SIZE/ is not implemented yet, the file size is hard coded in line 14 as 41.
?
What is Load=0xE9C000 ? This shows the load address of EE in high memory, you would see Load=0x020000 otherwise.
While EE is running in high memory, all restrictions on the CMS subcommand are lifted.
?
Be sure to set your VM size to 16MB if fix is not applied to your system.
?
Martin
?
?REVERSER EE ? ? ? A1 ? ?V 255 ?Workl=125 Size=82 Line=27 ? ? 5 File(s) ? ? ? ? ? ?====> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?15 ? ? ? ?"input ..." ? ? ? ? adds new content to file ? ? ? ? ? ? ? ? ? ? ? ? ? ?16 . ? ? ?elif ot tnetnoc wen sdda ? ? ? ? "... tupni" ? ? ? ? ? ? ? ? ? ? ? ? ? ?17 ? */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?18 . /* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?19 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?20 . ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?21 ? signal on syntax ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?22 . xatnys no langis ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?23 ? "extract line" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?24 . "enil tcartxe" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?25 ? "top" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?26 . "pot" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?27 ? /* "extract size" */ size.1 = 41 /* not yet implemented */ ? ? ? ? ? ? ?? ? ?28 . /* detnemelpmi tey ton */ 14 = 1.ezis /* "ezis tcartxe" */ ? ? ? ? ? ? ?? ? ?29 ? do i = 1 to size.1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?30 . 1.ezis ot 1 = i od ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?31 ? ? "locate 1" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?32 . ? "1 etacol" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?33 ? ? "extract curline" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?34 . ? "enilruc tcartxe" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?35 ? ? text = curline.3 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?36 . ? 3.enilruc = txet ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ?37 ? ? if text = "" then do /* blank line ? */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?38 . ? /* ? enil knalb */ od neht "" = txet fi ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Modified* ?Load=0xE9C000 ?EE V1.3.2.0012_240924-1417 ?MECAFF at VM370CE ?04:43:45 |
to navigate to use esc to dismiss