开云体育


GCC Run Times

 

开云体育

Folks,

I am feeling rather frustrated at present. So when I look at the IBM C/370 manual I see that fopen() was extended to allow the file attributes to specified in the mode attribute so for exampele:-

?

fopen("my.file","w,recfm=v,lrecl=300,blksize=304");

?

would open “MY FILE A” for writing with variable record lengths, maximum record length of 300, block size 304. I was intended to fix PDPCLIB to work the same way, but when I checked in

?

HELP GCCLIB

?

I see that this has been extended to allow this information to be specified as part of the file name. So the above would need to be….

?

fopen("my file a v 300”,”w”);

?

I think I should fix BOTH libraries to work BOTH ways.

Does any one have any thoughts on this.

?

Dave

?

?

?


Re: novice help with cmsbatch job output

 

开云体育

If you add an

?

“CP SPOOL CONS CMSUSER * START”

?

At the start and a

?

“SP CPOOL CONS STOP CLOSE”

?

At the end you can see what is wrong. This shows me the LINK has a spelling mistake, and I believe that SPOOL commands are missing a device type. I tweaked it :-

?

/JOB CMSUSER CMSUSER JOB10

CP SPOOL CONS CMSUSER START

CP LINK CMSUSER 191 291 RR READ

ACCESS 291 B/A

CP MSG CMSUSER TESTING CMSBATCH

CP SPOOL PRT TO CMSUSER NOCONT

PRINT HELLO FORTRAN

CP SPOOL PRT CLOSE

CP SPOOL PRT OFF

RELEASE 291

CP DETACH 291

CP MSG CMSUSER END JOB

CP SPOOL CONS STOP CLOSE

/*

?

And I get :-

?

pun test cards

PUN FILE 0701? TO? CMSBATCH COPY 01 NOHOLD

Ready; T=0.01/0.01 18:15:16

18:15:16? MSG FROM CMSBATCH:? JOB 'JOB10' STARTED.

18:15:16? MSG FROM CMSBATCH:? TESTING CMSBATCH

PRT FILE 0703 FROM CMSBATCH COPY 01 NOHOLD

18:15:16? MSG FROM CMSBATCH:? END JOB

CON FILE 0702 FROM CMSBATCH COPY 01 NOHOLD

18:15:16? MSG FROM CMSBATCH:? JOB 'JOB10' ENDED.

?

This sends the PRINT and console file to CMSUSER.

If you want output on the real printer change line 6 to

?

“SPOOL ?PRT SYSTEM CLASS A”

?

And you will have to then start the printer from say OPERATOR

?

CP START? F CLASS A

?

Dave

?

?

?

From: [email protected] <[email protected]> On Behalf Of Ron Young
Sent: 27 May 2022 17:37
To: [email protected]
Subject: [h390-vm] novice help with cmsbatch job output

?

Hi All:
I'm trying to figure out how to "real" card decks with vm370ce.... I can get the job deck to run (and the CP MSG lines appear on cmsuser's 3270 session, but I can't figure out how to get the output to spool to the "real" printer. I am using page #236 (page 296 in the pdf) of /bitsavers/pdf/ibm/370/VM_370/Release_6/GC20-1819-2_IBM_Virtual_Machine_Facility_370_CMS_Users_Guide_Rel_6_PLC_17_Apr81.pdf.
I kick off the job by "devinit 00c test.txt trunc eof" in the operator console.

Any help would be appreciated.
-ron

here is the current job deck:

ID CMSBATCH
/JOB CMSUSER CMSUSER JOB10
CP LINK CMUSER 191 291 RR SECRET
ACCESS 291 B/A
CP MSG CMSUSER TESTING CMSBATCH
CP SPOOL A TO CMSUSER NOCONT
PRINT HELLO FORTRAN
CP CLOSE A
CP SPOOL A OFF
RELEASE 291
CP DETACH 291
CP MSG CMSUSER END JOB
/*

messages to cmsuser
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' STARTED.
16:34:46? MSG FROM CMSBATCH:? TESTING CMSBATCH
16:34:46? MSG FROM CMSBATCH:? END JOB
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' ENDED.


Re: novice help with cmsbatch job output

 

On Fri, May 27, 2022 at 11:00 AM, Ron Young wrote:
is that the right way to it?
Personally, I prefer to submit the batch job from CMSUSER and spool both PRT and CONSOLE back to CMSUSER. This way I can examine the output with the SFBROWSE command, and use the purge and/or print subcommands of SFBROWSE ?depending on what I want to do.

Cheers,

Rene FERLAND, Montreal


Re: novice help with cmsbatch job output

 

Chris:

Many thanks! It is working (I also added spooling for the console -- is that the right way to it?)

-ron

ID CMSBATCH
/JOB CMSUSER CMSUSER JOB10
CP LINK CMSUSER 191 291 RR SECRET
ACCESS 291 B/A
CP MSG CMSUSER TESTING CMSBATCH
CP SPOOL PRINT TO SYSTEM CLASS A
CP SPOOL CONSOLE TO SYSTEM CLASS A
LISTFILE * * *
PRINT HELLO FORTRAN
RELEASE 291
CP DETACH 291
CP MSG CMSUSER END JOB
CP CLOSE PRT
CP CLOSE CONSOLE
/*


Re: novice help with cmsbatch job output

 

Ron,

It was the case that:-

cp SPool PRT TO SYSTEM CLass A
PRINT HELLO FORTRAN
CP Close PRT

would print to your printer. You might need to CP START PRT

Chris
--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Fri, 27 May 2022 09:36:56 -0700
"Ron Young" <ron.young3+h390-vm@...> wrote:
Hi All:
I'm trying to figure out how to "real" card decks with vm370ce.... I can get the job deck to run (and the CP MSG lines appear on cmsuser's 3270 session, but I can't figure out how to get the output to spool to the "real" printer. I am using page #236 (page 296 in the pdf) of /bitsavers/pdf/ibm/370/VM_370/Release_6/GC20-1819-2_IBM_Virtual_Machine_Facility_370_CMS_Users_Guide_Rel_6_PLC_17_Apr81.pdf.
I kick off the job by "devinit 00c test.txt trunc eof" in the operator console.

Any help would be appreciated.
-ron

here is the current job deck:

ID CMSBATCH
/JOB CMSUSER CMSUSER JOB10
CP LINK CMUSER 191 291 RR SECRET
ACCESS 291 B/A
CP MSG CMSUSER TESTING CMSBATCH
CP SPOOL A TO CMSUSER NOCONT
PRINT HELLO FORTRAN
CP CLOSE A
CP SPOOL A OFF
RELEASE 291
CP DETACH 291
CP MSG CMSUSER END JOB
/*

messages to cmsuser
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' STARTED.
16:34:46? MSG FROM CMSBATCH:? TESTING CMSBATCH
16:34:46? MSG FROM CMSBATCH:? END JOB
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' ENDED.





novice help with cmsbatch job output

 

Hi All:
I'm trying to figure out how to "real" card decks with vm370ce.... I can get the job deck to run (and the CP MSG lines appear on cmsuser's 3270 session, but I can't figure out how to get the output to spool to the "real" printer. I am using page #236 (page 296 in the pdf) of /bitsavers/pdf/ibm/370/VM_370/Release_6/GC20-1819-2_IBM_Virtual_Machine_Facility_370_CMS_Users_Guide_Rel_6_PLC_17_Apr81.pdf.
I kick off the job by "devinit 00c test.txt trunc eof" in the operator console.

Any help would be appreciated.
-ron

here is the current job deck:

ID CMSBATCH
/JOB CMSUSER CMSUSER JOB10
CP LINK CMUSER 191 291 RR SECRET
ACCESS 291 B/A
CP MSG CMSUSER TESTING CMSBATCH
CP SPOOL A TO CMSUSER NOCONT
PRINT HELLO FORTRAN
CP CLOSE A
CP SPOOL A OFF
RELEASE 291
CP DETACH 291
CP MSG CMSUSER END JOB
/*

messages to cmsuser
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' STARTED.
16:34:46? MSG FROM CMSBATCH:? TESTING CMSBATCH
16:34:46? MSG FROM CMSBATCH:? END JOB
16:34:46? MSG FROM CMSBATCH:? JOB 'JOB10' ENDED.


Re: Looking for how to get NJE (or RSCS) with tcp on VM/370 CE

 

Thanks Rene...
will do.


Re: Looking for how to get NJE (or RSCS) with tcp on VM/370 CE

 

On Sat, May 21, 2022 at 01:12 PM, Ron Young wrote:
Can anyone provide instructions on how to do this? Ideally something like to the NJE38_Installation_and_Usage_Guide.pdf for MVS would be great.

Hello Ron,

You can ask Peter Coghlan directly for his RSCS update for TCPNJE.
Write to the email address given at the bottom of this page:?

Cheers,

Rene FERLAND, Montreal


Looking for how to get NJE (or RSCS) with tcp on VM/370 CE

 

I am a VM & IBM novice... I would like to get some sort of network job submisson going between my hyperion VM/370 community edition 1.3 system and (for example) my dtCyber NOS 2.8.7 (control data) system. dtCyber supports NJE over tcp. In researching things I have found that MVS supports this with using NJE38v220 and I have seen many references/writeups about modifying RSCS to use tcp. But all of the specifics seem to point to a set of mods that have been removed because they weren't meant to be publicly released. (Most of them end up at )

Can anyone provide instructions on how to do this? Ideally something like to the NJE38_Installation_and_Usage_Guide.pdf for MVS would be great.
thanks
-ron


Re: How To Capture CP SPOOL Command Output #VMCE

 

On Wed, May 18, 2022 at 07:11 AM, Bob Bolch wrote:
In the test case, STRING is followed by text which is followed by a ')'. The parenthesis is treated as part of the CP CLOSE command. The command fails and the console is not closed.
Thank you, Bob. I removed the ' )' at the end of each EXECIO, and it is now working better. I didn't guess that STRING would swallow the right parenthesis.

Ready; T=0.20/0.24 17:50:14
pars
QUERY VIRTUAL 00C
CPinfo.0? =? 1
CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
SPOOL CONSOLE START TO * TERM
CPinfo.0? =? 0
Enter pattern:
?
File: GCC EXEC Y2.
16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
SPOOL CONSOLE STOP CLOSE TERM
CPinfo.0? =? 1
CPinfo.1? =? CON FILE 1763? TO? XMAS???? COPY 01 NOHOLD
Spool ID:? 1763
CHANGE RDR? 1763? CLASS A
CPinfo.0? =? 1
CPinfo.1? =? 0001 FILE? CHANGED
ORDER RDR? 1763
CPinfo.0? =? 1
CPinfo.1? =? 0001 FILE? ORDERED
17? lines read.
Ready; T=0.07/0.09 17:50:16

?Since I read 17 lines, I extended the code to print them out ...

//

'EXECIO * CARD ( STEM RDRLINE.'

SAY RDRLINE.0 ' lines read.'

Counter = 0
DO UNTIL Counter > RDRLINE.0
?? SAY 'RDRLINE.'Counter ' = ' RDRLINE.Counter
?? Counter = Counter + 1
END

//
/* Exit cleanly.????????????????????????????????????????????????????? */
//
RETURN rc

Which generates the following output. I'm not sure if the problem is with bREXX, or something else. Maybe I need to start learning TRACE, and similar commands.

pars
QUERY VIRTUAL 00C
CPinfo.0? =? 1
CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
SPOOL CONSOLE START TO * TERM
CPinfo.0? =? 0
Enter pattern:
?
File: GCC EXEC Y2.
16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
SPOOL CONSOLE STOP CLOSE TERM
CPinfo.0? =? 1
CPinfo.1? =? CON FILE 1767? TO? XMAS???? COPY 01 NOHOLD
Spool ID:? 1767
CHANGE RDR? 1767? CLASS A
CPinfo.0? =? 1
CPinfo.1? =? 0001 FILE? CHANGED
ORDER RDR? 1767
CPinfo.0? =? 1
CPinfo.1? =? 0001 FILE? ORDERED
17? lines read.
RDRLINE.0? =? 17
RDRLINE.1? =? CPinfo.0? =? 0
?
RDRLINE.2? =? Enter pattern:
?
RDRLINE.3? =
?
RDRLINE.4? =? File: GCC EXEC Y2.
?
RDRLINE.5? =? 16:
?
RDRLINE.6? =? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18
&19 &20
?
RDRLINE.7? =? 22:
?
RDRLINE.8? =? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18
&19 &20
?
RDRLINE.9? =? 28:
?
RDRLINE.10? =? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18
?&19 &20
?
RDRLINE.11? =? 35:
?
RDRLINE.12? =???? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17
&18 &19 &20
?
RDRLINE.13? =? 61:
?
RDRLINE.14? =???? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17
&18 &19 &20
?
RDRLINE.15? =? 88:
?
RDRLINE.16? =???? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17
&18 &19 &20
?
RDRLINE.17? =? SPOOL CONSOLE STOP CLOSE TERM
?
DMSITP143T FLOATING-POINT DIVIDE EXCEPTION OCCURRED AT F3834E IN SYSTEM ROUTINE
EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'

?... Mark S.


Re: How To Capture CP SPOOL Command Output #VMCE

 

EXECIO has some non-standard characteristics in the way it processes the STRING operand:

?STRING text
supplies up to 255 characters of output data or a CP command explicitly on the EXECIO command line. Any characters following the STRING keyword are treated as string data, not additional EXECIO operands. Therefore, STRING, if specified, must be the final option on the command line.

In the test case, STRING is followed by text which is followed by a ')'. The parenthesis is treated as part of the CP CLOSE command. The command fails and the console is not closed.


Re: CMS Exec's

 

Not for VM/360 R6, but the public LCM+L VM/SP system has number of REXX Macros for XEDIT, including the * (comment) command:

  • G (Get File)
  • T (Title Case)? ?
  • W (Wrap Paragraph)? ?
  • * (Comment)
  • L (Lowercase)? ?
  • U (Uppercase)? ?
  • Y (Put To File)? ? ? ?
  • ) (Center)
