Mark, ? Sorry for the top post. Looking at VMSHARE it appears that Waterloo had modifications to their CMS to support the concatenation of OS datasets However we don’t have these in the CE eition. Do folks use it? Would it be useful ? Dave ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 18 December 2021 16:36
To: [email protected]
Subject: Re: [h390-vm] WATFIV? On Fri, Dec 17, 2021 at 07:07 PM, Drew Derbyshire wrote:
I suspect it shipped with a smarter wrapper EXEC than the EXEC (1) exec one on the Sixpack.? (I?checked, the LCM+L uses the same ancient EXEC.)
It looks like to do multiple files, an exec would to iterate through them (if NOCONCAT) or concatenate them before the module ran (if CONCAT? specified.) I'll happily take a smarter REXX version for the LCM+L machine Y disk.
Attempting multiple inputs per the documentation:
...
????????? Command? Language? User's? Guide).?? The? following? command
?????????? prototype may be used to invoke the WATFIV compiler.
?
????? WATFIV fn-i ... (DIsk? Concat?? NODebug NOXtype Term?? NOStats)
?????????????????????? Print NOConcat Debug?? XType?? NOTerm Stats
?????????????????????? TYpe?????????????????? NOWarn
????????????????????????????????????????????? Ext
?????????? The fn-i? (i=1,...) are? the input? filenames. They? must be
?????????? names of disk files (of type? FORTRAN or WATFIV) or *, which
-
????? USING WATFIV UNDER CMS??????????????????????????????????? Page 13
-
1
???????????????????????????????? USING WATFIV UNDER INTERACTIVE SYSTEMS
-
?????????? specifies? that input? is? to be? taken? from the? terminal.
?????????? WATFIV? will read? all? input files? as? one continuous? job
?????????? stream.?
Doesn't get very far, apparently because the EXEC doesn't support this, per Drew's comments. It also seems as if CONCAT and NOCONCAT are not supported either.
q filedef
DMSQRY324I No user defined FILEDEF's in effect.
Ready; T=0.01/0.01 16:21:52
l * fortran a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:16
GOODBYE? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:14
Ready; T=0.01/0.01 16:22:00
watfiv hello goodbye ( concat
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:22:24
watfiv hello goodbye ( noconcat
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:22:58
watfiv hello
Ready(00003); T=0.02/0.03 16:23:09
watfiv goodbye
Ready(00003); T=0.02/0.03 16:23:20
l * fortran a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:16
GOODBYE? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:14
Ready; T=0.01/0.01 16:23:39
l * listing a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? LISTING? A1? F?? 133??? 206???? 35? 12/18/21?? 16:23
GOODBYE? LISTING? A1? F?? 133??? 204???? 34? 12/18/21?? 16:23
Ready; T=0.01/0.01 16:23:45
watfiv hello goodbye
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:35:10
I reading through the User Guide WATFIVUG LISTING U and Jay Mosley's PDF, I found the following references, all of which seem to treat this concatenation in a MVS/MVT batch environment. Reminds me of NIU having a dedicated card reader for WATFIV jobs for a while, where your JCL around your program was the $JOB ... code ... $ENTRY ... data,? stream. I believe they used NOCONCAT, so we would each get our own output listing.
As far as doing this in CMS, the only benefit would be if you were using multiple FILEDEFs for FT05F001. This might be possible in CMS, using the CHANGE option but I'm willing to be corrected.
...
????? Listing output options:
+???? _______ ______ ________
0
????? DIsk???????????????????? The? program? listing? and? all? unit? 6
?????????????????????????????? output is? written to? a disk? file with
.
éth.?????????????????????????????? filename? fn-1 and? filetype LISTING? if
?????????????????????????????? CONCAT? is? in effect.?? A? filename? of
?????????????????????????????? WATFIV will? be generated if fn-1? is *.
?????????????????????????????? The?? NOCONCAT? option?? will? cause?? a
?????????????????????????????? separate output disk? file with filename
?????????????????????????????? fn-i for each input file.
?
????? Print (PRT)????????????? The? listing? and? unit?? 6? output? are
?????????????????????????????? spooled to the virtual printer.
?
????? TYpe (*)???????????????? The listing and unit? 6 output are typed
?????????????????????????????? at the terminal.
?
?????????? Note: If? fn-1 is *, then? TYPE will become the? default and
?????????? all? options controlling? execution-time output,? diagnostic
?????????? messages and job statistics will have no effect. The default
?????????? CONCAT option? will cause? output to be? placed in? a WATFIV
?????????? LISTING file.? In the case of? using the NOCONCAT option, if
?????????? two program batches? are input to WATFIV? from the terminal,
?????????? the listing file? for the second will? overwrite and destroy
?????????? the listing file for the first.
...
???? Compiler-mode options:
+???? _____________ ________
?
????? Concat?????????????????? This option? causes WATFIV to? treat all
?????????????????????????????? input? files?? as? one?? continuous? job
?????????????????????????????? stream. All output is? written to a disk
?????????????????????????????? file with? a filename of the? first file
?????????????????????????????? specified?? (fn-1)?? and?? filetype?? of
?????????????????????????????? LISTING.? If * is specified for fn-1 the
?????????????????????????????? filename will? default to? WATFIV and? a
?????????????????????????????? $JOB? card? will be? generated.? Hitting
?????????????????????????????? carriage? return signifies? end of? file
?????????????????????????????? for terminal input.
?
????? NOConcat???????????????? This option causes each input file to be
?????????????????????????????? treated as? a separate batch.? Input for
?????????????????????????????? each? filename is? compiled? separately.
?????????????????????????????? Each fn-i? should contain? at least? one
?????????????????????????????? complete WATFIV job.
...
????? 11.3 CONCATENTATING COMPILER INPUT
?
?????????? WATFIV's? input stream? may consist? of? a concatenation? of
?????????? distinct? data? sets.?? The? following? examples? illustrate
?????????? potential uses of this feature:
?
??? |????? 1)??? Source? program and? execution card-image? data to? be
??? |??????????? read by 'card? reader' unit 5 can be? in disjoint data
-
-
-
-
????? CONCATENTATING COMPILER INPUT???????????????????????????? Page 87
-
1
??????????????????????????????????????????? INPUT OUTPUT CONSIDERATIONS
-
???????????????? sets.
???????????????????????????? //osjob?? JOB?? accounting
???????????????????????????? //?? EXEC?? WATFIV
???????????????????????????? //GO.FT05F001? DD? DDNAME=PROG
???????????????????????????? //???????????? DD? DDNAME=DATA
???????????????????????????? //GO.PROG????? DD? *
???????????????????????????? $JOB?? id,parms
?
?
???????????????????????????????????? source program
?
?
???????????????????????????? $ENTRY
???????????????????????????? //GO.DATA? DD? DSN=WATFIV.SUBSUB(DATA),DISP=SHR
?
?
?????????? 2)??? Segments of the source program to be compiled can come
???????????????? from different sources.
?
?
???????????????????????????? //osjob?? JOB?? accounting
???????????????????????????? //?? EXEC?? WATFIV
???????????????????????????? //GO.FT05F001? DD? DDNAME=JOB,DCB=BLKSIZE=800
???????????????????????????? //???????????? DD? DSN=WATFIV.MAINPROG,DISP=SHR
???????????????????????????? //???????????? DD? DSN=WATFIV.SUBSUB(SUB1),DISP=SHR
???????????????????????????? //???????????? DD? DSN=WATFIV.SUB2,DISP=SHR
???????????????????????????? //???????????? DD? DDNAME=ENTRY
???????????????????????????? //GO.JOB?????? DD? *
???????????????????????????? $JOB?????????? id,parms
???????????????????????????? //GO.ENTRY???? DD? *
???????????????????????????? $ENTRY
?
?
???????????????????????????????????????? any data
?
?
???????????????????????????? /*
?
???????????????? (This? example? assumes the? operating? system? allows
???????????????? multiple DD * data sets in the input stream.)
...
?... Mark S.
|
Re: How to enter the cent sign using x3270 on a raspberry pi
I alias x3270 on my Linux system to 'x3270 -efont 3270gt32 -keymap m122' to get the large font on my 4K monitor, and my ~/.x3270pro file?contains: x3270.keymap.m122: #override \ ?Ctrl<Key>F: FieldMark()\n\ ?Ctrl<Key>D: Dup() You could do the same, and put in a definition for the cent sign. The key is to have the -keymap command line argument point to a stanza in .x3270pro .
On Sat, Dec 18, 2021 at 10:26 AM Drew Derbyshire < swhobbit@...> wrote: On Fri, Dec 10, 2021 at 05:11 AM, Dave Mitchell wrote:
Try as I might I can't see how to do it. x3270 doesn't offer a paste command so I can't copy/paste from another pi window.?
My Trackball begs to differ with you.?
I routinely paste to and from x3270 under MacOS, and last night (after explaining to X Windows that a Logitech Marble Mouse does NOT have nine buttons, only four), tested it on a Raspberry Pi 4B.? Here's my keymap:?
?
(I also use Cmd-V on my Mac, but that wasn't playing well on Raspberry Pi.? But the Marble Mouse worked.)
|
On Fri, Dec 17, 2021 at 07:07 PM, Drew Derbyshire wrote:
I suspect it shipped with a smarter wrapper EXEC than the EXEC (1) exec one on the Sixpack.? (I?checked, the LCM+L uses the same ancient EXEC.)
It looks like to do multiple files, an exec would to iterate through them (if NOCONCAT) or concatenate them before the module ran (if CONCAT? specified.)
I'll happily take a smarter REXX version for the LCM+L machine Y disk.
Attempting multiple inputs per the documentation:
...
????????? Command? Language? User's? Guide).?? The? following? command
?????????? prototype may be used to invoke the WATFIV compiler.
?
????? WATFIV fn-i ... (DIsk? Concat?? NODebug NOXtype Term?? NOStats)
?????????????????????? Print NOConcat Debug?? XType?? NOTerm Stats
?????????????????????? TYpe?????????????????? NOWarn
????????????????????????????????????????????? Ext
?????????? The fn-i? (i=1,...) are? the input? filenames. They? must be
?????????? names of disk files (of type? FORTRAN or WATFIV) or *, which
-
????? USING WATFIV UNDER CMS??????????????????????????????????? Page 13
-
1
???????????????????????????????? USING WATFIV UNDER INTERACTIVE SYSTEMS
-
?????????? specifies? that input? is? to be? taken? from the? terminal.
?????????? WATFIV? will read? all? input files? as? one continuous? job
?????????? stream.?
Doesn't get very far, apparently because the EXEC doesn't support this, per Drew's comments. It also seems as if CONCAT and NOCONCAT are not supported either.
q filedef
DMSQRY324I No user defined FILEDEF's in effect.
Ready; T=0.01/0.01 16:21:52
l * fortran a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:16
GOODBYE? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:14
Ready; T=0.01/0.01 16:22:00
watfiv hello goodbye ( concat
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:22:24
watfiv hello goodbye ( noconcat
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:22:58
watfiv hello
Ready(00003); T=0.02/0.03 16:23:09
watfiv goodbye
Ready(00003); T=0.02/0.03 16:23:20
l * fortran a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:16
GOODBYE? FORTRAN? A1? F??? 80??? 156???? 16? 12/18/21?? 16:14
Ready; T=0.01/0.01 16:23:39
l * listing a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? LISTING? A1? F?? 133??? 206???? 35? 12/18/21?? 16:23
GOODBYE? LISTING? A1? F?? 133??? 204???? 34? 12/18/21?? 16:23
Ready; T=0.01/0.01 16:23:45
watfiv hello goodbye
BAD OPTION
?
WATFIV FN [ ( XDEBUG | NOXDEBUG , DEBUG | DEBUGS | NODEBUG , TEST | NOTEST
FILETYPE CAN BE WATFIV OR FORTRAN
THE OPTIONS ARE ORDERED. IF YOU WANT TO SPECIFY TEST, XDEBUG AND
DEBUG OPTIONS MUST BE INCLUDED
Ready(-0001); T=0.01/0.01 16:35:10
I reading through the User Guide WATFIVUG LISTING U and Jay Mosley's PDF, I found the following references, all of which seem to treat this concatenation in a MVS/MVT batch environment. Reminds me of NIU having a dedicated card reader for WATFIV jobs for a while, where your JCL around your program was the $JOB ... code ... $ENTRY ... data,? stream. I believe they used NOCONCAT, so we would each get our own output listing.
As far as doing this in CMS, the only benefit would be if you were using multiple FILEDEFs for FT05F001. This might be possible in CMS, using the CHANGE option but I'm willing to be corrected....????? Listing output options:+???? _______ ______ ________0????? DIsk???????????????????? The? program? listing? and? all? unit? 6?????????????????????????????? output is? written to? a disk? file with.éth.?????????????????????????????? filename? fn-1 and? filetype LISTING? if?????????????????????????????? CONCAT? is? in effect.?? A? filename? of?????????????????????????????? WATFIV will? be generated if fn-1? is *.?????????????????????????????? The?? NOCONCAT? option?? will? cause?? a?????????????????????????????? separate output disk? file with filename?????????????????????????????? fn-i for each input file.?????? Print (PRT)????????????? The? listing? and? unit?? 6? output? are?????????????????????????????? spooled to the virtual printer.?????? TYpe (*)???????????????? The listing and unit? 6 output are typed?????????????????????????????? at the terminal.??????????? Note: If? fn-1 is *, then? TYPE will become the? default and?????????? all? options controlling? execution-time output,? diagnostic?????????? messages and job statistics will have no effect. The default?????????? CONCAT option? will cause? output to be? placed in? a WATFIV?????????? LISTING file.? In the case of? using the NOCONCAT option, if?????????? two program batches? are input to WATFIV? from the terminal,?????????? the listing file? for the second will? overwrite and destroy?????????? the listing file for the first....
???? Compiler-mode options:+???? _____________ ________?????? Concat?????????????????? This option? causes WATFIV to? treat all?????????????????????????????? input? files?? as? one?? continuous? job?????????????????????????????? stream. All output is? written to a disk?????????????????????????????? file with? a filename of the? first file?????????????????????????????? specified?? (fn-1)?? and?? filetype?? of?????????????????????????????? LISTING.? If * is specified for fn-1 the?????????????????????????????? filename will? default to? WATFIV and? a?????????????????????????????? $JOB? card? will be? generated.? Hitting?????????????????????????????? carriage? return signifies? end of? file?????????????????????????????? for terminal input.?????? NOConcat???????????????? This option causes each input file to be?????????????????????????????? treated as? a separate batch.? Input for?????????????????????????????? each? filename is? compiled? separately.?????????????????????????????? Each fn-i? should contain? at least? one?????????????????????????????? complete WATFIV job.
...????? 11.3 CONCATENTATING COMPILER INPUT??????????? WATFIV's? input stream? may consist? of? a concatenation? of?????????? distinct? data? sets.?? The? following? examples? illustrate?????????? potential uses of this feature:???? |????? 1)??? Source? program and? execution card-image? data to? be??? |??????????? read by 'card? reader' unit 5 can be? in disjoint data----????? CONCATENTATING COMPILER INPUT???????????????????????????? Page 87-1??????????????????????????????????????????? INPUT OUTPUT CONSIDERATIONS-???????????????? sets.???????????????????????????? //osjob?? JOB?? accounting???????????????????????????? //?? EXEC?? WATFIV???????????????????????????? //GO.FT05F001? DD? DDNAME=PROG???????????????????????????? //???????????? DD? DDNAME=DATA???????????????????????????? //GO.PROG????? DD? *???????????????????????????? $JOB?? id,parms?????????????????????????????????????? source program?????????????????????????????? $ENTRY???????????????????????????? //GO.DATA? DD? DSN=WATFIV.SUBSUB(DATA),DISP=SHR???????????? 2)??? Segments of the source program to be compiled can come???????????????? from different sources.?????????????????????????????? //osjob?? JOB?? accounting???????????????????????????? //?? EXEC?? WATFIV???????????????????????????? //GO.FT05F001? DD? DDNAME=JOB,DCB=BLKSIZE=800???????????????????????????? //???????????? DD? DSN=WATFIV.MAINPROG,DISP=SHR???????????????????????????? //???????????? DD? DSN=WATFIV.SUBSUB(SUB1),DISP=SHR???????????????????????????? //???????????? DD? DSN=WATFIV.SUB2,DISP=SHR???????????????????????????? //???????????? DD? DDNAME=ENTRY???????????????????????????? //GO.JOB?????? DD? *???????????????????????????? $JOB?????????? id,parms???????????????????????????? //GO.ENTRY???? DD? *???????????????????????????? $ENTRY?????????????????????????????????????????? any data?????????????????????????????? /*????????????????? (This? example? assumes the? operating? system? allows???????????????? multiple DD * data sets in the input stream.)
...?... Mark S.
|
Re: How to enter the cent sign using x3270 on a raspberry pi
On Fri, Dec 10, 2021 at 05:11 AM, Dave Mitchell wrote:
Try as I might I can't see how to do it. x3270 doesn't offer a paste command so I can't copy/paste from another pi window.?
My Trackball begs to differ with you.?
I routinely paste to and from x3270 under MacOS, and last night (after explaining to X Windows that a Logitech Marble Mouse does NOT have nine buttons, only four), tested it on a Raspberry Pi 4B.? Here's my keymap:?
?
(I also use Cmd-V on my Mac, but that wasn't playing well on Raspberry Pi.? But the Marble Mouse worked.)
|
Re: How to enter the cent sign using x3270 on a raspberry pi
On Fri, Dec 10, 2021 at 08:30 AM, Dave Mitchell wrote:
2. I can't get x3270 to find my keymap file. I've tried giving the full path in the -keymap option of x3270 but it says not found even though a ls command with the same full path does find it. I can't locate the base keyap file that x3270 uses either. When I select the 'display current keymap'? menu option it says:
? ?Keymap 'base', from resource x3270.keymap.base'
The linux find command can't seem to find the resource either.??
I put my keymaps in ~/.x3270pro on both Linux (including Raspberry Pi) and MacOS.? Seee??which includes Peter's mapping for alt-4.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
I believe that what Mark wanted to do with the F level assembler is perfectly valid. The issue he is seeing is that the F level assembler CMS interface routine, DMSASM, does not support this. Assembler H does?support exactly what he wants to do.
Here is a console showing how Assembler H processing works:
t bobmac maclib ( member bob ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
MEMBER BOB.... ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
BOB ? ? ?CSECT? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?DC ? ?C'HELLO ? '? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? END
filedef? sysin disk bobmac maclib a ( member bob? perm recfm f lrecl 80 block 80? ?? asmahl bobmac
produces: BOB TEXT and BOB LISTING? ? ??
The checks made in DMSASM (the F level assembler startup routine for VM/370) just did not take this type of call into account.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
|
Re: IFOX00/ASSEMBLER Question
#VMCE
Mark, ? I don’t think any one has ever used the assembler in this way (well I might have as I rebuilt it to incorporate some modifications, but I can’t find the instructions) so its us that don’t understand what you are trying to do. You sometimes need to spoon feed us….. ? The manual also says that the filename is a required parameter (no braces) so its needs “something” in there…… … but whenever I do I get an error. ?I have fiddled for ages and can’t for the life of me figure out how its supposed to work. Just for interest I tried it on SP5 and it’s the same….. ? ? Dave ? ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 18 December 2021 01:56
To: [email protected]
Subject: Re: [h390-vm] IFOX00/ASSEMBLER Question #VMCE? On Thu, Dec 16, 2021 at 09:10 PM, Joe Monk wrote: You dont assemble macros independently... When they are used in an assembler program, the assembler will bring in and interpret?the code as part of the assembly.
Ouch. It hurts when people you honor as experts, in the field talk down to you.
I studied Computer Science at Northern Illinois University where ASSIST was taught. I ported ASSIST from MVS to VM/SP4, VM/SP6, and ESA/370, and made those files available to the VM Workshop in the late 80s and early 90s. I was able to use Assembler H then, I'm trying to use IFOX00/ASSEMBLER F now.
The code I am attempting assemble with the default Assembler for VM/370 CE, does not appear to accept/process the "FILEDEF ASSEMBLE", as I would expect, per the documented both online, and in the documentation,GC20-1818-3_IBM_Virtual_Machine_Facility_370_CMS_Command_and_Macro_Reference_Rel_6_PLC_17_Apr81.pdf, pages 23-28. Specifically page 27 Note 1.
The members in the XMSOURCE MACLIB are all Assembler PROGRAMS, not MACROS.
I may be rusty, but I'm not stupid. Okay, I got that out of my system.
... Mark S.
|
Mark, Its on the U disk as WATFIVUG LISTING. I believe that this is the same file:- ?
? .. I know Jay had issues with damage to the source so it might be slightly different. ? Dave ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 18 December 2021 01:31
To: [email protected]
Subject: Re: [h390-vm] WATFIV? On Fri, Dec 17, 2021 at 01:29 AM, Dave Wade wrote: My question is “why does our WATFIV CMS command NOT accept multiple inputs as described in the user guide. ? From the user guide (page 12) :-
I don't think I have that manual, can you point me/us to a PDF, please and thank you.
?... Mark S.
|
Drew, ? Thanks for responding….. ? Well yes, that’s what the module we have requires, which is why I thought we might be missing something as the documentation definitely says it should accept multiple files. I thought, “CONCAT” but CONCAT does not work for sequential files. ?For FORTRAN I think that you should also be define FT05F001, FT05F002, FT05F003 but that does not seem to work either. I see that WATERLOO had an append mod to FILEDEF and perhaps they used that? ?
?
? so I think you could easily fix this on the LCM+L machine, but re-fitting the mods back to R6 might be a challenge…. …. as far as I can see the only way to do this on VM/370R6 is to copy the files before running the compiler. ? Dave ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Drew Derbyshire
Sent: 18 December 2021 01:07
To: [email protected]
Subject: Re: [h390-vm] WATFIV? The actual module just wants FT05F001 defined.
I suspect it shipped with a smarter wrapper EXEC than the EXEC (1) exec one on the Sixpack.? (I?checked, the LCM+L uses the same ancient EXEC.) It looks like to do multiple files, an exec would to iterate through them (if NOCONCAT) or concatenate them before the module ran (if CONCAT? specified.) I'll happily take a smarter REXX version for the LCM+L machine Y disk. -ahd-
|
Re: IFOX00/ASSEMBLER Question
#VMCE
Now to the real heart of the problem... The modules in question should not be in a MACLIB. They should be independent modules...
According to:?, the MACROs contained in the first file should be in a MACLIB. The files contained in the second DSN on the tape should all have a filetype of ASSEMBLE, which is the filetype that the ASSEMBLER expects for SYSIN...?
Right? :)
Joe
Nobody was talking down to you, at least that was not my intent. If you took it that way, my bad.
When I see a filetype of MACLIB, I dont think of assembler source programs, I think of assembler macros. Thus, to me, a MACLIB is where you put macros for the assembler.
Joe
On Fri, Dec 17, 2021 at 7:56 PM Mark A. Stevens via <marXtevens= [email protected]> wrote: On Thu, Dec 16, 2021 at 09:10 PM, Joe Monk wrote:
You dont assemble macros independently... When they are used in an assembler program, the assembler will bring in and interpret?the code as part of the assembly.
Ouch. It hurts when people you honor as experts, in the field talk down to you.
I studied Computer Science at Northern Illinois University where ASSIST was taught. I ported ASSIST from MVS to VM/SP4, VM/SP6, and ESA/370, and made those files available to the VM Workshop in the late 80s and early 90s. I was able to use Assembler H then, I'm trying to use IFOX00/ASSEMBLER F now.
The code I am attempting assemble with the default Assembler for VM/370 CE, does not appear to accept/process the "FILEDEF ASSEMBLE", as I would expect, per the documented both online, and in the documentation,GC20-1818-3_IBM_Virtual_Machine_Facility_370_CMS_Command_and_Macro_Reference_Rel_6_PLC_17_Apr81.pdf, pages 23-28. Specifically page 27 Note 1.
The members in the XMSOURCE MACLIB are all Assembler PROGRAMS, not MACROS.
I may be rusty, but I'm not stupid. Okay, I got that out of my system.
... Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
Nobody was talking down to you, at least that was not my intent. If you took it that way, my bad.
When I see a filetype of MACLIB, I dont think of assembler source programs, I think of assembler macros. Thus, to me, a MACLIB is where you put macros for the assembler.
Joe
On Fri, Dec 17, 2021 at 7:56 PM Mark A. Stevens via <marXtevens= [email protected]> wrote: On Thu, Dec 16, 2021 at 09:10 PM, Joe Monk wrote:
You dont assemble macros independently... When they are used in an assembler program, the assembler will bring in and interpret?the code as part of the assembly.
Ouch. It hurts when people you honor as experts, in the field talk down to you.
I studied Computer Science at Northern Illinois University where ASSIST was taught. I ported ASSIST from MVS to VM/SP4, VM/SP6, and ESA/370, and made those files available to the VM Workshop in the late 80s and early 90s. I was able to use Assembler H then, I'm trying to use IFOX00/ASSEMBLER F now.
The code I am attempting assemble with the default Assembler for VM/370 CE, does not appear to accept/process the "FILEDEF ASSEMBLE", as I would expect, per the documented both online, and in the documentation,GC20-1818-3_IBM_Virtual_Machine_Facility_370_CMS_Command_and_Macro_Reference_Rel_6_PLC_17_Apr81.pdf, pages 23-28. Specifically page 27 Note 1.
The members in the XMSOURCE MACLIB are all Assembler PROGRAMS, not MACROS.
I may be rusty, but I'm not stupid. Okay, I got that out of my system.
... Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
On Fri, Dec 17, 2021 at 07:06 AM, Bernd Oppolzer wrote:
I only have a very old VM-370 distribution (from 2011 or so) and currently no plan
to install another one, because I am happy with what I have. Could you send me (only)
the MACLIB, if you want me to help you with it?
Bernd, I will send you the MACLIB under separate cover. I will reiterate, the problem seems to be with the assembler, not the assembler programs in the MACLIB. ?... Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
On Fri, Dec 17, 2021 at 01:31 AM, Dave Wade wrote:
ASSIST does not use the ASSEMBLER. It is its own assembler
Again, Ouch. Maybe I'm just being touchy today. Please read my response to Joe. ?... Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
On Thu, Dec 16, 2021 at 09:10 PM, Joe Monk wrote:
You dont assemble macros independently... When they are used in an assembler program, the assembler will bring in and interpret?the code as part of the assembly.
Ouch. It hurts when people you honor as experts, in the field talk down to you. I studied Computer Science at Northern Illinois University where ASSIST was taught. I ported ASSIST from MVS to VM/SP4, VM/SP6, and ESA/370, and made those files available to the VM Workshop in the late 80s and early 90s. I was able to use Assembler H then, I'm trying to use IFOX00/ASSEMBLER F now. The code I am attempting assemble with the default Assembler for VM/370 CE, does not appear to accept/process the "FILEDEF ASSEMBLE", as I would expect, per the documented both online, and in the documentation,GC20-1818-3_IBM_Virtual_Machine_Facility_370_CMS_Command_and_Macro_Reference_Rel_6_PLC_17_Apr81.pdf, pages 23-28. Specifically page 27 Note 1.
The members in the XMSOURCE MACLIB are all Assembler PROGRAMS, not MACROS.
I may be rusty, but I'm not stupid. Okay, I got that out of my system.
... Mark S.
|
On Fri, Dec 17, 2021 at 01:29 AM, Dave Wade wrote:
My question is “why does our WATFIV CMS command NOT accept multiple inputs as described in the user guide.
?
From the user guide (page 12) :-
I don't think I have that manual, can you point me/us to a PDF, please and thank you. ?... Mark S.
|
The actual module just wants FT05F001 defined.
I suspect it shipped with a smarter wrapper EXEC than the EXEC (1) exec one on the Sixpack.? (I?checked, the LCM+L uses the same ancient EXEC.)
It looks like to do multiple files, an exec would to iterate through them (if NOCONCAT) or concatenate them before the module ran (if CONCAT? specified.)
I'll happily take a smarter REXX version for the LCM+L machine Y disk.
-ahd-
|
Re: IFOX00/ASSEMBLER Question
#VMCE
Hi Bob and Mark,
normally, if a MACLIB contains only macros, there is no need to
compile them
and there is no need to build a TXTLIB from them; the macros can
simply be used
by other ASSEMBLER sources (as a sort of extended symbolic
instructions).
If I could look at the MACLIBs, I could probably help you in
deciding if there
needs anything to be done with the MACLIBs, or if they simply can
be used AS IS.
I only have a very old VM-370 distribution (from 2011 or so) and
currently no plan
to install another one, because I am happy with what I have. Could
you send me (only)
the MACLIB, if you want me to help you with it?
HTH, kind regards
Bernd
Am 17.12.2021 um 13:14 schrieb Bob
Bolch:
toggle quoted message
Show quoted text
Hi Mark,
I do not see any way that the VM/370 CMS ASSEMBLE command
can compile a member of a CMS MACLIB.
I would have expected it to be possible, but the code and
documentation say otherwise.
Bob
On Thu, Dec 16, 2021 at 9:50
PM Mark A. Stevens via <marXtevens= [email protected]>
wrote:
We don't
seem to have all the pieces to ASSIST, so I am trying to
fill in the gaps. I have two MACLIBS built and want to
begin assembly to build a TXTLIB of the routines, but it
seems I don't understand how to assemble a member of a
MACLIB.
L * MACLIB A
XMACLIB?
MACLIB?? A1
XMSOURCE
MACLIB?? A1
Ready;
T=0.01/0.01 01:35:40
MACLIB
MAP XMSOURCE ( TERM
MACRO???
INDEX? SIZE
XXXXDECI????
2??? 78
XXXXDECO???
81??? 49
XXXXGET???
131?? 145
XXXXOPEN??
277?? 190
XXXXPNCH??
468???? 3
XXXXPRNT??
472???? 3
XXXXPUT???
476???? 3
XXXXREAD??
480???? 3
XXXXSNAP??
484?? 303
Ready;
T=0.01/0.01 01:36:00
I set up the FILEDEF, specifying one member, and attempt to
assemble, but it complains the filename is missing. When I
give it the member name, it's not happy about that. I chose to
use the PERM option in case it wanted to throw away the
FILEDEF too soon.
FILEDEF
ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready;
T=0.01/0.01 01:37:21
ASSEMBLE
NO
FILENAME SPECIFIED.
Ready(00024);
T=0.01/0.01 01:37:29
Q FILEDEF
ASSEMBLE
DISK???? XMSOURCE MACLIB
Ready;
T=0.01/0.01 01:37:39
FILEDEF
ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready;
T=0.01/0.01 01:37:47
ASSEMBLE
XXXXDECI
FILEID
CONFLICT FOR DDNAME 'ASSEMBLE'.
Ready(00040);
T=0.01/0.01 01:37:56
So what
am I doing wrong?
?...
Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
Hi Mark,
I do not see any way that the VM/370 CMS ASSEMBLE command can compile a member of a CMS MACLIB. I would have expected it to be possible, but the code and documentation say otherwise. Bob
On Thu, Dec 16, 2021 at 9:50 PM Mark A. Stevens via <marXtevens= [email protected]> wrote: We don't seem to have all the pieces to ASSIST, so I am trying to fill in the gaps. I have two MACLIBS built and want to begin assembly to build a TXTLIB of the routines, but it seems I don't understand how to assemble a member of a MACLIB.
L * MACLIB A
XMACLIB? MACLIB?? A1
XMSOURCE MACLIB?? A1
Ready; T=0.01/0.01 01:35:40
MACLIB MAP XMSOURCE ( TERM
MACRO??? INDEX? SIZE
XXXXDECI???? 2??? 78
XXXXDECO??? 81??? 49
XXXXGET??? 131?? 145
XXXXOPEN?? 277?? 190
XXXXPNCH?? 468???? 3
XXXXPRNT?? 472???? 3
XXXXPUT??? 476???? 3
XXXXREAD?? 480???? 3
XXXXSNAP?? 484?? 303
Ready; T=0.01/0.01 01:36:00
I set up the FILEDEF, specifying one member, and attempt to assemble, but it complains the filename is missing. When I give it the member name, it's not happy about that. I chose to use the PERM option in case it wanted to throw away the FILEDEF too soon.
FILEDEF ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready; T=0.01/0.01 01:37:21
ASSEMBLE
NO FILENAME SPECIFIED.
Ready(00024); T=0.01/0.01 01:37:29
Q FILEDEF
ASSEMBLE DISK???? XMSOURCE MACLIB
Ready; T=0.01/0.01 01:37:39
FILEDEF ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready; T=0.01/0.01 01:37:47
ASSEMBLE XXXXDECI
FILEID CONFLICT FOR DDNAME 'ASSEMBLE'.
Ready(00040); T=0.01/0.01 01:37:56
So what am I doing wrong?
?... Mark S.
|
Re: IFOX00/ASSEMBLER Question
#VMCE
ASSIST does not use the ASSEMBLER. It is its own assembler ? Dave ? ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 17 December 2021 02:51
To: [email protected]
Subject: [h390-vm] IFOX00/ASSEMBLER Question #VMCE? We don't seem to have all the pieces to ASSIST, so I am trying to fill in the gaps. I have two MACLIBS built and want to begin assembly to build a TXTLIB of the routines, but it seems I don't understand how to assemble a member of a MACLIB.
L * MACLIB A
XMACLIB? MACLIB?? A1
XMSOURCE MACLIB?? A1
Ready; T=0.01/0.01 01:35:40
MACLIB MAP XMSOURCE ( TERM
MACRO??? INDEX? SIZE
XXXXDECI???? 2??? 78
XXXXDECO??? 81??? 49
XXXXGET??? 131?? 145
XXXXOPEN?? 277?? 190
XXXXPNCH?? 468???? 3
XXXXPRNT?? 472???? 3
XXXXPUT??? 476???? 3
XXXXREAD?? 480???? 3
XXXXSNAP?? 484?? 303
Ready; T=0.01/0.01 01:36:00
I set up the FILEDEF, specifying one member, and attempt to assemble, but it complains the filename is missing. When I give it the member name, it's not happy about that. I chose to use the PERM option in case it wanted to throw away the FILEDEF too soon.
FILEDEF ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready; T=0.01/0.01 01:37:21
ASSEMBLE
NO FILENAME SPECIFIED.
Ready(00024); T=0.01/0.01 01:37:29
Q FILEDEF
ASSEMBLE DISK???? XMSOURCE MACLIB
Ready; T=0.01/0.01 01:37:39
FILEDEF ASSEMBLE DISK XMSOURCE MACLIB A1 (PERM MEMBER XXXXDECI
Ready; T=0.01/0.01 01:37:47
ASSEMBLE XXXXDECI
FILEID CONFLICT FOR DDNAME 'ASSEMBLE'.
Ready(00040); T=0.01/0.01 01:37:56
So what am I doing wrong?
?... Mark S.
|
Mark, (and others) ? Sorry, I wasn’t clear. ? My question is “why does our WATFIV CMS command NOT accept multiple inputs as described in the user guide. ? From the user guide (page 12) :- ? ???? WATFIV fn-i ... (DIsk? Concat?? NODebug NOXtype Term?? NOStats) ????????????????????? Print NOConcat Debug?? XType?? NOTerm Stats ????????????????????? TYpe?????????????????? NOWarn ???????????????????????????????????????????? Ext ????????? The fn-i? (i=1,...) are? the input? filenames. They? must be ????????? names of disk files (of type? FORTRAN or WATFIV) or *, which ? So I am not proposing an extension but reporting a bug! ? Dave ? ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 17 December 2021 02:27
To: [email protected]
Subject: Re: [h390-vm] WATFIV? On Thu, Dec 16, 2021 at 06:12 PM, Dave Wade wrote: $JOB WATFIV has the job card MYW5PROG WATFIV (or FORTRAN) has the data $ENTRY has the $ENTRY CARD MYW5DATA WATFIV has the data $STOP WATFIV has the $STOP card ? Any thoughts?
The syntax for WATFIV job stream, one with multiple jobs/programs in one CMS file.
Ready; T=0.08/0.11 02:22:53
watfiv hello
Ready(00003); T=0.02/0.03 02:23:00
l hello * a ( date
Filename Filetype Fm? Format??? Recs Blocks???? Date??? Time
HELLO??? FORTRAN? A1? F??? 80??? 149???? 15? 12/17/21??? 2:16
HELLO??? LISTING? A1? F?? 133??? 206???? 35? 12/17/21??? 2:23
Ready; T=0.01/0.01 02:23:14
and I tested this and it works, is as follows.
$JOB
First Fortran program
$ENTRY
Data for first program
$JOB
Second Fortan program
$ENTRY
Data for second program
$JOB
.... and this continues until you run out of programs, and then you
$STOP
I Hope This Helps.
?... Mark S.
|
Mark A. Stevens