Re: Another Time Zone Question (Sorta)

Bertram, you did not read, listen or whatever ...

Dave Wade wrote:

Oct 16 ? #4356??

Bertram,

We handle most things folks throw at us. I’ve updated that page to point out later versions are elsewhere.

Dave

now tells you to go elsewhere:

VM/370 Downloads

*** Important ***?Please use VM/CE which you will find ?as it contains new features and fixes ****

On this page you will find some VM/370 downloads. These are listed with the most recent first:-

Six Pack 1.3

This is intended to be a final stable release of the 1.3 Betas that have been out in the wild for a long time and form a baseline for moving forward onto VM/370 Community Edition. It has changes by many people, see the "readme-1_3.txt" in the release for full details of all the changes. As usual report any issues on the H-390 list at groups.io?/g/h390-vm?

?

tells you:

VM/370 Releases

Here you will find the VM releases. See the menu to the left.?

We recommend that you use the latest release as it contains many fixes and enhancements.

Older releases are retained so that any regression issues may be checked,

Finally, I can't find Maint Memo B mentioned earlier.? ?What information am I?missing?

I kindly advise you to install

Re: Possible bug in BREXX parse instruction

#4380

On Sun, Oct 16, 2022 at 04:20 PM, Bernd Oppolzer wrote:

I would like to help you (if I can) with diagnosing the problem in BREXX.
Maybe we could switch this communication to private.

A list of all sources and includes (in C, AFAIK), which are needed to build BREXX,
would be very helpful. And the MDISK where it can be found (I guess it
is part of the VM distribution, or maybe Turnkey MVS - same version?).

There are CMS & MVS versions on GitHub. They are not identical to each other. They both make use of GCCLIB, but I'm not sure if there is an exact, up to date copy of GCCLIB on GitHub for either CMS, or MVS. I'm pretty sure Dave W. or Bob B. would know the answer.

The URLs are:

CMS