Source all these are on the Y disk.

My test system actually has minor tweaks and additional functions; I really to update the files and help menu on the production LCM+L.

-ahd-

p.s. Backporting to VM/370 R6 would require support of both REXX and an editor that allowed programmed prefix commands.


Re: CMS Exec's

 

开云体育

Thanks. That’s a starting point if the VMSHARE archive doesn’t work out.

?

From: [email protected] <[email protected]> On Behalf Of kris.buelens@...
Sent: Tuesday, May 17, 2022 10:13 AM
To: [email protected]
Subject: Re: [h390-vm] CMS Exec's

?

I've created an XEDIT Prefix macro to create a REXX commentbox


I particularly like its support for REXX labels.? If you enter CMTB on a line like

DynGapFileFilter: /* User wants subset of GAPFILE volumes */

It creates this:

/*-----------------------------------------------------------------*/

DynGapFileFilter: /* User wants subset of GAPFILE volumes? ? ? ? ? */

/*-----------------------------------------------------------------*/

?


It is part of my GD-XEDIT goodies, can be found here:
It is included in PRFMINE XEDIT; synonyms to create a CMTB prefix command (that will call PRFMINE) can be defined by executing SETSYN (also part of GD-XEDIT)
Or? via SET PREFIX SYN CMTB PRFMINE


