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 ? ? ?
toggle quoted message
Show quoted text
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
|
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:14parsQUERY VIRTUAL 00CCPinfo.0? =? 1CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READYSPOOL CONSOLE START TO * TERMCPinfo.0? =? 0Enter 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 &2022:&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2028:&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2035:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2061:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2088:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20SPOOL CONSOLE STOP CLOSE TERMCPinfo.0? =? 1CPinfo.1? =? CON FILE 1763? TO? XMAS???? COPY 01 NOHOLDSpool ID:? 1763CHANGE RDR? 1763? CLASS ACPinfo.0? =? 1CPinfo.1? =? 0001 FILE? CHANGEDORDER RDR? 1763CPinfo.0? =? 1CPinfo.1? =? 0001 FILE? ORDERED17? 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 = 0DO UNTIL Counter > RDRLINE.0?? SAY 'RDRLINE.'Counter ' = ' RDRLINE.Counter?? Counter = Counter + 1END///* Exit cleanly.????????????????????????????????????????????????????? *///RETURN rcWhich 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. parsQUERY VIRTUAL 00CCPinfo.0? =? 1CPinfo.1? =? RDR? 00C CL A? NOCONT NOHOLD?? EOF????? READYSPOOL CONSOLE START TO * TERMCPinfo.0? =? 0Enter 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 &2022:&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2028:&ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2035:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2061:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &2088:?? &ARGS &2 &3 &4 &5 &6 &7 &8 &9 &10 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20SPOOL CONSOLE STOP CLOSE TERMCPinfo.0? =? 1CPinfo.1? =? CON FILE 1767? TO? XMAS???? COPY 01 NOHOLDSpool ID:? 1767CHANGE RDR? 1767? CLASS ACPinfo.0? =? 1CPinfo.1? =? 0001 FILE? CHANGEDORDER RDR? 1767CPinfo.0? =? 1CPinfo.1? =? 0001 FILE? ORDERED17? lines read.RDRLINE.0? =? 17RDRLINE.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.
|
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.
|
Thanks. That’s a starting point if the VMSHARE archive doesn’t work out. ?
toggle quoted message
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 */ /*-----------------------------------------------------------------*/ 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
|
I will check that and thanks. ?
toggle quoted message
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 ? ? ? ? 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.
|
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.
|
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 ? ? ?
toggle quoted message
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.
|
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.
|
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?
|
René Ferland
Mark A. Stevens