Re: novice help with cmsbatch job output

#4220

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

#4219

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

#4218

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

#4217

Thanks Rene...
will do.

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

#4216

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

#4215

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

#4214

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

#4213

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

#4212

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

#4211

开云体育

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

?

Show quoted text

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

#4210

开云体育

I will check that and thanks.

?

Show quoted text

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

#4209

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

Show quoted text

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

#4208

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

#4207

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

#4206

开云体育

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

?

Show quoted text

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

#4205

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

#4204

开云体育

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?

Re: How To Capture CP SPOOL Command Output #VMCE

#4203

On Sun, May 8, 2022 at 10:13 PM, Joe Monk wrote:

As I understand EXECIO, if youre supplying a CP command on the same line, you have to use the STRING option...
?

As an example: EXECIO * CP (SKIP STRING Q userid

Joe,

Thank you verymuch! I read the online help, but didn't understand. I guess I will also go look at other EXECIO documentation as well. I ended up with the following, which gets me the spoolid I wanted.

'EXECIO * CP ( STRING SPOOL CONSOLE STOP CLOSE TERM'
?????????????????????????????????????????????????? ?
PULL . . Spoolid .???????????????????????????????? ?
SAY Spoolid????????????????????????????????????????

?... Mark S.

Re: How To Capture CP SPOOL Command Output #VMCE

#4202

As I understand EXECIO, if youre supplying a CP command on the same line, you have to use the STRING option...

As an example: EXECIO * CP (SKIP STRING Q userid

Which would issue the CP command Q userid

Joe

Show quoted text

On Sun, May 8, 2022 at 8:07 PM Mark A. Stevens via <marXtevens=[email protected]> wrote:

I am trying to capture the line generated by CP when I close the spooled console, so I can get the spoolid. The following EXEC is pared down to the minimum, yet EXECIO doesn't seem to stack the output.

//
/* FileName:? REXPARS EXEC??????????????????????????????????????????? */
ADDRESS 'COMMAND'????????????????????? /* Strict command evaluation.? */

PARSE UPPER ARG fn ft fm .

/* 'CP SPOOL CONSOLE START TO * NOTERM'
*/
'CP SPOOL CONSOLE START TO *'

'SCAN' fn ft fm

/* 'CP SPOOL CONSOLE STOP CLOSE TERM'
*/
'EXECIO * CP SPOOL CONSOLE STOP CLOSE TERM'

PULL Spoolid
SAY Spoolid

RETURN

I get the following, abbreviated,output. It sits at VM READ until I type something and hit enter (the PULL) and echoes it.

rexpars SOURCE?? G27AJCL? H
Enter pattern:
add name=
?
File: SOURCE G27AJCL H1.
16:
./ ADD NAME=ASMGF1???????? ?
2213:
./ ADD NAME=ASMGASM??????? ?
...
41849:
./ ADD NAME=ASMGRTA????????????? ?
42071:
./ ADD NAME=ASMGUP?????????????? ?
Invalid operand: SPOOL.
x
X
Ready(00024); T=1.76/2.64 18:42:57

I have tried the commands just entered at the console, as well.

In the second run, below, I actually tried 'SPOOL CONSOLE STOP CLOSE TERM ( STACK', hoping against hope that CMS would intervene and stack the output, but it got swallowed up, without working.

CP SPOOL CONSOLE START TO * NOTERM
Enter pattern:
CON FILE 1731? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 18:47:20
CP SPOOL CONSOLE START TO * NOTERM
Enter pattern:
CON FILE 1732? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 18:48:05

Using SFBROWSE to see what happened ...

...
42071:???????????????????????????????
./ ADD NAME=ASMGUP??????????????????? ?
Ready; T=1.35/1.90 18:47:47?????????? ?
SPOOL CONSOLE STOP CLOSE TERM ( STACK ?
(??????? NOT IN CP DIRECTORY????????? ?
Ready(00053); T=0.01/0.01 18:47:57??? ?
SPOOL CONSOLE STOP CLOSE TERM???????? ?
* * *? END OF FILE? * * *?????????????

Any suggestions, including "Just go away," are appreciated :-)

?... Mark S.

How To Capture CP SPOOL Command Output #VMCE

#4201

I am trying to capture the line generated by CP when I close the spooled console, so I can get the spoolid. The following EXEC is pared down to the minimum, yet EXECIO doesn't seem to stack the output.

//
/* FileName:? REXPARS EXEC??????????????????????????????????????????? */
ADDRESS 'COMMAND'????????????????????? /* Strict command evaluation.? */

PARSE UPPER ARG fn ft fm .

/* 'CP SPOOL CONSOLE START TO * NOTERM'
*/
'CP SPOOL CONSOLE START TO *'

'SCAN' fn ft fm

/* 'CP SPOOL CONSOLE STOP CLOSE TERM'
*/
'EXECIO * CP SPOOL CONSOLE STOP CLOSE TERM'

PULL Spoolid
SAY Spoolid

RETURN

I get the following, abbreviated,output. It sits at VM READ until I type something and hit enter (the PULL) and echoes it.

rexpars SOURCE?? G27AJCL? H
Enter pattern:
add name=
?
File: SOURCE G27AJCL H1.
16:
./ ADD NAME=ASMGF1???????? ?
2213:
./ ADD NAME=ASMGASM??????? ?
...
41849:
./ ADD NAME=ASMGRTA????????????? ?
42071:
./ ADD NAME=ASMGUP?????????????? ?
Invalid operand: SPOOL.
x
X
Ready(00024); T=1.76/2.64 18:42:57

I have tried the commands just entered at the console, as well.

In the second run, below, I actually tried 'SPOOL CONSOLE STOP CLOSE TERM ( STACK', hoping against hope that CMS would intervene and stack the output, but it got swallowed up, without working.

CP SPOOL CONSOLE START TO * NOTERM
Enter pattern:
CON FILE 1731? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 18:47:20
CP SPOOL CONSOLE START TO * NOTERM
Enter pattern:
CON FILE 1732? TO? XMAS???? COPY 01 NOHOLD
Ready; T=0.01/0.01 18:48:05

Using SFBROWSE to see what happened ...

...
42071:???????????????????????????????
./ ADD NAME=ASMGUP??????????????????? ?
Ready; T=1.35/1.90 18:47:47?????????? ?
SPOOL CONSOLE STOP CLOSE TERM ( STACK ?
(??????? NOT IN CP DIRECTORY????????? ?
Ready(00053); T=0.01/0.01 18:47:57??? ?
SPOOL CONSOLE STOP CLOSE TERM???????? ?
* * *? END OF FILE? * * *?????????????

Any suggestions, including "Just go away," are appreciated :-)

?... Mark S.