--
Kris Buelens


Re: CMS Exec's

 

开云体育

I will check that and thanks.

?

From: [email protected] <[email protected]> On Behalf Of Dave Wade
Sent: Tuesday, May 17, 2022 8:38 AM
To: [email protected]
Subject: Re: [h390-vm] CMS Exec's

?

Mark,

Google is very bad at finding old CMS stuff. The VMSHARE archives are not indexed, nor are many of the workshop tape content files.

The nearest I could find to these are some for HELP files on the waterloo tape.

?

M0010V00EDIT MACROS-- Two EDIT macros, $BOX and $BRACKET, aid in documenting

CP/CMS commands using SCRIPT.? $BOX creates a box for command syntax diagrams.

$BRACKET places groups of operands into a box, surrounded by square brackets.

Documentation can be formatted using SCRIPT, or typed without formatting.

This package is release independent.? Formerly M0065V00 on Release 5.

--Herb Weiner, Tektronix, Beaverton, Oregon, November 26, 1979.

?

I wonder of the execs Mike remembers were local modifications derived from these..

Dave

?

?

?

From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 17 May 2022 14:07
To: [email protected]
Subject: Re: [h390-vm] CMS Exec's

?

On Mon, May 16, 2022 at 09:49 AM, Mike Ward wrote:

