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: Where is the source code of ASSEMBLER XF (IFOX00) in VM/370 Community Edition V1R1.2 ?
#VMCE
On Tue, Oct 1, 2024 at 09:27 PM, Dave Wade wrote:
I guess there should be notes about this on MAINTs CMS disk...I have found IFOXMODS MEMO F1 on MAINT 093 and ASMGEND EXEC I1 on MAINT 190 . ASMGEND EXEC I1 has file mode number 1 and is not visible on the S disk.
?
Martin
?
q disk f ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
Label ?CUU M ?Stat ?Cyl Type Blksize ? Files ?Blks Used-(%) Blks Left ?Blk Total? MNT093 093 F/A R/O ? 40 3350 ?800 ? ? ? ?681 ? ? ?12494-55 ? ? ?10306 ? ? ?22800? Ready; T=0.01/0.01 08:27:48 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? listfile IFOXMODS MEMO * (label isodate ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label ? ? ? ? ? ?? IFOXMODS MEMO ? ? F1 ?F ? ?80 ? ? 47 ? ? ?5 ?2005-07-22 20:05 ?MNT093 ? ? ? ? ? ? Ready; T=0.01/0.01 08:29:56 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? q disk ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Label ?CUU M ?Stat ?Cyl Type Blksize ? Files ?Blks Used-(%) Blks Left ?Blk Total? [...] ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? CMSDSK 190 I/A R/O ? 59 3350 ?800 ? ? ? ?569 ? ? ?19542-58 ? ? ?14088 ? ? ?33630? CMSDSK 190 S ? R/O ? 59 3350 ?800 ? ? ? ?172 ? ? ?19542-58 ? ? ?14088 ? ? ?33630? [...] ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Ready; T=0.01/0.01 08:14:14 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? listfile ASMGEND EXEC * (label isodate ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label ? ? ? ? ? ?? ASMGEND ?EXEC ? ? I1 ?F ? ?80 ? ? 81 ? ? 10 ?2003-03-11 18:07 ?CMSDSK ? ? ? ? ? ? Ready; T=0.01/0.01 08:13:58 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &TYPE ? ? ?ASSEMBLE XF GEND PROC ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &CONTROL ? OFF ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &ERROR ? ? &GOTO -FAIL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOAD ? ? ? DMSASM DMSASD (CLEAR ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? ASSEMBLE MODULE A2 (MAP ALL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0A IFOX0B (RESET IFOX0A01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX00 (MAP FROM IFOX0A00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0C (RESET IFOX0C01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX01 (MAP FROM IFOX0C00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0D IFOX0J (RESET IFOX0D01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX02 (MAP FROM IFOX0D00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0E (RESET IFOX0E01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX03 (MAP FROM IFOX0E00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0F (RESET IFOX0F01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX04 (MAP FROM IFOX0F00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX1A IFNX1J IFNX1K IFNX1S (RESET IFNX1A01 ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX11 (MAP FROM IFNX1A00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX2A (RESET IFNX2A01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX21 (MAP FROM IFNX2A00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX3A IFNX3B IFNX3K IFNX3N (RESET IFNX3A01 ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX31 (MAP FROM IFNX3A00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0G (RESET IFOX0G01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX05 (MAP FROM IFOX0G00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0H (RESET IFOX0H01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX06 (MAP FROM IFOX0H00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFOX0I (RESET IFOX0I01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX07 (MAP FROM IFOX0I00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX4M IFNX4D IFNX4E IFNX4S IFNX4V (RESET IFNX4M01 ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX41 (MAP FROM IFNX4M00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX06 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX4T IFNX4N IFNX4E IFNX4S IFNX4V (RESET IFNX4T01 ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX42 (MAP FROM IFNX4T00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX06 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &ERROR ? ? &CONTINUE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &STACK ? ? HT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX5C IFNX5D IFNX5F IFNX5A (RESET IFNX5C01 ? ? ? ? ? ? ? ? ? ? ? ? ?? &ERROR ? ? &GOTO -FAIL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &STACK ? ? RT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX5L IFNX5M IFNX5P IFNX5V ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX51 (MAP FROM IFNX5C00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX06 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX6A (RESET IFNX6A01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? IFOX61 (MAP FROM IFNX6A00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?IFOX06 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? INCLUDE ? ?IFNX6B IFNX6C (RESET IFNX6B01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? GENMOD ? ? IFOX62 (MAP FROM IFNX6B00 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? LOADMOD ? ?ASSEMBLE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &TYPE ? ? ?ENTER TARGET DISK MODE FOR ASSEMBLE MODULES ? ? ? ? ? ? ? ? ? ? ? ? ?? &TYPE ? ? ?DEFAULTS TO S-DISK IF NONE ENTERED. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &READ ? ? ?VARS &MODE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENDIRT ? ?DMSASD &MODE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GENMOD ? ? ASSEMBLE MODULE A2 (MAP ALL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &TYPE ? ? ?ASSEMBLER XF GEND COMPLETE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &EXIT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? -FAIL ? ? ?&CONTINUE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? &TYPE ? ? ?ASSEMBLER XF GEND FAILED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? &EXIT ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? |
Re: Where is the source code of ASSEMBLER XF (IFOX00) in VM/370 Community Edition V1R1.2 ?
#VMCE
When I worked for Owens Corning Fiberglas Research Center as the lead systems programmer, it was my policy to rebuild from start to finish, CP, CMS, and RSCS.? I would compare the text files IBM sent and what I got from the assembler.? There were several times this process found differences.? My boss liked this idea because it kept IBM on their toes. Thank you. Bertram Moshier? WB8ERT? On Tue, Oct 1, 2024, 14:27 Dave Wade via <dave.g4ugm=[email protected]> wrote:
|
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. |
to navigate to use esc to dismiss