Re: I'm not sure if this is an EE issue or WC3270
Hello,
I understand how the 3270 works with regards to various VM editors.? It is my memory that with XEDIT and EDGAR I could do an insert without doing an Erase EOF.
Maybe they put nulls and not spaces, as my memory recalls the insert key worked without any additional work.
Does anyone else remember how XEDIT worked in this regard?? Maybe the additional question is how should EE work?? IMHO, being able to use the insert key is an advantage.
Bertram Moshier
That's the way the 3270 behaves. I don't know if there's a way to tell EE to use nulls instead of spaces to fill the screen, like you can with ISPF, but basically, you have to have nulls in a field to do an insert?like that. YOu can replace the spaces at the end of the line by positioning your cursor after the last character and hitting alt-E, which is the Erase EOF key. That will replace everything from the cursor to the end of the field (which, in EE, is the endo fhte line) with nulls, and INSERT will work. If you delete characters, the remaining ones in the field will shift left and a null will be inserted at the end of the field, so you can get some room to insert that way as well if that's what you need to do.
Remember, the 3270's editing functions?are all local to the terminal, so none of this is sent directly to EE. It simply sees the changed line once you hit ENTER.
Hello,
When editing (using EE) the earlierly discussed program (TEST EXEC A), I kept getting on the WC3270 screen and "OVERFLOW" error, when trying to insert characters.
An example is:
1. I edit a file with the following line in it:
Now is the time for al good men to come to the aid of their VM/CE system.
I move my cursor to the "al" and press the insert button.? I press the lower case L key.? Instead of the lower case L appearing, I see in the lower left hand corner of the screen "OVERWRITE"? I can't type anything on the line.
I noticed if I delete characters, I CAN INSERT BUT only up to the original length on the screen for that specific line.
Again I'm not sure if this is an EE issue or WC3270.
Thank you,
Bertram Moshier
--
|
Re: I'm not sure if this is an EE issue or WC3270
That's the way the 3270 behaves. I don't know if there's a way to tell EE to use nulls instead of spaces to fill the screen, like you can with ISPF, but basically, you have to have nulls in a field to do an insert?like that. YOu can replace the spaces at the end of the line by positioning your cursor after the last character and hitting alt-E, which is the Erase EOF key. That will replace everything from the cursor to the end of the field (which, in EE, is the endo fhte line) with nulls, and INSERT will work. If you delete characters, the remaining ones in the field will shift left and a null will be inserted at the end of the field, so you can get some room to insert that way as well if that's what you need to do.
Remember, the 3270's editing functions?are all local to the terminal, so none of this is sent directly to EE. It simply sees the changed line once you hit ENTER.
Hello,
When editing (using EE) the earlierly discussed program (TEST EXEC A), I kept getting on the WC3270 screen and "OVERFLOW" error, when trying to insert characters.
An example is:
1. I edit a file with the following line in it:
Now is the time for al good men to come to the aid of their VM/CE system.
I move my cursor to the "al" and press the insert button.? I press the lower case L key.? Instead of the lower case L appearing, I see in the lower left hand corner of the screen "OVERWRITE"? I can't type anything on the line.
I noticed if I delete characters, I CAN INSERT BUT only up to the original length on the screen for that specific line.
Again I'm not sure if this is an EE issue or WC3270.
Thank you,
Bertram Moshier
|
I'm not sure if this is an EE issue or WC3270
Hello,
When editing (using EE) the earlierly discussed program (TEST EXEC A), I kept getting on the WC3270 screen and "OVERFLOW" error, when trying to insert characters.
An example is:
1. I edit a file with the following line in it:
Now is the time for al good men to come to the aid of their VM/CE system.
I move my cursor to the "al" and press the insert button.? I press the lower case L key.? Instead of the lower case L appearing, I see in the lower left hand corner of the screen "OVERWRITE"? I can't type anything on the line.
I noticed if I delete characters, I CAN INSERT BUT only up to the original length on the screen for that specific line.
Again I'm not sure if this is an EE issue or WC3270.
Thank you,
Bertram Moshier
|
Hello,
On the earlier problem, I decided to add some tracing to determine the line causing the DMSIPT143T error.? What I got was:
DLMALLOC PANIC LINE 3503 ABNORMAL TERMINATION (NO RESOURCE CLEANUP) ERROR 430 DLMalloc aborted. Ready (00012);
The program now looks like /* */ trace 'e' ? ? ?if RxFuncQuery( 'SysLoadFuncs' ) <> 0 then
? ? ? ? ?do
? ? ? ? ? ? call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
? ? ? ? ? ? call SysLoadFuncs
? ? ? ? end
a = 0
do forever
? a = a + 1
? say a
? if a//20 = 0 then do
? ? 'cls'
? ? rc = syssleep(1)
? ? end
? end
Bertram Moshier
P.S. Where should I report this problem (e.g. URL) and should it be against REXX or CMS or ????
Thank you. ?
|
DMSIPT143T ADDESSING EXCEPTION OCCURRED AT F2A6FC IN SYSTEM ROUTINE EXEC, RE-IPL CMS
Hello,
I'm getting DMSIPT143T on a very simple REXX program.
DMSIPT143T ADDESSING?EXCEPTION OCCURRED AT F2A6FC IN SYSTEM ROUTINE EXEC, RE-IPL CMS. CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
The REXX program is:
/* */
? ? ?if RxFuncQuery( 'SysLoadFuncs' ) <> 0 then
? ? ? ? ?do
? ? ? ? ? ? call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
? ? ? ? ? ? call SysLoadFuncs
? ? ? ? end
a = 0
do forever
? a = a + 1
? say a
? if a//20 = 0 then do
? ? 'cls'
? ? rc = syssleep(1)
? ? end
? end
Bertram Moshier
P.S. Should I open a ticket?? If so, where and against what (REXX or CMS)?
|
No, I just added the symptom to the open issue for SIGNAL processing.? Bob
Are you opening a ticket for this issue?
On Wed, Jan 4, 2023, 08:17 Bob Bolch < Bob@...> wrote: It looks like SIGNAL ON ERROR doesn't work correctly either.? It is not being signaled when a CMS command gets a non-zero RC.?
?
======================== TEST EXEC
/* */? ? ? ? ? ? ? ? ? ? ? ??
ADDRESS ''? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ?
SIGNAL ON ERROR? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
'ACCESS 333 Z'? ? ? ? ? ? ? ?
EXIT RC? ? ? ? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
ERROR: SAY 'ERROR SIGNALLED'?
===========================
Currently returns:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED?
Ready(00100); T=0.02/0.02 10:03:18?
===========================
Should return:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED? ? ?
? ? ?6 *-* 'ACCESS 333 Z'? ? ? ? ? ? ??
? ? ? ?+++ RC(100) +++? ? ? ? ? ? ? ? ?
ERROR signalled? ? ? ? ? ? ? ? ? ? ? ??
Ready(00016); T=0.02/0.02 10:03:05? ? ?
?
|
Are you opening a ticket for this issue?
On Wed, Jan 4, 2023, 08:17 Bob Bolch < Bob@...> wrote: It looks like SIGNAL ON ERROR doesn't work correctly either.? It is not being signaled when a CMS command gets a non-zero RC.?
?
======================== TEST EXEC
/* */? ? ? ? ? ? ? ? ? ? ? ??
ADDRESS ''? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ?
SIGNAL ON ERROR? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
'ACCESS 333 Z'? ? ? ? ? ? ? ?
EXIT RC? ? ? ? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
ERROR: SAY 'ERROR SIGNALLED'?
===========================
Currently returns:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED?
Ready(00100); T=0.02/0.02 10:03:18?
===========================
Should return:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED? ? ?
? ? ?6 *-* 'ACCESS 333 Z'? ? ? ? ? ? ??
? ? ? ?+++ RC(100) +++? ? ? ? ? ? ? ? ?
ERROR signalled? ? ? ? ? ? ? ? ? ? ? ??
Ready(00016); T=0.02/0.02 10:03:05? ? ?
?
|
It looks like SIGNAL ON ERROR doesn't work correctly either.? It is not being signaled when a CMS command gets a non-zero RC.?
?
======================== TEST EXEC
/* */? ? ? ? ? ? ? ? ? ? ? ??
ADDRESS ''? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ?
SIGNAL ON ERROR? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
'ACCESS 333 Z'? ? ? ? ? ? ? ?
EXIT RC? ? ? ? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
ERROR: SAY 'ERROR SIGNALLED'?
===========================
Currently returns:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED?
Ready(00100); T=0.02/0.02 10:03:18?
===========================
Should return:
test2? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSACC113S 'Z (333) ' NOT ATTACHED? ? ?
? ? ?6 *-* 'ACCESS 333 Z'? ? ? ? ? ? ??
? ? ? ?+++ RC(100) +++? ? ? ? ? ? ? ? ?
ERROR signalled? ? ? ? ? ? ? ? ? ? ? ??
Ready(00016); T=0.02/0.02 10:03:05? ? ?
?
|
Re: Address Exception at 022062 in routine EE$D
|
Re: Address Exception at 022062 in routine EE$D
toggle quoted message
Show quoted text
More info on this topic:
?
1. Edit a file with EE after entering
?
? ?vmsetup cms
? ?vmsetup cp
?
? ?will lead to an address exception.
?
2. Edit a file with EE after entering
?
? ?vmsetup cms
? ?rel i
? ?vmsetup cp
?
? ?will work fine.
Is this enough to enter a new issue on the github? I would say yes.
Cheers,
?
Rene FERLAND, Montreal
|
Re: Address Exception at 022062 in routine EE$D
More info on this topic:
?
1. Edit a file with EE after entering
?
? ?vmsetup cms
? ?vmsetup cp
?
? ?will lead to an address exception.
?
2. Edit a file with EE after entering
?
? ?vmsetup cms
? ?rel i
? ?vmsetup cp
?
? ?will work fine.
Is this enough to enter a new issue on the github? I would say yes.
Cheers,
?
Rene FERLAND, Montreal
|
Address Exception at 022062 in routine EE$D
Hello,
I got an address exception in EE.? I'm wondering if this is enough?to file a report and where to file the report (if this is enough).
Thank you,? Bert.
I was on Maint. First I used VMSETUP?CMS and looked at DMSFRE?ASSEMBLE.? I then changed to CP (VMSETUP?CP) and tried to look at DMKSCH?ASSEMBLE.
Please?see below:
vmsetup cp
'594' REPLACES ' E (593) '
E (594) R/O
'094' REPLACES ' F (093) '
F (094) R/O
'194' REPLACES ' G (193) '
G (194) R/O
'294' REPLACES ' H (393) '
H (294) R/O
'394' REPLACES ' I (190) '
I (394) R/O
Ready; T=0.03/0.09 02:58:51
ee dmksch assemble
DMSITP141T ADDRESSING EXCEPTION OCCURRED AT 022062 IN ROUTINE EE$D.
CMS
CMS
ee dmksch assemble
DMSITP141T ADDRESSING EXCEPTION OCCURRED AT 022062 IN ROUTINE EE$D.
CMS??
Thank you.
|
SIGNAL ON FAILURE?was introduced in the last release of VM/SP (Release 6). In VM, it is raised when a host command fails. In VM, SIGNAL ON FAILURE will trap all negative return codes from?commands. Before that, the valid operands were:?ERROR, HALT, NOVALUE, NOTREADY or SYNTAX.
When I say "open an issue", I am trying to get a description from the submitter?of a specific?error. When the report is "I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?" There is no indication of what the error symptom is.
Long email chains?wander from topic to topic. They are the worst way to keep track of details about a single topic or problem. Those details, in one place, are what I need to fix bugs or add features, so I require them. Others may have different approaches, and that's fine for them.
Bob Bolch
?
|
SIGNAL ON FAILURE is documented in both z/VM 7.1 and 7.2
Joe
Bert, Well the error seems clear, when I code it I get the error:- ? SIGNAL ON must be followed by one of the keywords ERROR, HALT, NOVALUE, NOTREADY or SYNTAX ? But I haven¡¯t checked they all work! For example I would expect ¡°signal on failure¡± to trigger a syntax error and it doesn¡¯t. It does work on SP5 REXX so I¡¯ll investigate but it will not be today¡ So ¡°FAILURE¡± is not currently supported. I checked on the SP5 system at LCM+L and its not supported there in the ¡°original¡± REXX either. I checked in a ¡°recent¡± zVM manual (7.1) and its not in there either. So I don¡¯t think raising a bug report will get it added. ? Which IO? Well if you want it to work on the LCM+L SP5 then you need EXECIO. Looks like on latest zVM both work. Its your choice. ? Dave ? ? Hello and thank you for the wonderful reply, As all the other SIGNAL ON work, should / will SIGNAL ON FAILURE work in VM/CE's REXX? Should I open a ticket to get SIGNAL ON FAILURE to work? Does VM/CE support EXECIO or should I be using lineout and linein, as well as charout and charin? ? OK, so REXX is the generic name for the language. It comes in many flavours or implementations. For example on Windows I know of Regina, BREXX and ooRexx. The ¡°original¡± REXX was written in ASSEMBLER by Mike Cowlishaw because of his frustration with Mainframe scripting languages. It first appeared in public in VM/SP R3 (I believe). It is part of CMS and copyright and licenced so not available to us. It also relies on CMS commands for several functions., and these commands don¡¯t (or didn¡¯t) exist in ¡°our¡± CMS. When REXX was standardised by ANSI these commands were not included, and instead new functions were added to the language. These functions were not implemented in VM REXX at that time. BREXX is a portable implementation of ANSI REXX in ¡°C¡± and so is different to the REXX in CMS. Over time some of the non-ansi buts have been added back and ¡°WE¡± try and make it as close to the original REXX but some things just don¡¯t work! ? As for ¡°Signal¡± the documents say ¡°no¡± but it may be out of date. The folks who work on VM/CE are just folks with too much time, not a managed team, so things may not work as expected¡ ¡ mind you they never did¡. ? Dave p.s. Wiki pages on REXX has more info. PPS. I always write REXX because CMS works that way. Perhaps it should be Rexx¡ ? ? ? Hello, I thought SIGNAL wasn't supported because of documentation I read (must have been old).? My template (which I just uploaded) does: /*------------------------*\
| ?Enable trap processing ?|
\*------------------------*/
? ?SIGNAL ON ERROR
? ?SIGNAL ON FAILURE
? ?SIGNAL ON HALT
? ?SIGNAL ON NOVALUE
? ?SIGNAL ON SYNTAX?? I found REXX on VM/CE isn't supporting SIGNAL ON FAILURE Bob suggested opening a ticket in an earlier email (at?). Is VM/CE BREXX supposed to support SIGNAL ON FAILURE?? If yes, then I'll open the ticket.? If not, why and can it someday do it? Finally, what is the difference between REXX and BREXX, if any? ? On Sat, Dec 31, 2022 at 5:09 AM Bertram Moshier via <herc370390vm=[email protected]> wrote: Hello, I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?
|
Hi,
I am working on the VM/CMS Backup program.? Several people asked I do it in REXX.? I also have a request ot work on both real iron (ESA, I think) and VM/CE (Hercules).
I have for years been using ooRexx (classic not object oriented).? I have been not using EXECIO for a couple of decades.? I don't mind coding for both but would need the ability to test / code with both, too.
Bert.
Bert, Well the error seems clear, when I code it I get the error:- ? SIGNAL ON must be followed by one of the keywords ERROR, HALT, NOVALUE, NOTREADY or SYNTAX ? But I haven¡¯t checked they all work! For example I would expect ¡°signal on failure¡± to trigger a syntax error and it doesn¡¯t. It does work on SP5 REXX so I¡¯ll investigate but it will not be today¡ So ¡°FAILURE¡± is not currently supported. I checked on the SP5 system at LCM+L and its not supported there in the ¡°original¡± REXX either. I checked in a ¡°recent¡± zVM manual (7.1) and its not in there either. So I don¡¯t think raising a bug report will get it added. ? Which IO? Well if you want it to work on the LCM+L SP5 then you need EXECIO. Looks like on latest zVM both work. Its your choice. ? Dave ? ? Hello and thank you for the wonderful reply, As all the other SIGNAL ON work, should / will SIGNAL ON FAILURE work in VM/CE's REXX? Should I open a ticket to get SIGNAL ON FAILURE to work? Does VM/CE support EXECIO or should I be using lineout and linein, as well as charout and charin? ? OK, so REXX is the generic name for the language. It comes in many flavours or implementations. For example on Windows I know of Regina, BREXX and ooRexx. The ¡°original¡± REXX was written in ASSEMBLER by Mike Cowlishaw because of his frustration with Mainframe scripting languages. It first appeared in public in VM/SP R3 (I believe). It is part of CMS and copyright and licenced so not available to us. It also relies on CMS commands for several functions., and these commands don¡¯t (or didn¡¯t) exist in ¡°our¡± CMS. When REXX was standardised by ANSI these commands were not included, and instead new functions were added to the language. These functions were not implemented in VM REXX at that time. BREXX is a portable implementation of ANSI REXX in ¡°C¡± and so is different to the REXX in CMS. Over time some of the non-ansi buts have been added back and ¡°WE¡± try and make it as close to the original REXX but some things just don¡¯t work! ? As for ¡°Signal¡± the documents say ¡°no¡± but it may be out of date. The folks who work on VM/CE are just folks with too much time, not a managed team, so things may not work as expected¡ ¡ mind you they never did¡. ? Dave p.s. Wiki pages on REXX has more info. PPS. I always write REXX because CMS works that way. Perhaps it should be Rexx¡ ? ? ? Hello, I thought SIGNAL wasn't supported because of documentation I read (must have been old).? My template (which I just uploaded) does: /*------------------------*\
| ?Enable trap processing ?|
\*------------------------*/
? ?SIGNAL ON ERROR
? ?SIGNAL ON FAILURE
? ?SIGNAL ON HALT
? ?SIGNAL ON NOVALUE
? ?SIGNAL ON SYNTAX?? I found REXX on VM/CE isn't supporting SIGNAL ON FAILURE Bob suggested opening a ticket in an earlier email (at?). Is VM/CE BREXX supposed to support SIGNAL ON FAILURE?? If yes, then I'll open the ticket.? If not, why and can it someday do it? Finally, what is the difference between REXX and BREXX, if any? ? On Sat, Dec 31, 2022 at 5:09 AM Bertram Moshier via <herc370390vm=[email protected]> wrote: Hello, I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?
|
Bert, Well the error seems clear, when I code it I get the error:- ? SIGNAL ON must be followed by one of the keywords ERROR, HALT, NOVALUE, NOTREADY or SYNTAX ? But I haven¡¯t checked they all work! For example I would expect ¡°signal on failure¡± to trigger a syntax error and it doesn¡¯t. It does work on SP5 REXX so I¡¯ll investigate but it will not be today¡ So ¡°FAILURE¡± is not currently supported. I checked on the SP5 system at LCM+L and its not supported there in the ¡°original¡± REXX either. I checked in a ¡°recent¡± zVM manual (7.1) and its not in there either. So I don¡¯t think raising a bug report will get it added. ? Which IO? Well if you want it to work on the LCM+L SP5 then you need EXECIO. Looks like on latest zVM both work. Its your choice. ? Dave ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Bertram Moshier
Sent: 02 January 2023 08:35
To: [email protected]
Subject: Re: [h390-vm] (B)Rexx and Signal? Hello and thank you for the wonderful reply, As all the other SIGNAL ON work, should / will SIGNAL ON FAILURE work in VM/CE's REXX? Should I open a ticket to get SIGNAL ON FAILURE to work? Does VM/CE support EXECIO or should I be using lineout and linein, as well as charout and charin? ? OK, so REXX is the generic name for the language. It comes in many flavours or implementations. For example on Windows I know of Regina, BREXX and ooRexx. The ¡°original¡± REXX was written in ASSEMBLER by Mike Cowlishaw because of his frustration with Mainframe scripting languages. It first appeared in public in VM/SP R3 (I believe). It is part of CMS and copyright and licenced so not available to us. It also relies on CMS commands for several functions., and these commands don¡¯t (or didn¡¯t) exist in ¡°our¡± CMS. When REXX was standardised by ANSI these commands were not included, and instead new functions were added to the language. These functions were not implemented in VM REXX at that time. BREXX is a portable implementation of ANSI REXX in ¡°C¡± and so is different to the REXX in CMS. Over time some of the non-ansi buts have been added back and ¡°WE¡± try and make it as close to the original REXX but some things just don¡¯t work! ? As for ¡°Signal¡± the documents say ¡°no¡± but it may be out of date. The folks who work on VM/CE are just folks with too much time, not a managed team, so things may not work as expected¡ ¡ mind you they never did¡. ? Dave p.s. Wiki pages on REXX has more info. PPS. I always write REXX because CMS works that way. Perhaps it should be Rexx¡ ? ? ? Hello, I thought SIGNAL wasn't supported because of documentation I read (must have been old).? My template (which I just uploaded) does: /*------------------------*\
| ?Enable trap processing ?|
\*------------------------*/
? ?SIGNAL ON ERROR
? ?SIGNAL ON FAILURE
? ?SIGNAL ON HALT
? ?SIGNAL ON NOVALUE
? ?SIGNAL ON SYNTAX?? I found REXX on VM/CE isn't supporting SIGNAL ON FAILURE Bob suggested opening a ticket in an earlier email (at?). Is VM/CE BREXX supposed to support SIGNAL ON FAILURE?? If yes, then I'll open the ticket.? If not, why and can it someday do it? Finally, what is the difference between REXX and BREXX, if any? ? On Sat, Dec 31, 2022 at 5:09 AM Bertram Moshier via <herc370390vm=[email protected]> wrote: Hello, I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?
|
Hello and thank you for the wonderful reply,
As all the other SIGNAL ON work, should / will SIGNAL ON FAILURE work in VM/CE's REXX?
Should I open a ticket to get SIGNAL ON FAILURE to work?
Does VM/CE support EXECIO or should I be using lineout and linein, as well as charout and charin?
Thanks, Bert
OK, so REXX is the generic name for the language. It comes in many flavours or implementations. For example on Windows I know of Regina, BREXX and ooRexx. The ¡°original¡± REXX was written in ASSEMBLER by Mike Cowlishaw because of his frustration with Mainframe scripting languages. It first appeared in public in VM/SP R3 (I believe). It is part of CMS and copyright and licenced so not available to us. It also relies on CMS commands for several functions., and these commands don¡¯t (or didn¡¯t) exist in ¡°our¡± CMS. When REXX was standardised by ANSI these commands were not included, and instead new functions were added to the language. These functions were not implemented in VM REXX at that time. BREXX is a portable implementation of ANSI REXX in ¡°C¡± and so is different to the REXX in CMS. Over time some of the non-ansi buts have been added back and ¡°WE¡± try and make it as close to the original REXX but some things just don¡¯t work! ? As for ¡°Signal¡± the documents say ¡°no¡± but it may be out of date. The folks who work on VM/CE are just folks with too much time, not a managed team, so things may not work as expected¡ ¡ mind you they never did¡. ? Dave p.s. Wiki pages on REXX has more info. PPS. I always write REXX because CMS works that way. Perhaps it should be Rexx¡ ? ? ? Hello, I thought SIGNAL wasn't supported because of documentation I read (must have been old).? My template (which I just uploaded) does: /*------------------------*\
| ?Enable trap processing ?|
\*------------------------*/
? ?SIGNAL ON ERROR
? ?SIGNAL ON FAILURE
? ?SIGNAL ON HALT
? ?SIGNAL ON NOVALUE
? ?SIGNAL ON SYNTAX?? I found REXX on VM/CE isn't supporting SIGNAL ON FAILURE Bob suggested opening a ticket in an earlier email (at?). Is VM/CE BREXX supposed to support SIGNAL ON FAILURE?? If yes, then I'll open the ticket.? If not, why and can it someday do it? Finally, what is the difference between REXX and BREXX, if any? ? On Sat, Dec 31, 2022 at 5:09 AM Bertram Moshier via <herc370390vm=[email protected]> wrote: Hello, I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?
|
OK, so REXX is the generic name for the language. It comes in many flavours or implementations. For example on Windows I know of Regina, BREXX and ooRexx. The ¡°original¡± REXX was written in ASSEMBLER by Mike Cowlishaw because of his frustration with Mainframe scripting languages. It first appeared in public in VM/SP R3 (I believe). It is part of CMS and copyright and licenced so not available to us. It also relies on CMS commands for several functions., and these commands don¡¯t (or didn¡¯t) exist in ¡°our¡± CMS. When REXX was standardised by ANSI these commands were not included, and instead new functions were added to the language. These functions were not implemented in VM REXX at that time. BREXX is a portable implementation of ANSI REXX in ¡°C¡± and so is different to the REXX in CMS. Over time some of the non-ansi buts have been added back and ¡°WE¡± try and make it as close to the original REXX but some things just don¡¯t work! ? As for ¡°Signal¡± the documents say ¡°no¡± but it may be out of date. The folks who work on VM/CE are just folks with too much time, not a managed team, so things may not work as expected¡ ¡ mind you they never did¡. ? Dave p.s. Wiki pages on REXX has more info. PPS. I always write REXX because CMS works that way. Perhaps it should be Rexx¡ ? ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Bertram Moshier
Sent: 02 January 2023 01:34
To: [email protected]
Subject: Re: [h390-vm] (B)Rexx and Signal? Hello, I thought SIGNAL wasn't supported because of documentation I read (must have been old).? My template (which I just uploaded) does: /*------------------------*\
| ?Enable trap processing ?|
\*------------------------*/
? ?SIGNAL ON ERROR
? ?SIGNAL ON FAILURE
? ?SIGNAL ON HALT
? ?SIGNAL ON NOVALUE
? ?SIGNAL ON SYNTAX?? I found REXX on VM/CE isn't supporting SIGNAL ON FAILURE Bob suggested opening a ticket in an earlier email (at?). Is VM/CE BREXX supposed to support SIGNAL ON FAILURE?? If yes, then I'll open the ticket.? If not, why and can it someday do it? Finally, what is the difference between REXX and BREXX, if any? ? On Sat, Dec 31, 2022 at 5:09 AM Bertram Moshier via <herc370390vm=[email protected]> wrote: Hello, I use the Signal instruction in rexx and am wondering when BRexx will support them on VM/CE?
|
Re: Two WC3270 questions.
CMS files must have a filetype. ¡°1¡± does not have a filetype Dave ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Bertram Moshier
Sent: 01 January 2023 23:45
To: [email protected]
Subject: Re: [h390-vm] Two WC3270 questions.? Hi, I am sending to the host (CMS). ? On CMS, doesnt a TRANS34 mean the CMS file doesnt?exist?? ? Hello,
I'm getting TRANS34 - Error accessing file (RC = 20): file transfer canceled.
I tried several different Windows files.? Examples are:? D:\Users\Bertr\Programming\template.exec? and C:\1.2
I also tried with administration mode turned on for the WC3270 session.
On Windows the file is: ?Directory of D:\Users\Bertr\Programming 01/01/2023? 15:55? ? ? ? ? ? 57,175 1.2 ? ? ? ? ? ? ? ?1 File(s)? ? ? ? ?57,175 bytes ? ? ? ? ? ? ? ?0 Dir(s)? 9,234,605,932,544 bytes free
It is the REXX template file I use for various operating systems.? Presently it supports DOS, Win95, WinNT (Win 7 - 11), and OS/2.
This is a copy of one of the several attempts:
Press <Enter> to resume session. Type 'quit' at any prompt to abort this dialog. Note: In order to initiate a file transfer, the 3270 cursor must be positioned on an input field that can accept the IND$FILE command, e.g., at the VM/CMS or TSO command prompt. ?'send' means copy a file from this workstation to the host. ?'receive' means copy a file from the host to this workstation. Direction: (send/receive) [send] Name of source file on this workstation: [D:\Users\Bertr\Programming\template.exec] C:\1.2 Name of destination file on the host: [template] 1 Host type: (tso/vm/cics) [vm] vm ?An 'ascii' transfer does automatic translation between EBCDIC on the host and ?ASCII on the workstation. ?A 'binary' transfer does no data translation. Transfer mode: (ascii/binary) [ascii] ?For ASCII transfers, carriage return (CR) characters can be handled specially. ?'remove' means that CRs will be removed during the transfer. ?'keep' means that no special action is taken with CRs. CR handling: (remove/keep) [remove] ?For ASCII transfers, wc3270 can either remap the text to ensure as accurate a ?translation between the Windows code page and EBCDIC code page 37+ as ?possible, or it can transfer text as-is and leave all translation to the ?IND$FILE program on the host. ?'yes' means that text will be translated. ?'no' means that text will be transferred as-is. Re-map character set? (yes/no) [yes] Windows code page for re-mapping: [1252] [optional] Destination file record format: ?(default/fixed/variable/undefined) [variable] [optional] Destination file logical record length: [135] ?Source file on workstation: C:\1.2 ?Destination file on Host: 1 ?Transfer mode: ASCII, remove CRs, remap text, Windows code page 1252 ? Record format: variable ? Logical record length: 135 TRANS34 - Error accessing file (RC = 20): file transfer canceled Press <Enter> to resume session.
|
Re: Two WC3270 questions.
"I ?have been doing a send all along.? Please review my first email."
When you invoke SEND on the PC, it invokes RECEIVE on the host.
When you invoke SEND on the host, it invokes RECEIVE on the PC.
Joe
Hello,
I have been doing a send all along.? Please review my first email.
After reviewing successful transfers, I realized there were things I was doing that the successful ones weren't.? This time I decided to accept all the defaults and the transfer worked!
Thank you for the help!
Bert.
Right, which means youre doing a RECEIVE on the host!
Joe
Hi,
I am sending to the host (CMS).
On CMS, doesnt a TRANS34 mean the CMS file doesnt?exist??
Joe
Hello,
I'm getting TRANS34 - Error accessing file (RC = 20): file transfer canceled.
I tried several different Windows files.? Examples are:? D:\Users\Bertr\Programming\template.exec? and C:\1.2
I also tried with administration mode turned on for the WC3270 session.
On Windows the file is:
?Directory of D:\Users\Bertr\Programming
?
01/01/2023? 15:55? ? ? ? ? ? 57,175 1.2
? ? ? ? ? ? ? ?1 File(s)? ? ? ? ?57,175 bytes
? ? ? ? ? ? ? ?0 Dir(s)? 9,234,605,932,544 bytes free
It is the REXX template file I use for various operating systems.? Presently it supports DOS, Win95, WinNT (Win 7 - 11), and OS/2.
This is a copy of one of the several attempts:
[wc3270]
?
?
Press <Enter> to resume session.
wc3270>transfer
?
File Transfer
?
Type 'quit' at any prompt to abort this dialog.
?
Note: In order to initiate a file transfer, the 3270 cursor must be
positioned on an input field that can accept the IND$FILE command, e.g.,
at the VM/CMS or TSO command prompt.
?
Continue? (y/n) [y]
?
?'send' means copy a file from this workstation to the host.
?'receive' means copy a file from the host to this workstation.
Direction: (send/receive) [send]
?
Name of source file on this workstation: [D:\Users\Bertr\Programming\template.exec] C:\1.2
Name of destination file on the host: [template] 1
?
Host type: (tso/vm/cics) [vm] vm
?
?An 'ascii' transfer does automatic translation between EBCDIC on the host and
?ASCII on the workstation.
?A 'binary' transfer does no data translation.
Transfer mode: (ascii/binary) [ascii]
?
?For ASCII transfers, carriage return (CR) characters can be handled specially.
?'remove' means that CRs will be removed during the transfer.
?'keep' means that no special action is taken with CRs.
CR handling: (remove/keep) [remove]
?
?For ASCII transfers, wc3270 can either remap the text to ensure as accurate a
?translation between the Windows code page and EBCDIC code page 37+ as
?possible, or it can transfer text as-is and leave all translation to the
?IND$FILE program on the host.
?'yes' means that text will be translated.
?'no' means that text will be transferred as-is.
Re-map character set? (yes/no) [yes]
Windows code page for re-mapping: [1252]
?
[optional] Destination file record format:
?(default/fixed/variable/undefined) [variable]
?
[optional] Destination file logical record length: [135]
?
DFT buffer size: [4096]
?
File Transfer Summary:
?Source file on workstation: C:\1.2
?Destination file on Host: 1
?Host type: VM/CMS
?Transfer mode: ASCII, remove CRs, remap text, Windows code page 1252
?Destination file:
? Record format: variable
? Logical record length: 135
?DFT buffer size: 4096
?
Continue? (y/n) [y]
Press ^C to abort
TRANS34 - Error accessing file (RC = 20): file transfer canceled
Press <Enter> to resume session.
wc3270>
|
Ren¨¦ Ferland