When I was using CMS back in 1973, and editing assembler source programs there were some exec on the Y disk. Like $boxa and also some for cobol. Does $boxa used to put a box for comments in the assembler source. Does anyone know if these execs still exist? Where can I get a copy of they still do?

Mike,

I believe that would have been a local EXEC at whatever company/university/site you were at. Google didn't turn up anything.

It wouldn't be difficult to replicate, if you could describe, as completely as you can, what it did.

?... Mark S.


Re: How To Capture CP SPOOL Command Output #VMCE

 

Hi Mark,
The EXECIO command I wrote for VM370CE is not IBM code, even though it was
written to the exact same specifications documented in the IBM manuals for VM/SP
and later systems. It is a CMS command, and the source is DMSXIO?ASSEMBLE on
the VMSETUP?CMS search order. There are a few fix updates.

If you want to take a crack at resolving this symptom, please do so. Opening an issue will
make sure that any fixes will make it into the next VM370CE release.? I can look at it
next week, after I finish wrapping up my current issue.?
Bob



On Tue, May 17, 2022 at 10:43 AM Mark A. Stevens via <marXtevens=[email protected]> wrote:
I think I found a bug in EXECIO when using the STEM option. When I use the same variable to catch the CP output, it works the first time, but not after that. I have tried initializing the stem variable each time I use it, and not initializing it. Neither helps. Remove CPinfo. = '' from the EXEC, found at the bottom, to see for yourself. The following is the output of performing this task manually. Hence I don't use the STEM option., but I do get CP output.