MVS (There are several, so I'm guessing this is the correct one, based on references to the author in other discussions) A search for BREXX on all of GitHub will show the other contenders.

All the code that builds GCCLIB and BREXX for CMS are on the MAINTC minidisks.? There are a number of EXECs and HELPCMDs on the T disk to set up disk access, compile, and build. The file TOOLDISK MEMO T1, is the overview.

L MAINTC
ENTER PASSWORD:
?
DASD 190 LINKED R/O; R/W BY MAINT; R/O BY 005 USERS
DASD 19D LINKED R/O; R/W BY MAINT; R/O BY 003 USERS
DASD 19E LINKED R/O; R/W BY MAINT; R/O BY 005 USERS
FILES: 020 RDR,? NO PRT,? NO PUN
LOGON AT 19:15:07 GMT SUNDAY 10/16/22
VM Community Edition V1 R1.2
?
Y (19E) R/O
U (19D) R/O
Ready; T=0.01/0.01 19:15:09
q disk
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total
MNT191 191 A?? R/W?? 50 3350? 800???????? 16?????? 2013-07????? 26487????? 28500
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19537-58????? 14093????? 33630
MNT19C 19C T?? R/W?? 50 3350? 800???????? 40??????? 159-01????? 28341????? 28500
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 706????? 27458-69????? 12442????? 39900
Ready; T=0.01/0.01 19:15:12

I Hope This Helps.

?... Mark S.

Re: Another Time Zone Question (Sorta)

#4379

On Sun, Oct 16, 2022 at 06:44 PM, Bertram Moshier wrote:

I'm not finding anything about VM/CE 1.2 and if it came after SixPack 1.3 or before it.

?

Concerning Maint Memo B, unfortunately, the SixPack 1.3 version Maint ID doesn't have a 535 drive.??

Sixpack 1.3 preceded all the VM/370 CE releases. MAINT 535, a play on SES, by the way, was added to VM/370 CE V1R1... I forget which exact release. You are missing that minidisk on 1.3, so you won't see MAINT MEMO. On VM/370 CE you won't see SYSPROG MEMO, as it would confuse everyone, as it 'competes' with MAINT MEMO.

Should someone develop either CP or CMS code, how does the person make it available for either SixPack or VM/CE?

As an example, I posted ASSIST for VM/370 in the files section of this discussion group. Bob Bolch took that and added it to VM/370 CE V1R1.2.
An aside, that code should run on 1.3, but if it doesn';t, please let me know, and I will see what I can do to make it so.

Which one is better: SixPack 1.3 or VM/CE 1.2?

VM/370 CE V1... comes after the Sixpack 1.3 and contains almost everything the Sixpack has, with the exception of SYSPROG MEMO and some other files that were removed, because they were broken, or incomplete. ASSIST comes to mind.

?... Mark S.
Better? is the enemy of Good Enough. Jerry Pournelle

?

Re: Another Time Zone Question (Sorta)

#4378

Hello Martin,

Thank you for your reply to my questions.

>? You can read these files before Hercules is running. This list is sorted by date.
>? readme-1_3.txt??was for SixPack 1.3? .

I'm not finding anything about VM/CE 1.2 and if it came after SixPack 1.3 or before it.

Concerning Maint Memo B, unfortunately, the SixPack 1.3 version Maint ID doesn't have a 535 drive.??

BTW, how did you get the screenshot you posted?? My copy and past?
How did you get color from TN3270?

The drives on Maint are:

q disk

Label ?CUU M ?Stat ?Cyl Type Blksize ? Files ?Blks Used-(%) Blks Left ?Blk Total

MNT191 191 A ? R/W ? 35 3350 ?800 ? ? ? ? 27 ? ? ? ?258-01 ? ? ?19692 ? ? ?19950 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

MNT094 094 B/B R/O ? 40 3350 ?800 ? ? ? ?807 ? ? ? 7983-35 ? ? ?14817 ? ? ?22800 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
MNT194 194 D/D R/O ? 35 3350 ?800 ? ? ? ?245 ? ? ?10719-54 ? ? ? 9231 ? ? ?19950 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

MNT294 294 E/E R/O ? 35 3350 ?800 ? ? ? 1594 ? ? ? 6177-31 ? ? ?13773 ? ? ?19950 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

MNT394 394 F/F R/O ?110 3350 ?800 ? ? ? ?384 ? ? ?23381-37 ? ? ?39319 ? ? ?62700 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

CMSDSK 190 S ? R/O ? 59 3350 ?800 ? ? ? ?165 ? ? ?19107-57 ? ? ?14523 ? ? ?33630 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

MNT19D 19D U/S R/O ? 70 3350 ?800 ? ? ? ?375 ? ? ? 5170-13 ? ? ?34730 ? ? ?39900 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

MNT19E 19E Y/S R/O ? 70 3350 ?800 ? ? ? ?670 ? ? ?23392-59 ? ? ?16508 ? ? ?39900 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

Ready; T=0.01/0.01 23:13:15

q v dasd

DASD 093 3350 VM50-4 R/W 0040 CYL

DASD 094 3350 VM50-4 R/W 0040 CYL

DASD 09F 3350 VM50-2 R/W 0015 CYL

DASD 141 3350 VM50-1 R/W 0555 CYL

DASD 190 3350 VM50-1 R/W 0061 CYL

DASD 191 3350 VM50-1 R/W 0035 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 193 3350 VM50-1 R/W 0035 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 194 3350 VM50-1 R/W 0035 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 19D 3350 VM50-2 R/W 0070 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 19E 3350 VM50-2 R/W 0070 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 232 3350 VM50-2 R/W 0555 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 233 3350 VM50-3 R/W 0555 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 234 3350 VM50-4 R/W 0555 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 235 3350 VM50-5 R/W 0555 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 294 3350 VM50-1 R/W 0035 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 299 3350 VM50-1 R/W 0014 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 393 3350 VM50-1 R/W 0085 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 394 3350 VM50-1 R/W 0110 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 39F 3350 VM50-2 R/W 0015 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 494 3350 VM50-1 R/W 0017 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 59F 3350 VM50-2 R/W 0005 CYL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

DASD 69F 3350 VM50-2 R/W 0005 CYL

Ready; T=0.01/0.01 23:15:41?

Should someone develop either CP or CMS code, how does the person make it available for either SixPack or VM/CE?

Which one is better: SixPack 1.3 or VM/CE 1.2?

Thank you.

Show quoted text

On Sun, Oct 16, 2022 at 5:58 PM Martin Scheffler <San-Lorenzo@...> wrote:

So which came first VM/CE 1.2 or SixPack 1.3?

?

I other words, which is the latest SixPack 1.3?? Is everything in VM/CE in SixPack 1.3?

You can read these files before Hercules is running. This list is sorted by date.
? readme-1_3.txt? was for SixPack 1.3? .

E:\Hercules\...\VM370CE.V1.R1.2>dir read* /o-d?????????????
????????????????????????????????????????????????????????? ?
?Directory of E:\Hercules\...\VM370CE.V1.R1.2???????????? ?
????????????????????????????????????????????????????????? ?
2022-07-17? 09:44??????????? 10,601 readme-vmce-1_1_2.txt ?
2021-05-03? 15:28???????????? 9,104 readme-vmce-1_1_1.txt ?
2021-05-03? 10:34???????????? 1,553 readme-cms67.txt????? ?
2021-04-28? 08:32???????????? 3,347 readme-virtreal.txt?? ?
2021-04-26? 15:57?????????????? 742 readme-TK4-.txt?????? ?
2021-04-26? 15:48???????????? 3,689 readme-dosvs.txt????? ?
2021-03-20? 08:14??????????? 13,739 readme-vmce-1_1_0.txt ?
2021-03-10? 17:06??????????? 11,090 readme-1_3.txt??????? ?
2018-01-08? 15:13???????????? 9,639 readme-1_2.txt??????? ?
?????????????? 9 File(s)???????? 63,504 bytes???????????? ?

Finally, I can't find Maint Memo B mentioned earlier.? ?What information am I?missing?
MAINT MEMO is on MAINT's 5E5 disk, accessed as B .

L MAINT CPCMS?????????????????????????????????????????????????????????????????????????
DASD 19D LINKED R/W; R/O BY 003 USERS??????????????????????????????????????????????? ?
DASD 19E LINKED R/W; R/O BY 005 USERS??????????????????????????????????????????????? ?
DASD 190 LINKED R/W; R/O BY 005 USERS??????????????????????????????????????????????? ?
DASD 194 LINKED R/W; R/O BY CPWATCH????????????????????????????????????????????????? ?
FILES: 001 RDR,? NO PRT,? NO PUN???????????????????????????????????????????????????? ?
LOGON AT 22:14:10 GMT SUNDAY 10/16/22??????????????????????????????????????????????? ?
VM Community Edition V1 R1.2???????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
Y (19E) R/O????????????????????????????????????????????????????????????????????????? ?
U (19D) R/O????????????????????????????????????????????????????????????????????????? ?
B (5E5) R/O????????????????????????????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 22:14:20????????????????????????????????????????????????????????? ?
q disk?????????????????????????????????????????????????????????????????????????????? ?
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total???? ?
MNT191 191 A?? R/W?? 30 3350? 800????????? 4???????? 83-00????? 17017????? 17100???? ?
MNT5E5 5E5 B/B R/O?? 30 3350? 800???????? 11??????? 119-01????? 16981????? 17100???? ?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19537-58????? 14093????? 33630???? ?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100???? ?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900???? ?
Ready; T=0.01/0.01 22:14:32????????????????????????????????????????????????????????? ?
l maint memo * ( l iso?????????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label???????????????? ?
MAINT??? MEMO???? B1? V??? 80??? 490???? 24? 2021-03-03? 9:06? MNT5E5??????????????? ?
Ready; T=0.01/0.01 22:15:12????????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
File: MAINT??? MEMO???? B1?????? RECFM: V LRECL: 125(125) Lines:?? 490 Current:??? 11?
???????????????????????????????????????????????????????????????????????????????????? ?
00000 * * * Top of file * * *??????????????????????????????????????????????????????? ?
00001 ****?
00002 VM/370 Community Edition System Programming Notes????????????????????????????? ?
00003??????????????????????????????????????????????????????????????????????????????? ?
00004 Notes on generating the CMS nucleus, the CP nucleus, and the various saved???? ?
00005 systems and shared segments.? Thanks to Dave Wade, Kevin Leonard, Bob Bolch??? ?
00006 and Bob O'Hara.??????????????????????????????????????????????????????????????? ?
00007 ****?
00008 To establish a VM component service disk search order, issue?????????????????? ?
00009 one of these commands:???????????????????????????????????????????????????????? ?
00010??????????????????????????????????????????????????????????????????????????????? ?
00011 Component???? Setup command??????????????????????????????????????????????????? ?
00012 ---------???? -------------??????????????????????????????????????????????????? ?
00013 CP??????????? VMSETUP CP?????????????????????????????????????????????????????? ?
00014 CMS?????????? VMSETUP CMS????????????????????????????????????????????????????? ?
00015 RSCS????????? VMSETUP RSCS???????????????????????????????????????????????????? ?
00016??????????????????????????????????????????????????????????????????????????????? ?
00017 The "E" disk in each search order is used for????????????????????????????????? ?
00018 local modifications using an xxxLCL CNTRL file, where????????????????????????? ?
00019 xxx = DMK for CP?????????????????????????????????????????????????????????????? ?
00020?????? DMS for CMS????????????????????????????????????????????????????????????? ?
00021?????? DMT for RSCS???????????????????????????????????????????????????????????? ?
00022 Each of these CNTRL files use AUXLCL files to name the???????????????????????? ?
===>???????????????????????????????????????????????????????????????????????????????? ?
Unchanged????????????????????????????????????????????????????? ee V1.2.5,? 1 File(s) ?

Re: Another Time Zone Question (Sorta)

#4377

So which came first VM/CE 1.2 or SixPack 1.3?

?

I other words, which is the latest SixPack 1.3?? Is everything in VM/CE in SixPack 1.3?

You can read these files before Hercules is running. This list is sorted by date.
? readme-1_3.txt? was for SixPack 1.3? .

E:\Hercules\...\VM370CE.V1.R1.2>dir read* /o-d?????????????
????????????????????????????????????????????????????????? ?
?Directory of E:\Hercules\...\VM370CE.V1.R1.2???????????? ?
????????????????????????????????????????????????????????? ?
2022-07-17? 09:44??????????? 10,601 readme-vmce-1_1_2.txt ?
2021-05-03? 15:28???????????? 9,104 readme-vmce-1_1_1.txt ?
2021-05-03? 10:34???????????? 1,553 readme-cms67.txt????? ?
2021-04-28? 08:32???????????? 3,347 readme-virtreal.txt?? ?
2021-04-26? 15:57?????????????? 742 readme-TK4-.txt?????? ?
2021-04-26? 15:48???????????? 3,689 readme-dosvs.txt????? ?
2021-03-20? 08:14??????????? 13,739 readme-vmce-1_1_0.txt ?
2021-03-10? 17:06??????????? 11,090 readme-1_3.txt??????? ?
2018-01-08? 15:13???????????? 9,639 readme-1_2.txt??????? ?
?????????????? 9 File(s)???????? 63,504 bytes???????????? ?

Finally, I can't find Maint Memo B mentioned earlier.? ?What information am I?missing?

MAINT MEMO is on MAINT's 5E5 disk, accessed as B .

L MAINT CPCMS?????????????????????????????????????????????????????????????????????????
DASD 19D LINKED R/W; R/O BY 003 USERS??????????????????????????????????????????????? ?
DASD 19E LINKED R/W; R/O BY 005 USERS??????????????????????????????????????????????? ?
DASD 190 LINKED R/W; R/O BY 005 USERS??????????????????????????????????????????????? ?
DASD 194 LINKED R/W; R/O BY CPWATCH????????????????????????????????????????????????? ?
FILES: 001 RDR,? NO PRT,? NO PUN???????????????????????????????????????????????????? ?
LOGON AT 22:14:10 GMT SUNDAY 10/16/22??????????????????????????????????????????????? ?
VM Community Edition V1 R1.2???????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
Y (19E) R/O????????????????????????????????????????????????????????????????????????? ?
U (19D) R/O????????????????????????????????????????????????????????????????????????? ?
B (5E5) R/O????????????????????????????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 22:14:20????????????????????????????????????????????????????????? ?
q disk?????????????????????????????????????????????????????????????????????????????? ?
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total???? ?
MNT191 191 A?? R/W?? 30 3350? 800????????? 4???????? 83-00????? 17017????? 17100???? ?
MNT5E5 5E5 B/B R/O?? 30 3350? 800???????? 11??????? 119-01????? 16981????? 17100???? ?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19537-58????? 14093????? 33630???? ?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100???? ?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900???? ?
Ready; T=0.01/0.01 22:14:32????????????????????????????????????????????????????????? ?
l maint memo * ( l iso?????????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label???????????????? ?
MAINT??? MEMO???? B1? V??? 80??? 490???? 24? 2021-03-03? 9:06? MNT5E5??????????????? ?
Ready; T=0.01/0.01 22:15:12????????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????? ?
File: MAINT??? MEMO???? B1?????? RECFM: V LRECL: 125(125) Lines:?? 490 Current:??? 11?
???????????????????????????????????????????????????????????????????????????????????? ?
00000 * * * Top of file * * *??????????????????????????????????????????????????????? ?
00001 ****?
00002 VM/370 Community Edition System Programming Notes????????????????????????????? ?
00003??????????????????????????????????????????????????????????????????????????????? ?
00004 Notes on generating the CMS nucleus, the CP nucleus, and the various saved???? ?
00005 systems and shared segments.? Thanks to Dave Wade, Kevin Leonard, Bob Bolch??? ?
00006 and Bob O'Hara.??????????????????????????????????????????????????????????????? ?
00007 ****?
00008 To establish a VM component service disk search order, issue?????????????????? ?
00009 one of these commands:???????????????????????????????????????????????????????? ?
00010??????????????????????????????????????????????????????????????????????????????? ?
00011 Component???? Setup command??????????????????????????????????????????????????? ?
00012 ---------???? -------------??????????????????????????????????????????????????? ?
00013 CP??????????? VMSETUP CP?????????????????????????????????????????????????????? ?
00014 CMS?????????? VMSETUP CMS????????????????????????????????????????????????????? ?
00015 RSCS????????? VMSETUP RSCS???????????????????????????????????????????????????? ?
00016??????????????????????????????????????????????????????????????????????????????? ?
00017 The "E" disk in each search order is used for????????????????????????????????? ?
00018 local modifications using an xxxLCL CNTRL file, where????????????????????????? ?
00019 xxx = DMK for CP?????????????????????????????????????????????????????????????? ?
00020?????? DMS for CMS????????????????????????????????????????????????????????????? ?
00021?????? DMT for RSCS???????????????????????????????????????????????????????????? ?
00022 Each of these CNTRL files use AUXLCL files to name the???????????????????????? ?
===>???????????????????????????????????????????????????????????????????????????????? ?
Unchanged????????????????????????????????????????????????????? ee V1.2.5,? 1 File(s) ?

Re: Possible bug in BREXX parse instruction

#4376

A list of all sources and includes (in C, AFAIK), which are needed to build BREXX,
would be very helpful. And the MDISK where it can be found (I guess it
is part of the VM distribution [...]).

bREXX is built by MAINTC in VM Community Edition V1 R1.2 :

L MAINTC MAINTC??????????????????????????????????????????????????????????????????
DASD 190 LINKED R/O; R/W BY MAINT; R/O BY 004 USERS???????????????????????????? ?
DASD 19D LINKED R/O; R/W BY MAINT; R/O BY 002 USERS???????????????????????????? ?
DASD 19E LINKED R/O; R/W BY MAINT; R/O BY 004 USERS???????????????????????????? ?
LOGON AT 21:24:04 GMT SUNDAY 10/16/22?????????????????????????????????????????? ?
VM Community Edition V1 R1.2??????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
Y (19E) R/O???????????????????????????????????????????????????????????????????? ?
U (19D) R/O???????????????????????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 21:24:11???????????????????????????????????????????????????? ?
q disk????????????????????????????????????????????????????????????????????????? ?
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total?
MNT191 191 A?? R/W?? 50 3350? 800???????? 10?????? 1335-05????? 27165????? 28500?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19537-58????? 14093????? 33630?
MNT19C 19C T?? R/W?? 50 3350? 800???????? 40??????? 124-00????? 28376????? 28500?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900?
Ready; T=0.01/0.01 21:24:26???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
l br* exec t ( l iso??????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label??????????? ?
BRXASM?? EXEC???? T1? V??? 49????? 5????? 1? 2021-04-14 12:18? MNT19C?????????? ?
BRXBUILD EXEC???? T1? V??? 72???? 45????? 2? 2021-04-14 12:18? MNT19C?????????? ?
BRXCOMP? EXEC???? T1? V??? 49????? 5????? 1? 2021-04-14 12:18? MNT19C?????????? ?
BRXCOMPD EXEC???? T1? V??? 49????? 5????? 1? 2021-04-14 12:18? MNT19C?????????? ?
BRXGEN?? EXEC???? T1? V??? 58??? 227???? 12? 2021-06-14? 9:46? MNT19C?????????? ?
BRXSRCH? EXEC???? T1? V??? 26????? 9????? 1? 2021-04-14 12:18? MNT19C?????????? ?
BRXSRCHD EXEC???? T1? V??? 32???? 11????? 1? 2021-04-14 12:18? MNT19C?????????? ?
Ready; T=0.01/0.01 21:26:39???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
BRXSRCH???????????????????????????????????????????????????????????????????????? ?
E (193) R/O???????????????????????????????????????????????????????????????????? ?
F (393) R/O???????????????????????????????????????????????????????????????????? ?
G (394) R/O???????????????????????????????????????????????????????????????????? ?
H (194) R/O???????????????????????????????????????????????????????????????????? ?
Ready; T=0.01/0.02 21:27:36???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
q disk????????????????????????????????????????????????????????????????????????? ?
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total?
MNT191 191 A?? R/W?? 50 3350? 800???????? 10?????? 1335-05????? 27165????? 28500?
MNT193 193 E/A R/O?? 50 3350? 800??????? 105?????? 1167-04????? 27333????? 28500?
MNT393 393 F/A R/O?? 50 3350? 800??????? 218?????? 1468-05????? 27032????? 28500?
MNT394 394 G/A R/O?? 50 3350? 800???????? 20?????? 2252-08????? 26248????? 28500?
MNT194 194 H/A R/O?? 50 3350? 800????????? 1?????? 2515-09????? 25985????? 28500?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19537-58????? 14093????? 33630?
MNT19C 19C T?? R/W?? 50 3350? 800???????? 40??????? 124-00????? 28376????? 28500?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900?
Ready; T=0.01/0.01 21:28:41???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
l * h * ( l iso???????????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label??????????? ?
BINTREE? H??????? F1? V??? 65???? 56????? 2? 2021-04-14 12:17? MNT393?????????? ?
BIO????? H??????? F1? V??? 68??? 108????? 3? 2021-04-14 12:17? MNT393?????????? ?
BMEM???? H??????? F1? V??? 71???? 73????? 3? 2021-04-14 12:17? MNT393?????????? ?
COMPILE? H??????? F1? V??? 96??? 227????? 8? 2021-04-14 12:17? MNT393?????????? ?
CONFIG?? H??????? F1? V??? 96??? 187????? 7? 2021-04-24 13:51? MNT393?????????? ?
CONTEXT? H??????? F1? V??? 87??? 152????? 7? 2021-04-14 12:17? MNT393?????????? ?
DQUEUE?? H??????? F1? V??? 70???? 55????? 2? 2021-04-14 12:17? MNT393?????????? ?
INTERPRE H??????? F1? V??? 54???? 43????? 2? 2021-04-14 12:17? MNT393?????????? ?
LDEFS??? H??????? F1? V??? 70??? 142????? 5? 2021-04-14 12:17? MNT393?????????? ?
LERROR?? H??????? F1? V??? 60??? 104????? 4? 2021-04-14 12:17? MNT393?????????? ?
LMVS???? H??????? F1? V??? 56???? 17????? 1? 2021-04-14 12:17? MNT393?????????? ?
LSTRING? H??????? F1? V?? 100??? 566???? 20? 2021-04-14 12:17? MNT393?????????? ?
NEXTSYMB H??????? F1? V??? 73??? 102????? 4? 2021-04-14 12:17? MNT393?????????? ?
OS?????? H??????? F1? V??? 73??? 319????? 9? 2021-04-14 12:17? MNT393?????????? ?
REXX???? H??????? F1? V??? 74??? 230????? 8? 2021-04-14 12:17? MNT393?????????? ?
RXCONIO? H??????? F1? V??? 59???? 48????? 2? 2021-04-14 12:17? MNT393?????????? ?
RXDEFS?? H??????? F1? V??? 75??? 173????? 6? 2021-04-14 12:17? MNT393?????????? ?
RXMVS??? H??????? F1? V??? 56???? 55????? 2? 2021-04-14 12:17? MNT393?????????? ?
STACK??? H??????? F1? V??? 66???? 42????? 2? 2021-04-14 12:17? MNT393?????????? ?
TRACE??? H??????? F1? V??? 70???? 86????? 3? 2021-04-14 12:17? MNT393?????????? ?
VARIABLE H??????? F1? V??? 71???? 98????? 4? 2021-04-14 12:17? MNT393?????????? ?
ASSERT?? H??????? G1? V??? 71???? 25????? 2? 2021-04-14 11:40? MNT394?????????? ?
CMSRUNTM H??????? G1? V?? 106??? 218???? 16? 2021-03-23? 8:13? MNT394?????????? ?
CMSSYS?? H??????? G1? V?? 108??? 862???? 89? 2022-05-16? 9:05? MNT394?????????? ?
CTYPE??? H??????? G1? V?? 100???? 62????? 3? 2021-04-14 11:40? MNT394?????????? ?
ERRNO??? H??????? G1? V??? 71???? 64????? 3? 2021-04-14 11:40? MNT394?????????? ?
FLOAT??? H??????? G1? V??? 75??? 127????? 5? 2021-04-14 11:40? MNT394?????????? ?
GCCCRAB? H??????? G1? V?? 100???? 68????? 4? 2021-03-23? 7:07? MNT394?????????? ?
LIMITS?? H??????? G1? V??? 71???? 49????? 3? 2021-04-14 11:40? MNT394?????????? ?
LOCALE?? H??????? G1? V??? 71???? 49????? 3? 2021-04-14 11:40? MNT394?????????? ?
MATH???? H??????? G1? V??? 71??? 113????? 4? 2021-04-14 11:40? MNT394?????????? ?
REXXSAA? H??????? G1? V??? 81??? 162???? 11? 2021-04-14 11:40? MNT394?????????? ?
SETJMP?? H??????? G1? V?? 100???? 42????? 5? 2021-04-14 11:40? MNT394?????????? ?
SIGNAL?? H??????? G1? V??? 71???? 33????? 2? 2021-04-14 11:40? MNT394?????????? ?
STDARG?? H??????? G1? V??? 73???? 22????? 2? 2021-04-14 11:40? MNT394?????????? ?
STDDEF?? H??????? G1? V??? 71???? 38????? 2? 2021-04-14 11:40? MNT394?????????? ?
STDIO??? H??????? G1? V?? 100??? 782???? 81? 2022-05-28 14:17? MNT394?????????? ?
STDLIB?? H??????? G1? V?? 100??? 381???? 20? 2021-04-14 11:40? MNT394?????????? ?
STRING?? H??????? G1? V??? 73??? 173????? 9? 2021-04-14 11:40? MNT394?????????? ?
TIME???? H??????? G1? V??? 71???? 65????? 3? 2021-04-14 11:40? MNT394?????????? ?
TSTS???? H??????? G1? V?? 125???? 98????? 5? 2021-04-14 11:40? MNT394?????????? ?
Ready; T=0.01/0.03 21:31:52???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
l * c * ( l iso???????????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label??????????? ?
ABBREV?? C??????? F1? V??? 66???? 34????? 2? 2021-04-14 12:17? MNT393?????????? ?
ABS????? C??????? F1? V??? 52???? 34????? 1? 2021-04-14 12:17? MNT393?????????? ?
ADD????? C??????? F1? V??? 79???? 50????? 3? 2021-04-14 12:17? MNT393?????????? ?
ADDRESS? C??????? F1? V??? 87??? 396???? 14? 2021-04-14 12:17? MNT393?????????? ?
BINTREE? C??????? F1? V??? 72??? 398???? 15? 2021-04-14 12:17? MNT393?????????? ?
BITAND?? C??????? F1? V?? 105???? 55????? 2? 2021-04-14 12:17? MNT393?????????? ?
BITOR??? C??????? F1? V??? 55???? 47????? 2? 2021-04-14 12:17? MNT393?????????? ?
BITXOR?? C??????? F1? V??? 55???? 47????? 2? 2021-04-14 12:17? MNT393?????????? ?
BMEM???? C??????? F1? V??? 82??? 287???? 10? 2021-04-14 12:17? MNT393?????????? ?
BOOL???? C??????? F1? V??? 68???? 54????? 3? 2021-04-14 12:17? MNT393?????????? ?
BUILTIN? C??????? F1? V??? 87??? 938???? 39? 2021-04-14 12:17? MNT393?????????? ?
B2X????? C??????? F1? V??? 64???? 53????? 2? 2021-04-14 12:17? MNT393?????????? ?
CENTER?? C??????? F1? V??? 78???? 45????? 2? 2021-04-14 12:17? MNT393?????????? ?
CHANGEST C??????? F1? V??? 69???? 57????? 2? 2021-04-14 12:17? MNT393?????????? ?
CHARIN?? C??????? F1? V??? 73???? 22????? 1? 2021-04-14 12:17? MNT393?????????? ?
CHAROUT? C??????? F1? V??? 67???? 36????? 2? 2021-04-14 12:17? MNT393?????????? ?
CHARS??? C??????? F1? V??? 54???? 15????? 1? 2021-04-14 12:17? MNT393?????????? ?
CMSFUNC? C??????? F1? V??? 62??? 136????? 5? 2021-04-14 12:17? MNT393?????????? ?
COMPARE? C??????? F1? V??? 56???? 46????? 2? 2021-04-14 12:17? MNT393?????????? ?
COMPILE? C??????? F1? V?? 119?? 2016???? 94? 2021-04-14 12:17? MNT393?????????? ?
CONTEXT? C??????? F1? V??? 61???? 39????? 2? 2021-04-14 12:17? MNT393?????????? ?
COPIES?? C??????? F1? V??? 53???? 51????? 2? 2021-04-14 12:17? MNT393?????????? ?
COUNTSTR C??????? F1? V??? 66???? 36????? 2? 2021-04-14 12:17? MNT393?????????? ?
C2D????? C??????? F1? V??? 58???? 41????? 2? 2021-04-14 12:17? MNT393?????????? ?
C2X????? C??????? F1? V??? 50???? 38????? 2? 2021-04-14 12:17? MNT393?????????? ?
DATATYPE C??????? F1? V??? 68??? 119????? 5? 2021-04-14 12:17? MNT393?????????? ?
DATE???? C??????? F1? V??? 76??? 211????? 7? 2021-04-14 12:17? MNT393?????????? ?
DEC????? C??????? F1? V??? 49???? 29????? 1? 2021-04-14 12:17? MNT393?????????? ?
DELSTR?? C??????? F1? V??? 68???? 45????? 2? 2021-04-14 12:17? MNT393?????????? ?
DELWORD? C??????? F1? V??? 69???? 54????? 2? 2021-04-14 12:17? MNT393?????????? ?
DIV????? C??????? F1? V??? 65???? 33????? 2? 2021-04-14 12:17? MNT393?????????? ?
DQUEUE?? C??????? F1? V??? 67??? 122????? 4? 2021-04-14 12:17? MNT393?????????? ?
D2C????? C??????? F1? V??? 52???? 67????? 2? 2021-04-14 12:17? MNT393?????????? ?
D2X????? C??????? F1? V??? 53???? 54????? 2? 2021-04-14 12:17? MNT393?????????? ?
EQUAL??? C??????? F1? V??? 74??? 146????? 6? 2022-07-11 11:26? MNT393?????????? ?
ERROR??? C??????? F1? V??? 80??? 194????? 9? 2021-04-14 12:17? MNT393?????????? ?
ERRORTXT C??????? F1? V?? 160??? 528???? 30? 2021-04-14 12:17? MNT393?????????? ?
EXPOSE?? C??????? F1? V??? 55???? 64????? 2? 2021-04-14 12:17? MNT393?????????? ?
EXPR???? C??????? F1? V??? 76??? 498???? 20? 2021-04-14 12:17? MNT393?????????? ?
FORMAT?? C??????? F1? V??? 95??? 384???? 17? 2021-04-14 12:17? MNT393?????????? ?
HASHVALU C??????? F1? V??? 57???? 63????? 2? 2021-04-14 12:17? MNT393?????????? ?
INC????? C??????? F1? V??? 49???? 29????? 1? 2021-04-14 12:17? MNT393?????????? ?
INDEX??? C??????? F1? V??? 58???? 59????? 3? 2021-04-14 12:17? MNT393?????????? ?
INSERT?? C??????? F1? V??? 63???? 55????? 2? 2021-04-14 12:17? MNT393?????????? ?
INTDIV?? C??????? F1? V??? 65???? 35????? 2? 2021-04-14 12:17? MNT393?????????? ?
INTERPRE C??????? F1? V?? 121?? 2248??? 111? 2021-06-14? 5:50? MNT393?????????? ?
JUSTIFY? C??????? F1? V??? 67???? 99????? 4? 2021-04-14 12:17? MNT393?????????? ?
LASTPOS? C??????? F1? V??? 60???? 50????? 2? 2021-04-14 12:17? MNT393?????????? ?
LINEIN?? C??????? F1? V??? 68???? 48????? 2? 2021-04-14 12:17? MNT393?????????? ?
LINEOUT? C??????? F1? V??? 68???? 46????? 2? 2021-04-14 12:17? MNT393?????????? ?
LINES??? C??????? F1? V??? 53???? 15????? 1? 2021-04-14 12:17? MNT393?????????? ?
LOWER??? C??????? F1? V??? 65???? 30????? 1? 2021-04-14 12:17? MNT393?????????? ?
LSTRING? C??????? F1? V??? 94??? 837???? 32? 2021-04-14 12:17? MNT393?????????? ?
LTIME??? C??????? F1? V??? 93??? 289???? 12? 2021-04-14 12:17? MNT393?????????? ?
MAIN???? C??????? F1? V??? 78??? 170????? 6? 2021-04-14 12:17? MNT393?????????? ?
MOD????? C??????? F1? V??? 73???? 35????? 2? 2021-04-14 12:17? MNT393?????????? ?
MULT???? C??????? F1? V??? 64???? 36????? 2? 2021-04-14 12:17? MNT393?????????? ?
NEG????? C??????? F1? V??? 49???? 51????? 2? 2021-04-14 12:17? MNT393?????????? ?
NEXTSYMB C??????? F1? V?? 112??? 739???? 33? 2021-04-14 12:17? MNT393?????????? ?
OVERLAY? C??????? F1? V??? 64???? 48????? 2? 2021-04-14 12:17? MNT393?????????? ?
PRINT??? C??????? F1? V??? 71???? 49????? 2? 2021-04-14 12:17? MNT393?????????? ?
READ???? C??????? F1? V??? 75???? 61????? 3? 2021-04-14 12:17? MNT393?????????? ?
REVERSE? C??????? F1? V??? 53???? 37????? 1? 2021-04-14 12:17? MNT393?????????? ?
REXX???? C??????? F1? V??? 98??? 476???? 18? 2021-04-14 12:17? MNT393?????????? ?
REXXFUNC C??????? F1? V??? 94??? 456???? 14? 2021-04-14 12:17? MNT393?????????? ?
RIGHT??? C??????? F1? V??? 77???? 36????? 2? 2021-04-14 12:17? MNT393?????????? ?
RXCONV?? C??????? F1? V??? 80??? 212????? 9? 2021-04-14 12:17? MNT393?????????? ?
RXEXCOMM C??????? F1? V??? 69??? 133????? 7? 2021-04-14 12:17? MNT393?????????? ?
RXFILES? C??????? F1? V?? 101??? 442???? 20? 2021-04-14 12:17? MNT393?????????? ?
RXMATH?? C??????? F1? V??? 69??? 192????? 8? 2021-04-14 12:17? MNT393?????????? ?
RXSTR??? C??????? F1? V??? 78??? 546???? 22? 2021-04-14 12:17? MNT393?????????? ?
RXWORD?? C??????? F1? V??? 80???? 83????? 3? 2021-04-14 12:17? MNT393?????????? ?
SIGN???? C??????? F1? V??? 52???? 43????? 2? 2021-04-14 12:17? MNT393?????????? ?
SOUNDEX? C??????? F1? V??? 75???? 93????? 4? 2021-04-14 12:17? MNT393?????????? ?
SPACE??? C??????? F1? V??? 66???? 57????? 2? 2021-04-14 12:17? MNT393?????????? ?
STACK??? C??????? F1? V??? 66???? 92????? 3? 2021-04-14 12:17? MNT393?????????? ?
STRIP??? C??????? F1? V??? 76???? 75????? 3? 2021-04-14 12:17? MNT393?????????? ?
SUB????? C??????? F1? V??? 79???? 50????? 3? 2021-04-14 12:17? MNT393?????????? ?
SUBSTR?? C??????? F1? V??? 74???? 62????? 3? 2021-04-14 12:17? MNT393?????????? ?
SUBWORD? C??????? F1? V??? 65???? 58????? 2? 2021-04-14 12:17? MNT393?????????? ?
TEMPLATE C??????? F1? V??? 80??? 218???? 10? 2021-04-14 12:17? MNT393?????????? ?
TRACE??? C??????? F1? V??? 83??? 324???? 14? 2021-04-14 12:17? MNT393?????????? ?
TRANSLAT C??????? F1? V??? 73???? 60????? 3? 2021-04-14 12:17? MNT393?????????? ?
TRUNC??? C??????? F1? V??? 66???? 49????? 2? 2021-04-14 12:17? MNT393?????????? ?
UPPER??? C??????? F1? V??? 65???? 29????? 1? 2021-04-14 12:17? MNT393?????????? ?
VARIABLE C??????? F1? V?? 102?? 1158???? 47? 2021-04-14 12:17? MNT393?????????? ?
VERIFY?? C??????? F1? V??? 76???? 52????? 3? 2021-04-14 12:17? MNT393?????????? ?
WORD???? C??????? F1? V??? 50???? 34????? 1? 2021-04-14 12:17? MNT393?????????? ?
WORDIDX? C??????? F1? V??? 53???? 35????? 1? 2021-04-14 12:17? MNT393?????????? ?
WORDLEN? C??????? F1? V??? 53???? 30????? 1? 2021-04-14 12:17? MNT393?????????? ?
WORDPOS? C??????? F1? V??? 53???? 94????? 4? 2021-04-14 12:17? MNT393?????????? ?
WORDS??? C??????? F1? V??? 51???? 32????? 1? 2021-04-14 12:17? MNT393?????????? ?
WRITE??? C??????? F1? V??? 55???? 16????? 1? 2021-04-14 12:17? MNT393?????????? ?
XRANGE?? C??????? F1? V??? 53???? 45????? 2? 2021-04-14 12:17? MNT393?????????? ?
X2B????? C??????? F1? V??? 64???? 63????? 2? 2021-04-14 12:17? MNT393?????????? ?
X2C????? C??????? F1? V??? 80???? 68????? 3? 2021-04-14 12:17? MNT393?????????? ?
X2D????? C??????? F1? V??? 56???? 58????? 2? 2021-04-14 12:17? MNT393?????????? ?
HELLO??? C??????? U2? V??? 36????? 7????? 1? 2010-08-01 14:17? MNT29D?????????? ?
Ready; T=0.01/0.07 21:35:19???????????????????????????????????????????????????? ?
??????????????????????????????????????????????????????????????????????????????? ?
l * assemble * ( l iso????????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label??????????? ?
CMSDIAG? ASSEMBLE F1? F??? 80??? 109???? 11? 2021-04-14 12:17? MNT393?????????? ?
HOSTCMD? ASSEMBLE F1? F??? 80??? 372???? 38? 2021-06-18? 5:06? MNT393?????????? ?
HOSTFNC? ASSEMBLE F1? F??? 80??? 299???? 30? 2021-06-19? 5:00? MNT393?????????? ?
TESTEXC? ASSEMBLE F1? F??? 80??? 342???? 35? 2021-04-14 12:17? MNT393?????????? ?
Ready; T=0.01/0.01 21:36:27???????????????????????????????????????????????????? ?

Re: Possible bug in BREXX parse instruction

#4375

开云体育

Hello Mark and Bob,

I would like to help you (if I can) with diagnosing the problem in BREXX.
Maybe we could switch this communication to private.

A list of all sources and includes (in C, AFAIK), which are needed to build BREXX,
would be very helpful. And the MDISK where it can be found (I guess it
is part of the VM distribution, or maybe Turnkey MVS - same version?).

Kind regards

Bernd

Am 16.10.2022 um 22:51 schrieb Bob Bolch:

Show quoted text

Thanks, Mark.

I never found brexx debug to be very useful. I do remember that you put the BREXXD TEXT on your A-disk, renamed to BREXX TEXT, then IPL CMS.? Then the 'trace' statement, in an EXEC , turns the tracing on and off (I can't remember the exact operand.) The trace output shows you codepoints in the BREXX interpretor where the code flows. I will try to figure out the details and report back.

Bob

On Sun, Oct 16, 2022, 4:35 PM Mark A. Stevens via <marXtevens=[email protected]> wrote:

On Sun, Oct 16, 2022 at 10:36 AM, Bob Bolch wrote:

Which left parentheses?are you referring?to in that sentence?

?

Also, the WITH keyword is only valid in a parse of the form:

PARSE VALUE expression WITH template

The 'with' in Dave Mitchell's example is a variable name.

?

The correct result of the DAVEMTST?EXEC is the following:

Welcome back from your surgery.

Once again, I'm leaving out thoughts and not writing them down. Sorry.
I am referencing Mike's 2nd edition, also the ANSI X3J18-199X document. I will also eat my words about the parentheses. I was wrong. I had to walk away from this due to other challenges, and forgot.

From the ANSI document.

/* Note: The next section describes templates. */
template_list?????? := template | [template] ',' [template_list]
template??????????? := (trigger | target | Msg38.1)+
target????????????? := VAR_SYMBOL | '.'
trigger???????????? := pattern | positional
pattern???????????? := STRING | vrefp
vrefp?????????????? := '(' (VAR_SYMBOL | Msg19.7) (')' | Msg46.1)
positional????????? := absolute_positional | relative_positional
absolute_positional := NUMBER | '=' position
position??????????? := NUMBER | vrefp | Msg38.2
relative_positional := ('+' | '-') position

Concerning the use of 'WITH', I found I was misreading the code. You are correct.

address ??????????? := 'ADDRESS' [(taken_constant [expression]
??????????????????? | Msg19.1 | valueexp) [ 'WITH' connection]]
... and ...

parse_value???????? := 'VALUE' [expression] ('WITH' | Msg38.3)

I have been going through the C code to determine what is and is not happening. Not having a lot of luck, yet, as I get lost in the definitions of record constructs, and I don't understand why TEMPLATE C skips left paren while gathering symbols. Starting at line 35 and on.

/* ----------- vrefp --------- */
/* variable reference position */
static void
vrefp(void) {
??? Context *context = (Context *) CMSGetPG();
??? nextsymbol(); /* skip left parenthesis */

I also have not been able to activate the debug mode of bREXX, though I thought I followed the directions.

?... Mark S.
Boy, do I feel stupid today.

Re: Another Time Zone Question (Sorta)

#4374

Hello Dave,

So which came first VM/CE 1.2 or SixPack 1.3?

I other words, which is the latest SixPack 1.3?? Is everything in VM/CE in SixPack 1.3?

Finally, I can't find Maint Memo B mentioned earlier.? ?What information am I?missing?

Thanks.

Show quoted text

On Sun, Oct 16, 2022, 02:45 Dave Wade <dave.g4ugm@...> wrote:

Bertram,
We handle most things folks throw at us. I’ve updated that page to point out later versions are elsewhere.
Dave
?
From: [email protected] <[email protected]> On Behalf Of Bertram Moshier
Sent: 16 October 2022 06:50
To: [email protected]
Subject: Re: [h390-vm] Another Time Zone Question (Sorta)
?
Hello Dave,
?
I got my copy of VM/370 from:
?
?
It is Six Pack 1.3.
?
I got the URL from YouTube watching the Moshix channel.
?
If these are different, how are they different?
?
Does this group handle both or just one line (VM/CE or SixPack)?
?
Thank you,
?
Bertram Moshier
?
On Sat, Oct 15, 2022, 06:40 Dave Wade <dave.g4ugm@...> wrote:
Bertram (and Jim)
?
You don’t say which version of VM you are using! MAINT MEMO B is certainly there on CE1.2 from .
?
You still create modifications using update, its just on the latest CE we have provided a separate minidisk, so when we update the system you can quickly put your own modifications back.
?
For multiple time zones, you can’t just edit the source because you are using UPDATE. You can either have two mods, or just edit your mod. You could even write and EXEC that generates the update and re-builds the nucleus.
?
As for learning about the system, well the original manuals are on BITSAVERS here:-
?
?
and the various memos and help files describe what has been added.
?
In some ways its similar to the CMS in zVM but in other ways its quite different. So most command line commands in vm/370 are still in zVM but you may not need them.
Whilst it has REXX the codebase is totally different…..
?
Dave
?
From: [email protected] <[email protected]> On Behalf Of Bertram Moshier
Sent: 15 October 2022 05:52
To: [email protected]
Subject: Re: [h390-vm] Another Time Zone Question (Sorta)
?
Hello Jim,
?
I'm logged into Maint and can't find the file MAINT MEMO *.? The Syspro memo doesn't speak to maint memo.? I can't find the vmsetup command.
?
Like you I would create CP with local mods by modifying the source code using the update command, etc.
?
Where do I start to learn this new system.
?
Thank you.
?
On Fri, Oct 14, 2022, 22:30 Jim Snellen <jsnellen55@...> wrote:
Hello All,
I too, like Jay Maynard, am trying to specify the correct time zone for my location.? I know that DMKSYS is where it's specified, and I know that I want to change?
'SYSTIME ZONE=0,LOC=WEST,ID=GMT' to 'SYSTIME ZONE=5,LOC=WEST,ID=EDT'.? I also know the sequence number is 00220000.

In my past life, I would simply edit DMKSYS ASSEMBLE and be on my way.? Now that I know that's the wrong way to do it, I don't quite know the right way using the E-disk for local mods.

I see that MAINT MEMO B says to use VMSETUP CP to establish the search order.? OK, next I see that DMKLCL CNTRL E identifies where the local changes are (by way of filetype I presume).? ?DMKSYS AUXLCL E should contain an entry like 'LCLnnnDK xxx Change SYSTIME macro to reflect local time zone and ID'.? I don't know what values are supposed to be used for nnn and xxx.? What is the significance of DK? It also appears I need to create a file named 'LCLnnnDK MEMO E' which contains a lengthier description of the modification.? Finally, I assume another file is to be created named 'DMKSYS LCLnnnDK E' that contains:
,/ R 00220000 $ 00220000 1? ? ? ? ? ? ? ? ?mm/dd/yy? hh:mm:ss
? ? ? ? ?SYSTIME ZONE=5,LOC=WEST,ID=EDT? ? ? ? ?LCLnnnDK

I'm guessing on the replace statement, I'm sure there's an IBM manual that describes how to code these update statements.?
After all is done I simply
VMFASM DMKSYS DMKLCL
CP SPOOL PUN *
CP SPOOL PRT *
VMFLOAD CPLOAD DMKLCL
ORDER READER nnnn (for IPL deck)
IPL 00C CLEAR
CLOSE RDR
ORDER RDR nnnn (for print file)
READCARD CPLOAD MAP?
LOGOFF
Re-IPL.

So, that's where I am.? I hope somebody can correct my assumptions and put me on the path to righteousness. (LOL)

PS - Can I have two SYSTIME statements, one for EST and one for EDT?? Is the alternative to rebuild CP each time change?

Re: Possible bug in BREXX parse instruction

#4373

Thanks, Mark.

I never found brexx debug to be very useful. I do remember that you put the BREXXD TEXT on your A-disk, renamed to BREXX TEXT, then IPL CMS.? Then the 'trace' statement, in an EXEC , turns the tracing on and off (I can't remember the exact operand.) The trace output shows you codepoints in the BREXX interpretor where the code flows. I will try to figure out the details and report back.

Bob

Show quoted text

On Sun, Oct 16, 2022, 4:35 PM Mark A. Stevens via <marXtevens=[email protected]> wrote:

On Sun, Oct 16, 2022 at 10:36 AM, Bob Bolch wrote:

Which left parentheses?are you referring?to in that sentence?

?

Also, the WITH keyword is only valid in a parse of the form:

PARSE VALUE expression WITH template

The 'with' in Dave Mitchell's example is a variable name.

?

The correct result of the DAVEMTST?EXEC is the following:

Welcome back from your surgery.

Once again, I'm leaving out thoughts and not writing them down. Sorry.
I am referencing Mike's 2nd edition, also the ANSI X3J18-199X document. I will also eat my words about the parentheses. I was wrong. I had to walk away from this due to other challenges, and forgot.

From the ANSI document.

/* Note: The next section describes templates. */
template_list?????? := template | [template] ',' [template_list]
template??????????? := (trigger | target | Msg38.1)+
target????????????? := VAR_SYMBOL | '.'
trigger???????????? := pattern | positional
pattern???????????? := STRING | vrefp
vrefp?????????????? := '(' (VAR_SYMBOL | Msg19.7) (')' | Msg46.1)
positional????????? := absolute_positional | relative_positional
absolute_positional := NUMBER | '=' position
position??????????? := NUMBER | vrefp | Msg38.2
relative_positional := ('+' | '-') position

Concerning the use of 'WITH', I found I was misreading the code. You are correct.

address ??????????? := 'ADDRESS' [(taken_constant [expression]
??????????????????? | Msg19.1 | valueexp) [ 'WITH' connection]]
... and ...

parse_value???????? := 'VALUE' [expression] ('WITH' | Msg38.3)

I have been going through the C code to determine what is and is not happening. Not having a lot of luck, yet, as I get lost in the definitions of record constructs, and I don't understand why TEMPLATE C skips left paren while gathering symbols. Starting at line 35 and on.

/* ----------- vrefp --------- */
/* variable reference position */
static void
vrefp(void) {
??? Context *context = (Context *) CMSGetPG();
??? nextsymbol(); /* skip left parenthesis */

I also have not been able to activate the debug mode of bREXX, though I thought I followed the directions.

?... Mark S.
Boy, do I feel stupid today.

Re: Possible bug in BREXX parse instruction

#4372

On Sun, Oct 16, 2022 at 10:36 AM, Bob Bolch wrote:

Which left parentheses?are you referring?to in that sentence?

?

Also, the WITH keyword is only valid in a parse of the form:

PARSE VALUE expression WITH template

The 'with' in Dave Mitchell's example is a variable name.

?

The correct result of the DAVEMTST?EXEC is the following:

Welcome back from your surgery.

Once again, I'm leaving out thoughts and not writing them down. Sorry.
I am referencing Mike's 2nd edition, also the ANSI X3J18-199X document. I will also eat my words about the parentheses. I was wrong. I had to walk away from this due to other challenges, and forgot.

From the ANSI document.

/* Note: The next section describes templates. */
template_list?????? := template | [template] ',' [template_list]
template??????????? := (trigger | target | Msg38.1)+
target????????????? := VAR_SYMBOL | '.'
trigger???????????? := pattern | positional
pattern???????????? := STRING | vrefp
vrefp?????????????? := '(' (VAR_SYMBOL | Msg19.7) (')' | Msg46.1)
positional????????? := absolute_positional | relative_positional
absolute_positional := NUMBER | '=' position
position??????????? := NUMBER | vrefp | Msg38.2
relative_positional := ('+' | '-') position

Concerning the use of 'WITH', I found I was misreading the code. You are correct.

address ??????????? := 'ADDRESS' [(taken_constant [expression]
??????????????????? | Msg19.1 | valueexp) [ 'WITH' connection]]
... and ...

parse_value???????? := 'VALUE' [expression] ('WITH' | Msg38.3)

I have been going through the C code to determine what is and is not happening. Not having a lot of luck, yet, as I get lost in the definitions of record constructs, and I don't understand why TEMPLATE C skips left paren while gathering symbols. Starting at line 35 and on.

/* ----------- vrefp --------- */
/* variable reference position */
static void
vrefp(void) {
??? Context *context = (Context *) CMSGetPG();
??? nextsymbol(); /* skip left parenthesis */

I also have not been able to activate the debug mode of bREXX, though I thought I followed the directions.

?... Mark S.
Boy, do I feel stupid today.

Re: Another Time Zone Question (Sorta)

#4371

On Sun, Oct 16, 2022 at 08:56 AM, Bob Polmanter wrote:

I don't have my system available in front of me at the moment but to the best of my recollection those change files were controlling the OPTIONS COPY member, for the support of varying the AP=YES/NO selection in DMKSYS and thus including an extra COPY member in the conditional assembly.

There are other control files, aux files, and then code which are included when AP is selected for a build. I've forgotten the details, but I used it on our 4381[-P2]?, as it had an attached processor, years ago. You are correct about the lack of performance improvement. If I recall correctly Fish, and others, have not implemented the EPCS:VM assists for that.

I learned update control on CDC KRONOS and NOS operating systems in the early 80s and into the 90s. When I shifted to VM/SP 6, and found there was an equivalent methodology, and commands, I started using them and practiced on DMKSNT, and DMKSYS. This helped me when I started applying PUTs, and re-installing SP 6 & upgrading to later releases. Especially as our consultant 'skipped'? using VM/SES during the original install.

I also took advantage of XEDIT's UPDATE feature and applied it to management of local code, REXX, EXEC, and so on. For my own sanity, as well as helping those who might later follow.

Since most of us no longer have to share our VM/370 installation, yes, this is overkill, but if you want to learn what happened in those days, it is, in my humble opinion, worth trying. Practice on DMKSYS, and change the name of your host with the SYSID macro, and making the time match your particular time zone.

If you just want to change the time, look at Hercules V4.x, and the TZOFFSET. The following is from my configuration file.

# Spring/Summer/Fall US Central Daylight Savings Time (CST)
TZOFFSET??????? -0500
# Fall/Winter/Spring US Central Daylight Time (CDT)
#TZOFFSET??????? -0600
#?????????????? + indicates east of GMT
#?????????????? - indicates west of GMT
#??????????????? 00 = hours
#????????????????? 00 = minutes (India for example)

I Hope This Helps
?... Mark S.

Re: Possible bug in BREXX parse instruction

#4370

Will check this.?

Martin Scheffler <San-Lorenzo@...> schrieb am So. 16. Okt. 2022 um 21:28:

Show quoted text

We might look for? TEMPLATE? C? F?? on MAINTC:

q disk?????????????????????????????????????????????????????????????????????????????
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total? ?
MNT191 191 A?? R/W?? 50 3350? 800???????? 29?????? 2699-09????? 25801????? 28500? ?
MNT193 193 E/A R/O?? 50 3350? 800??????? 212?????? 2347-08????? 26153????? 28500? ?
MNT393 393 F/A R/O?? 50 3350? 800??????? 218?????? 1468-05????? 27032????? 28500? ?
MNT394 394 G/A R/O?? 50 3350? 800???????? 20?????? 2252-08????? 26248????? 28500? ?
MNT194 194 H/A R/O?? 50 3350? 800????????? 1?????? 3123-11????? 25377????? 28500? ?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19542-58????? 14088????? 33630? ?
MNT19C 19C T?? R/W?? 50 3350? 800???????? 40??????? 124-00????? 28376????? 28500? ?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100? ?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900? ?
Ready; T=0.01/0.01 19:15:40?????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????????????????????? ?
l template c *??? ( l iso???????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label????????????? ?
TEMPLATE C??????? F1? V??? 80??? 218???? 10? 2021-04-14 12:17? MNT393???????????? ?
Ready; T=0.01/0.01 19:16:41?????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????????????????????? ?
File: TEMPLATE C??????? F1??????????????????????????????????????????????????????? ?
===>????????????????????????????????????????????????????????????????????????????? ?
?? 81 /* -------------------------------------------------------------- */??????? ?
?? 82 /*? template_list := template | [template] ',' [template_list]??? */??????? ?
?? 83 /*? template?? := (trigger | target | Msg38.1)+?????????????????? */??????? ?
?? 84 /*? target???? := VAR_SYMBOL | '.'??????????????????????????????? */??????? ?
?? 85 /*? trigger??? := pattern | positional??????????????????????????? */??????? ?
?? 86 /*? pattern??? := STRING | vrefp????????????????????????????????? */??????? ?
?? 87 /*? vrefp????? := '(' (VAR_SYMBOL | Msg19.7) (')' | Msg46.1)????? */??????? ?
?? 88 /*? positional := absolute_pos | relative_pos???????????????????? */??????? ?
?? 89 /*? absolute_pos := NUMBER | '=' position???????????????????????? */??????? ?
?? 90 /*? position?? := NUMBER | vrefp? | Msg38.2?????????????????????? */??????? ?
?? 91 /*? relative_pos := ('+' | '-') position????????????????????????? */??????? ?
?? 92 /* -------------------------------------------------------------- */??????? ?
?? 93 void __CDECL??????????????????????????????????????????????????????????????? ?
?? 94 C_template(void) {????????????????????????????????????????????????????????? ?
?? 95???? void *target_ptr = NULL;??????????????????????????????????????????????? ?
?? 96???? bool trigger, dot = FALSE;????????????????????????????????????????????? ?
?? 97???? bool sign;????????????????????????????????????????????????????????????? ?
?? 98???? int type;?????????????????????????????????????????????????????????????? ?
?? 99???? CTYPE pos;????????????????????????????????????????????????????????????? ?
? 100???? Context *context = (Context *) CMSGetPG();????????????????????????????? ?
? 101???????????????????????????????????????????????????????????????????????????? ?
? 102???? _CodeAddByte(OP_PARSE);???????????????????????????????????????????????? ?
? 103???? while (((context->nextsymbsymbol) != semicolon_sy) &&?????????????????? ?

--

Von Gmail Mobile gesendet

Re: Possible bug in BREXX parse instruction

#4369

We might look for? TEMPLATE? C? F?? on MAINTC:

q disk?????????????????????????????????????????????????????????????????????????????
Label? CUU M? Stat? Cyl Type Blksize?? Files? Blks Used-(%) Blks Left? Blk Total? ?
MNT191 191 A?? R/W?? 50 3350? 800???????? 29?????? 2699-09????? 25801????? 28500? ?
MNT193 193 E/A R/O?? 50 3350? 800??????? 212?????? 2347-08????? 26153????? 28500? ?
MNT393 393 F/A R/O?? 50 3350? 800??????? 218?????? 1468-05????? 27032????? 28500? ?
MNT394 394 G/A R/O?? 50 3350? 800???????? 20?????? 2252-08????? 26248????? 28500? ?
MNT194 194 H/A R/O?? 50 3350? 800????????? 1?????? 3123-11????? 25377????? 28500? ?
CMSDSK 190 S?? R/O?? 59 3350? 800??????? 172????? 19542-58????? 14088????? 33630? ?
MNT19C 19C T?? R/W?? 50 3350? 800???????? 40??????? 124-00????? 28376????? 28500? ?
MNT29D 19D U/S R/O?? 30 3350? 800??????? 407?????? 6242-37????? 10858????? 17100? ?
MNT19E 19E Y/S R/O?? 70 3350? 800??????? 710????? 28263-71????? 11637????? 39900? ?
Ready; T=0.01/0.01 19:15:40?????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????????????????????? ?
l template c *??? ( l iso???????????????????????????????????????????????????????? ?
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time?? Label????????????? ?
TEMPLATE C??????? F1? V??? 80??? 218???? 10? 2021-04-14 12:17? MNT393???????????? ?
Ready; T=0.01/0.01 19:16:41?????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????????????????????? ?
File: TEMPLATE C??????? F1??????????????????????????????????????????????????????? ?
===>????????????????????????????????????????????????????????????????????????????? ?
?? 81 /* -------------------------------------------------------------- */??????? ?
?? 82 /*? template_list := template | [template] ',' [template_list]??? */??????? ?
?? 83 /*? template?? := (trigger | target | Msg38.1)+?????????????????? */??????? ?
?? 84 /*? target???? := VAR_SYMBOL | '.'??????????????????????????????? */??????? ?
?? 85 /*? trigger??? := pattern | positional??????????????????????????? */??????? ?
?? 86 /*? pattern??? := STRING | vrefp????????????????????????????????? */??????? ?
?? 87 /*? vrefp????? := '(' (VAR_SYMBOL | Msg19.7) (')' | Msg46.1)????? */??????? ?
?? 88 /*? positional := absolute_pos | relative_pos???????????????????? */??????? ?
?? 89 /*? absolute_pos := NUMBER | '=' position???????????????????????? */??????? ?
?? 90 /*? position?? := NUMBER | vrefp? | Msg38.2?????????????????????? */??????? ?
?? 91 /*? relative_pos := ('+' | '-') position????????????????????????? */??????? ?
?? 92 /* -------------------------------------------------------------- */??????? ?
?? 93 void __CDECL??????????????????????????????????????????????????????????????? ?
?? 94 C_template(void) {????????????????????????????????????????????????????????? ?
?? 95???? void *target_ptr = NULL;??????????????????????????????????????????????? ?
?? 96???? bool trigger, dot = FALSE;????????????????????????????????????????????? ?
?? 97???? bool sign;????????????????????????????????????????????????????????????? ?
?? 98???? int type;?????????????????????????????????????????????????????????????? ?
?? 99???? CTYPE pos;????????????????????????????????????????????????????????????? ?
? 100???? Context *context = (Context *) CMSGetPG();????????????????????????????? ?
? 101???????????????????????????????????????????????????????????????????????????? ?
? 102???? _CodeAddByte(OP_PARSE);???????????????????????????????????????????????? ?
? 103???? while (((context->nextsymbsymbol) != semicolon_sy) &&?????????????????? ?

Re: Possible bug in BREXX parse instruction

#4368

I‘m on my way to find a fix.

Debug environment is back in running state.?

Martin Scheffler <San-Lorenzo@...> schrieb am So. 16. Okt. 2022 um 19:28:

Show quoted text

I had to build bREXX for bug chasing already .. I will look into this. I checked KEDIT/KEXX, Regina and ooRexx under Microsoft Windows and all these results are the same as with REXX370 4.02 .

--

Von Gmail Mobile gesendet

Re: Possible bug in BREXX parse instruction

#4367

I had to build bREXX for bug chasing already .. I will look into this. I checked KEDIT/KEXX, Regina and ooRexx under Microsoft Windows and all these results are the same as with REXX370 4.02 .

Re: Possible bug in BREXX parse instruction

#4366

开云体育

Bob,

did you came closer to a c file, where the problem may occur?

I just reviewed my old mail, but can’t really remember. Something with

not finding the closing ?)“. Where do you think is the bug, I will

review the code.

Mike ?

Show quoted text

Am 16.10.2022 um 19:18 schrieb Bob Bolch <Bob@...>:

Yes. The problem is that BREXX doesn't handle literals in the parse template!!
I just don't know enough C to find and fix it.
Bob Bolch

On Sun, Oct 16, 2022, 12:46 PM Martin Scheffler <San-Lorenzo@...> wrote:
Comparing with results from real iron (z/VM 6.4):

Ready; T=0.01/0.01 10:46:48?????????????????????????????????????? ?
?DAVEMTST???????????????????????????????????????????????????????? ?
z/VM Version 6 Release 4.0, service level 1701 (64-bit)?????????? ?
Generated at 04/24/17 16:30:42 EST??????????????????????????????? ?
IPL at 10/08/22 07:37:33 EST????????????????????????????????????? ?
CMS Level 28, Service Level 1701????????????????????????????????? ?
REXX370 4.02 01 Dec 1998????????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = //????????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 1/????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 2/????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 10:46:51?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
Written new file: DAVEMTST EXEC A1??????????????????????????????? ?
Ready; T=0.09/0.23 15:58:32?????????????????????????????????????? ?
DAVEMTST????????????????????????????????????????????????????????? ?
SYSTEM 4381-A???????????????????????????????????????????????????? ?
VM/370 Community Edition Version? 1 Release? 1.2 10/11/22 08:44:05?
VM/370 CMS Community Edition Version 1 Release 1.2??????????????? ?
CMS bREXX 1.0.1 Jul? 5 2022?????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = /)/???????????????????????????????????????????????????????? ?
in2 = /trial 1/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1)/??????????????????????????????????????????????????????? ?
in2 = /trial 2/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.08/0.12 15:58:38?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
*** side by side:???????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
REXX370 4.02 01 Dec 1998? CMS bREXX 1.0.1 Jul? 5 2022???????????? ?
test of () trial 1??????? test of () trial 1????????????????????? ?
in1 = //????????????????? in1 = /)/?????????????????????????????? ?
in2 = //????????????????? in2 = /trial 1/???????????????????????? ?
outer=/?trial 1/????????? outer=//??????????????????????????????? ?
test of (1) trial 2?????? test of (1) trial 2???????????????????? ?
in1 = /1/???????????????? in1 = /1)/????????????????????????????? ?
in2 = //????????????????? in2 = /trial 2/???????????????????????? ?
outer=/?trial 2/????????? outer=//??????????????????????????????? ?
test of (1 3) trial 3???? test of (1 3) trial 3?????????????????? ?
in1 = /1/???????????????? in1 = /1/?????????????????????????????? ?
in2 = /3/???????????????? in2 = /3/?????????????????????????????? ?
outer=/ trial3/?????????? outer=/ trial3/???????????????????????? ?
????????????????????????????????????????????????????????????????? ?
?DAVEMTST EXEC???? A1? F 80? Trunc=80 Size=22 Line=11 Col=1 Alt=0 ?
====>???????????????????????????????????????????????????????????? ?
????0 * * * Top of File * * *???????????????????????????????????? ?
????1 /* test parse */??????????????????????????????????????????? ?
????2 "q cplevel"???????????????????????????????????????????????? ?
????3 "q cmslevel"??????????????????????????????????????????????? ?
????4 parse version v???????????????????????????????????????????? ?
????5 say v?????????????????????????????????????????????????????? ?
????6?? trest = '() trial 1'????????????????????????????????????? ?
????7?? say 'test of () trial 1'????????????????????????????????? ?
????8?? s = dotell(trest)???????????????????????????????????????? ?
????9?? trest = '(1) trial 2'???????????????????????????????????? ?
???10?? say 'test of (1) trial 2'???????????????????????????????? ?
???11?? s = dotell(trest)???????????????????????????????????????? ?
???12?? trest = '(1 3) trial3'??????????????????????????????????? ?
???13?? say 'test of (1 3) trial 3'?????????????????????????????? ?
???14?? s = dotell(trest)???????????????????????????????????????? ?
???15?? exit????????????????????????????????????????????????????? ?
???16???????????????????????????????????????????????????????????? ?
???17 dotell:???????????????????????????????????????????????????? ?
???18?? parse arg with '(' in1 in2 ')' outer????????????????????? ?
???19?? say 'in1 = /'in1'/'?????????????????????????????????????? ?
???20?? say 'in2 = /'in2'/'?????????????????????????????????????? ?
???21?? say 'outer=/'outer'/'???????????????????????????????????? ?
???22?? return 0????????????????????????????????????????????????? ?
???23 * * * End of File * * *???????????????????????????????????? ?

Re: Possible bug in BREXX parse instruction

#4365

开云体育

Hello Mark,

yes, MVS has the same bug. But unfortunately I'm not able to find a fix. :(

Mike ?

Show quoted text

Am 16.10.2022 um 16:57 schrieb Mark A. Stevens via <marXtevens@...>:

On Sat, Sep 17, 2022 at 01:48 PM, Mike Gro?mann wrote:

I totally forgot about this topic.?

I'll look at it tomorrow, I promise.?

?

Mike

Any luck in finding time?

?... Mark S.

Re: Possible bug in BREXX parse instruction

#4364

Yes. The problem is that BREXX doesn't handle literals in the parse template!!

I just don't know enough C to find and fix it.

Bob Bolch

Show quoted text

On Sun, Oct 16, 2022, 12:46 PM Martin Scheffler <San-Lorenzo@...> wrote:

Comparing with results from real iron (z/VM 6.4):

Ready; T=0.01/0.01 10:46:48?????????????????????????????????????? ?
?DAVEMTST???????????????????????????????????????????????????????? ?
z/VM Version 6 Release 4.0, service level 1701 (64-bit)?????????? ?
Generated at 04/24/17 16:30:42 EST??????????????????????????????? ?
IPL at 10/08/22 07:37:33 EST????????????????????????????????????? ?
CMS Level 28, Service Level 1701????????????????????????????????? ?
REXX370 4.02 01 Dec 1998????????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = //????????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 1/????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 2/????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 10:46:51?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
Written new file: DAVEMTST EXEC A1??????????????????????????????? ?
Ready; T=0.09/0.23 15:58:32?????????????????????????????????????? ?
DAVEMTST????????????????????????????????????????????????????????? ?
SYSTEM 4381-A???????????????????????????????????????????????????? ?
VM/370 Community Edition Version? 1 Release? 1.2 10/11/22 08:44:05
VM/370 CMS Community Edition Version 1 Release 1.2??????????????? ?
CMS bREXX 1.0.1 Jul? 5 2022?????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = /)/???????????????????????????????????????????????????????? ?
in2 = /trial 1/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1)/??????????????????????????????????????????????????????? ?
in2 = /trial 2/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.08/0.12 15:58:38?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
*** side by side:???????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
REXX370 4.02 01 Dec 1998? CMS bREXX 1.0.1 Jul? 5 2022???????????? ?
test of () trial 1??????? test of () trial 1????????????????????? ?
in1 = //????????????????? in1 = /)/?????????????????????????????? ?
in2 = //????????????????? in2 = /trial 1/???????????????????????? ?
outer=/ trial 1/????????? outer=//??????????????????????????????? ?
test of (1) trial 2?????? test of (1) trial 2???????????????????? ?
in1 = /1/???????????????? in1 = /1)/????????????????????????????? ?
in2 = //????????????????? in2 = /trial 2/???????????????????????? ?
outer=/ trial 2/????????? outer=//??????????????????????????????? ?
test of (1 3) trial 3???? test of (1 3) trial 3?????????????????? ?
in1 = /1/???????????????? in1 = /1/?????????????????????????????? ?
in2 = /3/???????????????? in2 = /3/?????????????????????????????? ?
outer=/ trial3/?????????? outer=/ trial3/???????????????????????? ?
????????????????????????????????????????????????????????????????? ?
?DAVEMTST EXEC???? A1? F 80? Trunc=80 Size=22 Line=11 Col=1 Alt=0 ?
====>???????????????????????????????????????????????????????????? ?
??? 0 * * * Top of File * * *???????????????????????????????????? ?
??? 1 /* test parse */??????????????????????????????????????????? ?
??? 2 "q cplevel"???????????????????????????????????????????????? ?
??? 3 "q cmslevel"??????????????????????????????????????????????? ?
??? 4 parse version v???????????????????????????????????????????? ?
??? 5 say v?????????????????????????????????????????????????????? ?
??? 6?? trest = '() trial 1'????????????????????????????????????? ?
??? 7?? say 'test of () trial 1'????????????????????????????????? ?
??? 8?? s = dotell(trest)???????????????????????????????????????? ?
??? 9?? trest = '(1) trial 2'???????????????????????????????????? ?
?? 10?? say 'test of (1) trial 2'???????????????????????????????? ?
?? 11?? s = dotell(trest)???????????????????????????????????????? ?
?? 12?? trest = '(1 3) trial3'??????????????????????????????????? ?
?? 13?? say 'test of (1 3) trial 3'?????????????????????????????? ?
?? 14?? s = dotell(trest)???????????????????????????????????????? ?
?? 15?? exit????????????????????????????????????????????????????? ?
?? 16???????????????????????????????????????????????????????????? ?
?? 17 dotell:???????????????????????????????????????????????????? ?
?? 18?? parse arg with '(' in1 in2 ')' outer????????????????????? ?
?? 19?? say 'in1 = /'in1'/'?????????????????????????????????????? ?
?? 20?? say 'in2 = /'in2'/'?????????????????????????????????????? ?
?? 21?? say 'outer=/'outer'/'???????????????????????????????????? ?
?? 22?? return 0????????????????????????????????????????????????? ?
?? 23 * * * End of File * * *???????????????????????????????????? ?

Re: Possible bug in BREXX parse instruction

#4363

Comparing with results from real iron (z/VM 6.4):

Ready; T=0.01/0.01 10:46:48?????????????????????????????????????? ?
?DAVEMTST???????????????????????????????????????????????????????? ?
z/VM Version 6 Release 4.0, service level 1701 (64-bit)?????????? ?
Generated at 04/24/17 16:30:42 EST??????????????????????????????? ?
IPL at 10/08/22 07:37:33 EST????????????????????????????????????? ?
CMS Level 28, Service Level 1701????????????????????????????????? ?
REXX370 4.02 01 Dec 1998????????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = //????????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 1/????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = //????????????????????????????????????????????????????????? ?
outer=/ trial 2/????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 10:46:51?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
Written new file: DAVEMTST EXEC A1??????????????????????????????? ?
Ready; T=0.09/0.23 15:58:32?????????????????????????????????????? ?
DAVEMTST????????????????????????????????????????????????????????? ?
SYSTEM 4381-A???????????????????????????????????????????????????? ?
VM/370 Community Edition Version? 1 Release? 1.2 10/11/22 08:44:05
VM/370 CMS Community Edition Version 1 Release 1.2??????????????? ?
CMS bREXX 1.0.1 Jul? 5 2022?????????????????????????????????????? ?
test of () trial 1??????????????????????????????????????????????? ?
in1 = /)/???????????????????????????????????????????????????????? ?
in2 = /trial 1/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1) trial 2?????????????????????????????????????????????? ?
in1 = /1)/??????????????????????????????????????????????????????? ?
in2 = /trial 2/?????????????????????????????????????????????????? ?
outer=//????????????????????????????????????????????????????????? ?
test of (1 3) trial 3???????????????????????????????????????????? ?
in1 = /1/???????????????????????????????????????????????????????? ?
in2 = /3/???????????????????????????????????????????????????????? ?
outer=/ trial3/?????????????????????????????????????????????????? ?
Ready; T=0.08/0.12 15:58:38?????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
*** side by side:???????????????????????????????????????????????? ?
????????????????????????????????????????????????????????????????? ?
REXX370 4.02 01 Dec 1998? CMS bREXX 1.0.1 Jul? 5 2022???????????? ?
test of () trial 1??????? test of () trial 1????????????????????? ?
in1 = //????????????????? in1 = /)/?????????????????????????????? ?
in2 = //????????????????? in2 = /trial 1/???????????????????????? ?
outer=/ trial 1/????????? outer=//??????????????????????????????? ?
test of (1) trial 2?????? test of (1) trial 2???????????????????? ?
in1 = /1/???????????????? in1 = /1)/????????????????????????????? ?
in2 = //????????????????? in2 = /trial 2/???????????????????????? ?
outer=/ trial 2/????????? outer=//??????????????????????????????? ?
test of (1 3) trial 3???? test of (1 3) trial 3?????????????????? ?
in1 = /1/???????????????? in1 = /1/?????????????????????????????? ?
in2 = /3/???????????????? in2 = /3/?????????????????????????????? ?
outer=/ trial3/?????????? outer=/ trial3/???????????????????????? ?
????????????????????????????????????????????????????????????????? ?
?DAVEMTST EXEC???? A1? F 80? Trunc=80 Size=22 Line=11 Col=1 Alt=0 ?
====>???????????????????????????????????????????????????????????? ?
??? 0 * * * Top of File * * *???????????????????????????????????? ?
??? 1 /* test parse */??????????????????????????????????????????? ?
??? 2 "q cplevel"???????????????????????????????????????????????? ?
??? 3 "q cmslevel"??????????????????????????????????????????????? ?
??? 4 parse version v???????????????????????????????????????????? ?
??? 5 say v?????????????????????????????????????????????????????? ?
??? 6?? trest = '() trial 1'????????????????????????????????????? ?
??? 7?? say 'test of () trial 1'????????????????????????????????? ?
??? 8?? s = dotell(trest)???????????????????????????????????????? ?
??? 9?? trest = '(1) trial 2'???????????????????????????????????? ?
?? 10?? say 'test of (1) trial 2'???????????????????????????????? ?
?? 11?? s = dotell(trest)???????????????????????????????????????? ?
?? 12?? trest = '(1 3) trial3'??????????????????????????????????? ?
?? 13?? say 'test of (1 3) trial 3'?????????????????????????????? ?
?? 14?? s = dotell(trest)???????????????????????????????????????? ?
?? 15?? exit????????????????????????????????????????????????????? ?
?? 16???????????????????????????????????????????????????????????? ?
?? 17 dotell:???????????????????????????????????????????????????? ?
?? 18?? parse arg with '(' in1 in2 ')' outer????????????????????? ?
?? 19?? say 'in1 = /'in1'/'?????????????????????????????????????? ?
?? 20?? say 'in2 = /'in2'/'?????????????????????????????????????? ?
?? 21?? say 'outer=/'outer'/'???????????????????????????????????? ?
?? 22?? return 0????????????????????????????????????????????????? ?
?? 23 * * * End of File * * *???????????????????????????????????? ?

Re: Possible bug in BREXX parse instruction

#4362

The best description of how the parsing of?literal strings in the template?is

supposed to work, see:

'The Rexx Language' by Mike ( I have the second edition.)

See Section 10 on Parsing in the subsection on "Parsing with literal templates".

Bob

Show quoted text

On Sun, Oct 16, 2022 at 11:36 AM Bob Bolch via <Bob=[email protected]> wrote:

Hi Mark,
'That said, the definition for parsing using the PARSE ARG, or ARG commands does not appear to identify the right parenthesis as a special character, as it identifies the left parenthesis.'

Which left parentheses?are you referring?to in that sentence?

Also, the WITH keyword is only valid in a parse of the form:
PARSE VALUE expression WITH template
The 'with' in Dave Mitchell's example is a variable name.

The correct result of the DAVEMTST?EXEC is the following:

davemtst ? ? ? ? ? ? ? ? ? ? ?
TEST OF () TRIAL 1 ? ? ? ? ? ?
IN1 = // ? ? ? ? ? ? ? ? ? ? ?
IN2 = // ? ? ? ? ? ? ? ? ? ? ?
OUTER=/ TRIAL 1/ ? ? ? ? ? ? ?
TEST OF (1) TRIAL 2 ? ? ? ? ?
IN1 = /1/ ? ? ? ? ? ? ? ? ? ?
IN2 = // ? ? ? ? ? ? ? ? ? ? ?
OUTER=/ TRIAL 2/ ? ? ? ? ? ? ?
TEST OF (1 3) TRIAL 3 ? ? ? ?
IN1 = /1/ ? ? ? ? ? ? ? ? ? ?
IN2 = /3/ ? ? ? ? ? ? ? ? ? ?
OUTER=/ TRIAL3/ ? ? ? ? ? ? ?
Ready; T=0.01/0.01 11:28:05 ?
?
Questions?? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

Bob

On Sun, Oct 16, 2022 at 11:10 AM Mark A. Stevens via <marXtevens=[email protected]> wrote:
On Sun, Dec 12, 2021 at 07:33 AM, Dave Mitchell wrote:

I seem to have stumbled on a bug in the way the parse instruction works in BREXX? specifically when a pattern is used. Here's a sample exec;

/* test parse */?

? trest = '() trial 1'

? say 'test of () trial 1'

? s = dotell(trest)

? trest = '(1) trial 2'

? say 'test of (1) trial 2'

? s = dotell(trest)

? trest = '(1 3) trial3'

? say 'test of (1 3) trial 3'

? s = dotell(trest)

? exit

?

dotell:

? parse arg with '(' in1 in2 ')' outer

? say 'in1 = /'in1'/'

? say 'in2 = /'in2'/'

? say 'outer=/'outer'/'

? return 0

only the third test works as it should, setting 'in1' to '1', 'in2' to '3' and 'outer' to 'trial 3'. The other two cases set 'in1' to ')' and '1) respectively, 'in2' to 'trial 1' and 'trial 2' and 'outer' to a null string.

With the replacement of the GCCLIB segment, I tried this again, and the results are the same.

I've been looking at the REXX syntax definitions, and Mike's definitive book, trying to understand what the C code should be doing.

That said, the definition for parsing using the PARSE ARG, or ARG commands does not appear to identify the right parenthesis as a special character, as it identifies the left parenthesis.

What did not exist in VM/SP 6, and prior was the 'WITH' parameter. I'm guessing, for lack of documentation and knowledge, this was added to resolve the challenge Dave is talking about.

type davemtst exec a
?
/* test parse */
? trest = '() trial 1'
? say 'test of () trial 1'
? s = dotell(trest)
? trest = '(1) trial 2'
? say 'test of (1) trial 2'
? s = dotell(trest)
? trest = '(1 3) trial3'
? say 'test of (1 3) trial 3'
? s = dotell(trest)
? exit
?
dotell:
? parse arg with '(' in1 in2 ')' outer
? say 'in1 = /'in1'/'
? say 'in2 = /'in2'/'
? say 'outer=/'outer'/'
? return 0
?
Ready; T=0.01/0.01 09:55:08
davemtst
test of () trial 1
in1 = /)/
in2 = /trial 1/
outer=//
test of (1) trial 2
in1 = /1)/
in2 = /trial 2/
outer=//
test of (1 3) trial 3
in1 = /1/
in2 = /3/
outer=/ trial3/
Ready; T=0.04/0.05 09:55:15

?... Mark S.
This ... and $5.00, might get you a cup of coffee. I'm old enough to remember 25 cents, but not a nickel, for a cup.