Keyboard Shortcuts
Likes
- H390-Vm
- Messages
Search
This group is for all folks running the original IBM VM/370 Release 6 operating system (or later (e.g. VMTCE (Community Edition)) on Hercules. Like the other early IBM operating systems this version has always been in the public domain and so can be freely distributed. The base version as supplied by IBM is lacking in many facilities. IBM solved this by providing additional extension products which were licensed and so are not available. There are however many user enhancements available which can be installed. In addition, in order to get users up and running quickly updated "releases" of VM/370 included the most popular updates are available for download, so novices can start to learn VM without having to delve into the system internals. It is intended that this wiki will provide information on the base release and these updates.
The available versions are here :-
?
?
Re: Where is the source code of ASSEMBLER XF (IFOX00) in VM/370 Community Edition V1R1.2 ?
#VMCE
On 01/10/2024 19:01, Martin Scheffler via groups.io wrote:
Is it possible to generate the complete VM/370 Community Edition including all the tools from source ?Almost all.. I have looked at some disk of MAINT, but I did not find the complete source of the CMS ASSEMBLE command, including the core of Assembler XF (IFOX00).The Assembler is the XF assembler is common to MVS, VM and DOS and you need the MVS source disks to re-build it. There is a file here:- /g/h390-vm/files/GCCCMS/ifmods.zip with brief instructions and EXECs to re-build the assembler, however I think additional fixes may have been applied after I wrote those instructions. I guess there should be notes about this on MAINTs CMS disk... MartinDave |
Where is the source code of ASSEMBLER XF (IFOX00) in VM/370 Community Edition V1R1.2 ?
#VMCE
Is it possible to generate the complete VM/370 Community Edition including all the tools from source ?
?
I have looked at some disk of MAINT, but I did not find the complete source of the CMS ASSEMBLE command, including the core of Assembler XF (IFOX00).
?
Martin
? |
开云体育Hi Martin,I unpacked the new code drop and am very happy with the progress. Because of other obligations at the moment I only want to report this after I close EE: ** freeMem: ignored attempt to free NULL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Memory overwrite detected by __DMSFRT at E8DBA0. ? ? ? ? ? ? ? ? ? ? ? ?? DLMALLOC PANIC LINE 3540 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ABNORMAL TERMINATION (NO RESOURCE CLEANUP) ERRNO 430 DLMalloc aborted. ?? Ready(00012); T=0.21/0.33 08:40:50 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? It does not hurt anything though. best regards, 搁别苍é.
|
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 13:26 Mark A. Stevens via <marXtevens=[email protected]> wrote:
I'm much more comfortable with XEDIT than with EE, but I believe the command you want is: change /?=/<>/ * * Ross? |
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
On Sun, Sep 29, 2024 at 12:37 Mark A. Stevens via <marXtevens=[email protected]> wrote:
Without having checked, I'll guess it's the not-sign character that's the problem.? You can replace "?="?with "<>". ? The Rexx language got its start in an EBCDIC environment.? Every ?implementation written by anyone except Mike Cowlishaw got its start in an ASCII environment, where there is no?not-sign character.? Dealing with that has been a compatibility issue ever since. Ross |
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 * * *? |
File Notifications
#file-notice
Group Notification
Mark A. Stevens <marXtevens@...> added folder /IOS3270_Use_Attempt Description: The following items have been added to the Files area of the [email protected] group.
By: Mark A. Stevens <marXtevens@...> Description: |
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. |