q rdr *
NO RDR FILES
Ready; T=0.01/0.01 08:10:08
cp query virtual 00c
RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
Ready; T=0.01/0.01 08:10:19
SPOOL CONSOLE START TO * TERM
Ready; T=0.01/0.01 08:10:31
scan GCC EXEC Y2
Enter pattern:
&ARGS
?
File: GCC EXEC Y2.
?16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
Ready; T=0.01/0.02 08:10:41
SPOOL CONSOLE STOP CLOSE TERM
CON FILE 1758? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 08:10:48
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:10:55

The following is the output from PARS EXEC, which is at the bottom of this missive. The stem variable, CPinfo. , only contains results the first time. Hence, I don't catch a spool ID for the closed console file.

Another odd thing, is that the console spool file seems vanish upon closing. I tried a manual STOP CLOSE, and still nothing.

If the spool ID were to show up, then I could process the file.

q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:12:14
pars
QUERY VIRTUAL 00C
CPinfo.0? =? 1
CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
SPOOL CONSOLE START TO * TERM
CPinfo.0? =
Enter pattern:
?
File: GCC EXEC Y2.
?16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
SPOOL CONSOLE STOP CLOSE TERM
CPinfo.0? =
Spool ID:
Error: SpoolID () not valid.
Ready(00008); T=0.04/0.06 08:12:1
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:12:24
SPOOL CONSOLE STOP CLOSE TERM
Ready; T=0.01/0.01 08:23:59
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:24:07


Below is the EXEC. It's longer than it would be if everything was working correctly. I have tried to be consistent in usage and catch all the information I could.

//
ADDRESS 'COMMAND'????????????????????? /* Strict command evaluation.? */
SIGNAL ON SYNTAX?????????????????????? /* Handle syntax errors.?????? */
SIGNAL ON NOVALUE????????????????????? /* Handle bad/no value errors. */


fn = 'GCC'
ft = 'EXEC'
fm = 'Y'

//
/* Scan specified file for string and place results in RDR spool file */
//

CPinfo. = ''
CP_Command = 'QUERY VIRTUAL 00C'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

PUSH '&ARGS'

'SCAN' fn ft fm

//

CPinfo. = ''
CP_Command = 'SPOOL CONSOLE STOP CLOSE TERM'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

PARSE VAR CPinfo.1 WITH . . SpoolID .
SAY 'Spool ID: ' SpoolID

IF SpoolID = '' THEN
?? DO
????? SAY 'Error: SpoolID ('SpoolID') not valid.'
????? RETURN 8
?? END

//

CPinfo. = ''
CP_Command = 'CHANGE RDR ' SpoolID ' CLASS A'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

CPinfo. = ''
CP_Command = 'ORDER RDR ' SpoolID
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

'EXECIO * CARD ( STEM RDRLINE. )'

SAY RDRLINE.0 ' lines read.'

//
/* Exit cleanly.????????????????????????????????????????????????????? */
//
RETURN rc

Finally, does anyone know if the EXECIO source code is kept on CE V1R1M1, and where? If not, I can always go yank it off the 'net.

?... Mark S.


Re: CMS Exec's

 

I've created an XEDIT Prefix macro to create a REXX commentbox


I particularly like its support for REXX labels.? If you enter CMTB on a line like
DynGapFileFilter: /* User wants subset of GAPFILE volumes */
It creates this:
/*-----------------------------------------------------------------*/
DynGapFileFilter: /* User wants subset of GAPFILE volumes? ? ? ? ? */
/*-----------------------------------------------------------------*/
?

It is part of my GD-XEDIT goodies, can be found here:
It is included in PRFMINE XEDIT; synonyms to create a CMTB prefix command (that will call PRFMINE) can be defined by executing SETSYN (also part of GD-XEDIT)
Or? via SET PREFIX SYN CMTB PRFMINE

--
Kris Buelens


Re: How To Capture CP SPOOL Command Output #VMCE

 

I think I found a bug in EXECIO when using the STEM option. When I use the same variable to catch the CP output, it works the first time, but not after that. I have tried initializing the stem variable each time I use it, and not initializing it. Neither helps. Remove CPinfo. = '' from the EXEC, found at the bottom, to see for yourself. The following is the output of performing this task manually. Hence I don't use the STEM option., but I do get CP output.

q rdr *
NO RDR FILES
Ready; T=0.01/0.01 08:10:08
cp query virtual 00c
RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
Ready; T=0.01/0.01 08:10:19
SPOOL CONSOLE START TO * TERM
Ready; T=0.01/0.01 08:10:31
scan GCC EXEC Y2
Enter pattern:
&ARGS
?
File: GCC EXEC Y2.
?16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
Ready; T=0.01/0.02 08:10:41
SPOOL CONSOLE STOP CLOSE TERM
CON FILE 1758? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 08:10:48
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:10:55

The following is the output from PARS EXEC, which is at the bottom of this missive. The stem variable, CPinfo. , only contains results the first time. Hence, I don't catch a spool ID for the closed console file.

Another odd thing, is that the console spool file seems vanish upon closing. I tried a manual STOP CLOSE, and still nothing.

If the spool ID were to show up, then I could process the file.

q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:12:14
pars
QUERY VIRTUAL 00C
CPinfo.0? =? 1
CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READY
SPOOL CONSOLE START TO * TERM
CPinfo.0? =
Enter pattern:
?
File: GCC EXEC Y2.
?16:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?22:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?28:
&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?35:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?61:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
?88:
?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
SPOOL CONSOLE STOP CLOSE TERM
CPinfo.0? =
Spool ID:
Error: SpoolID () not valid.
Ready(00008); T=0.04/0.06 08:12:1
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:12:24
SPOOL CONSOLE STOP CLOSE TERM
Ready; T=0.01/0.01 08:23:59
q rdr *
ORIGINID FILE CLASS RECDS? CPY HOLD
XMAS???? 1758 T CON 000020? 01 NONE
Ready; T=0.01/0.01 08:24:07


Below is the EXEC. It's longer than it would be if everything was working correctly. I have tried to be consistent in usage and catch all the information I could.

//
ADDRESS 'COMMAND'????????????????????? /* Strict command evaluation.? */
SIGNAL ON SYNTAX?????????????????????? /* Handle syntax errors.?????? */
SIGNAL ON NOVALUE????????????????????? /* Handle bad/no value errors. */


fn = 'GCC'
ft = 'EXEC'
fm = 'Y'

//
/* Scan specified file for string and place results in RDR spool file */
//

CPinfo. = ''
CP_Command = 'QUERY VIRTUAL 00C'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

PUSH '&ARGS'

'SCAN' fn ft fm

//

CPinfo. = ''
CP_Command = 'SPOOL CONSOLE STOP CLOSE TERM'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

PARSE VAR CPinfo.1 WITH . . SpoolID .
SAY 'Spool ID: ' SpoolID

IF SpoolID = '' THEN
?? DO
????? SAY 'Error: SpoolID ('SpoolID') not valid.'
????? RETURN 8
?? END

//

CPinfo. = ''
CP_Command = 'CHANGE RDR ' SpoolID ' CLASS A'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

CPinfo. = ''
CP_Command = 'ORDER RDR ' SpoolID
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Counter = 0
DO UNTIL Counter > CPinfo.0
?? SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
?? Counter = Counter + 1
END

//

'EXECIO * CARD ( STEM RDRLINE. )'

SAY RDRLINE.0 ' lines read.'

//
/* Exit cleanly.????????????????????????????????????????????????????? */
//
RETURN rc

Finally, does anyone know if the EXECIO source code is kept on CE V1R1M1, and where? If not, I can always go yank it off the 'net.

?... Mark S.


Re: CMS Exec's

 

开云体育

Mark,

Google is very bad at finding old CMS stuff. The VMSHARE archives are not indexed, nor are many of the workshop tape content files.

The nearest I could find to these are some for HELP files on the waterloo tape.

?

M0010V00EDIT MACROS-- Two EDIT macros, $BOX and $BRACKET, aid in documenting

CP/CMS commands using SCRIPT.? $BOX creates a box for command syntax diagrams.

$BRACKET places groups of operands into a box, surrounded by square brackets.

Documentation can be formatted using SCRIPT, or typed without formatting.

This package is release independent.? Formerly M0065V00 on Release 5.

--Herb Weiner, Tektronix, Beaverton, Oregon, November 26, 1979.

?

I wonder of the execs Mike remembers were local modifications derived from these..

Dave

?

?

?

From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: 17 May 2022 14:07
To: [email protected]
Subject: Re: [h390-vm] CMS Exec's

?

On Mon, May 16, 2022 at 09:49 AM, Mike Ward wrote:

When I was using CMS back in 1973, and editing assembler source programs there were some exec on the Y disk. Like $boxa and also some for cobol. Does $boxa used to put a box for comments in the assembler source. Does anyone know if these execs still exist? Where can I get a copy of they still do?

Mike,

I believe that would have been a local EXEC at whatever company/university/site you were at. Google didn't turn up anything.

It wouldn't be difficult to replicate, if you could describe, as completely as you can, what it did.

?... Mark S.


Re: CMS Exec's

 

On Mon, May 16, 2022 at 09:49 AM, Mike Ward wrote:
When I was using CMS back in 1973, and editing assembler source programs there were some exec on the Y disk. Like $boxa and also some for cobol. Does $boxa used to put a box for comments in the assembler source. Does anyone know if these execs still exist? Where can I get a copy of they still do?
Mike,

I believe that would have been a local EXEC at whatever company/university/site you were at. Google didn't turn up anything.

It wouldn't be difficult to replicate, if you could describe, as completely as you can, what it did.

?... Mark S.


CMS Exec's

 

开云体育

When I was using CMS back in 1973, and editing assembler source programs there were some exec on the Y disk. Like $boxa and also some for cobol. Does $boxa used to put a box for comments in the assembler source. Does anyone know if these execs still exist? Where can I get a copy of they still do?