Re: Show disk usage in TK4-
Strange!!!??? What is Sys1.Proclib doing in the JCL?
//DISKMAP? JOB (001),'DISKMAP',
//? ? ? ? ? ? CLASS=A,MSGCLASS=A
//DISKMAP EXEC PGM=DISKMAP,REGION=1024K
//SYSPRINT DD? SYSOUT=*
//SYSUT1? DD? DSN=SYS1.PROCLIB,DISP=SHR
//DD1? ? ? DD? DISP=OLD,UNIT=3375,VOL=SER=PUB001
//
On Saturday, December 5, 2020, 11:01:39 AM CST, cjar1950 via groups.io <cjar1950@...> wrote:
Patrik, You might find DISKMAP of use. //DISKMAP? JOB (001),'DISKMAP', //? ? ? ? ? ? CLASS=A,MSGCLASS=A //DISKMAP EXEC PGM=DISKMAP,REGION=1024K //SYSPRINT DD? SYSOUT=* //SYSUT1? DD? DSN=SYS1.PROCLIB,DISP=SHR //DD1? ? ? DD? DISP=OLD,UNIT=3375,VOL=SER=PUB001 // Chris -- < cjar1950@...> ----------------------------------------------------------------------------------------------------------------------------------
On Sat, 5 Dec 2020 16:45:45 +0100 "Patrik Schindler" < poc@...> wrote: > Hello, > > today I was wondering, how much unallocated space I have available on the various volumes of the current TK4-. Interestingly, after 15 Minutes of online research, I have not found something similarly easy to the unix ?df¡° command output. Maybe I was searching for the wrong keywords? > > What I found was to use the z/OS unix system services ?df¡° command, which also lists conventional volume statistics. No USS in TK4-. Another approach is a Rexx procedure. Without Rexx being installed, this is also a not easy going. The online help text for TSO does not list any helpful commands. (Commands are listed, that simply do not exist, see the ?copy¡° discussion a few days ago.) > > I have a dim memory of having seen output for disk usages on the TSO prompt on an older version of TK4-, but I can¡¯t recall details. > > Is there an easy method to obtain disk usage statistics in stock TK4-? Easy as in ?run this existing JCL and view printer output¡° or ?use this command in a TSO session¡°, that is. > > Thanks a lot! > > :wq! PoC > > > > >
|
Re: Show disk usage in TK4-
Patrik, You might find DISKMAP of use. //DISKMAP JOB (001),'DISKMAP', // CLASS=A,MSGCLASS=A //DISKMAP EXEC PGM=DISKMAP,REGION=1024K //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=SYS1.PROCLIB,DISP=SHR //DD1 DD DISP=OLD,UNIT=3375,VOL=SER=PUB001 // Chris -- <cjar1950@...> ---------------------------------------------------------------------------------------------------------------------------------- On Sat, 5 Dec 2020 16:45:45 +0100 "Patrik Schindler" <poc@...> wrote: Hello,
today I was wondering, how much unallocated space I have available on the various volumes of the current TK4-. Interestingly, after 15 Minutes of online research, I have not found something similarly easy to the unix ?df¡° command output. Maybe I was searching for the wrong keywords?
What I found was to use the z/OS unix system services ?df¡° command, which also lists conventional volume statistics. No USS in TK4-. Another approach is a Rexx procedure. Without Rexx being installed, this is also a not easy going. The online help text for TSO does not list any helpful commands. (Commands are listed, that simply do not exist, see the ?copy¡° discussion a few days ago.)
I have a dim memory of having seen output for disk usages on the TSO prompt on an older version of TK4-, but I can¡¯t recall details.
Is there an easy method to obtain disk usage statistics in stock TK4-? Easy as in ?run this existing JCL and view printer output¡° or ?use this command in a TSO session¡°, that is.
Thanks a lot!
:wq! PoC
|
Hello,
today I was wondering, how much unallocated space I have available on the various volumes of the current TK4-. Interestingly, after 15 Minutes of online research, I have not found something similarly easy to the unix ?df¡° command output. Maybe I was searching for the wrong keywords?
What I found was to use the z/OS unix system services ?df¡° command, which also lists conventional volume statistics. No USS in TK4-. Another approach is a Rexx procedure. Without Rexx being installed, this is also a not easy going. The online help text for TSO does not list any helpful commands. (Commands are listed, that simply do not exist, see the ?copy¡° discussion a few days ago.)
I have a dim memory of having seen output for disk usages on the TSO prompt on an older version of TK4-, but I can¡¯t recall details.
Is there an easy method to obtain disk usage statistics in stock TK4-? Easy as in ?run this existing JCL and view printer output¡° or ?use this command in a TSO session¡°, that is.
Thanks a lot!
:wq! PoC
|
Re: IBM Assembler History
Hi Harold
yes, thanks.? I do follow the groups.io forum about SATK, although I have not played with it.
From the examples I gather that ASMA/SATK does not have a syntax that is different from the other IBM assemblers (apart from the "high level" features of HLASM), is that correct?
Essentially,
NAME OPERATION OPERANDS REMARKS
with NAME being 8 character long and spaces meaningful (Cfr., "High Level Assembler for z/OS & z/VM & z/VSE - Language Reference - Version 1 Release 6").
At least that is what I gathered.
All the best
Marco
--
Marco Antoniotti
Somewhere over the rainbow
|
Re: IBM Assembler History
Harold Grovesteen wrote: These days there is also SATK with its ASMA assembler,
written in Python and runs anywhere Python does.
Highly recommended! -- "Fish" (David B. Trout) Software Development Laboratories mail: fish@...
|
Re: IBM Assembler History
These days there is also SATK with its ASMA assembler, written in
Python and runs anywhere Python does.
Harold Grovesteen
toggle quoted message
Show quoted text
On Sun, 2020-11-29 at 19:30 +0000, Dave Wade wrote: Marco,
These days there is the also the Z390 assembler which is written in
JAVA so should run anywhere JAVA does.
Dave
G4UGM
|
Re: Real programmers don't write in FORTRAN. FORTRAN is for pipe stress freaks and crystallography weenies. SAYS MY Tk4- COOKIE JAR
WOW !!! you are a second generation programmer !!! Not so much people can say that. My Old Man, was in Radio, so i inherited electronics, but I'm the first one in programming bussiness. But he did machine automation with relay and pneumatic devices im the 60's , that is much close to programming.
At my work we have from Cobol, to support bank operations in Spain, to Java for mobile communication devices. As to myself? my weapon of choice is C or C++. But with Covid stay at home, I practized a lot with PL/I (again ).
?Regards,
Carlos?
|
Yes, you have a typo.?
You have //[space]*, not //*.??
It took the "*" and tried to match it against JOB EXEC DD, etc.
|
Re: Real programmers don't write in FORTRAN. FORTRAN is for pipe stress freaks and crystallography weenies. SAYS MY Tk4- COOKIE JAR
Learned FORTRAN on an 1130 at my Dad's workplace on the weekends around 1970. Still play with the simulator.
Learned 8080 assembler on my own on Dad's CP/M system. Went to UIUC in the late 70s, had classes in WATFIV, PL/C, Cobol on a 360, and FORTRAN and Pascal on the CDC Cyber 175. Learned 360 assembler while porting CSO's MVT from a 360/75 to running under VM on a 4341.
Made a living with TI 990/9900 Basic, FORTRAN, and assembler, TI 960 assembler, VAX/VMS assembler, VMS FORTRAN, VMS Pascal, PDP/11 RSX FORTRAN, Perl, Turbo Pascal and successors, Java in a pile of environments, Python in a few places (Linux/x86, AWS, ESP8266, ESP32), C in a variety of places (RS/6000, Linux/x86, PIC16, ESP8266, ESP32).
My favorites ended up being Java and Python, but still like to play with the old stuff (doing the Mandelbrot set in Fortran and PL/I on MVS 3.8J, for example).
I'm probably a pariah in this group now. I used the 'J' word :)
|
Re: [Marketing Mail] Re: [H390-MVS] Trying to add a printer or punch as sockdev
On Mon., Nov. 30, 2020, 15:35 Jeff Bassett, < bassettj@...> wrote:
Remember ¨C think of a REAL computer room ¨C with operators ¨C That's good advice.?
I thought I was, but in truth I was only glancing at things which would have some meaning to an exoerienced operator.
I never learned much about printing back then.
Thanks for the explanation, and the extra detail is just what I needed to know to do some extra reading :-)
Roops
|
Re: Real programmers don't write in FORTRAN. FORTRAN is for pipe stress freaks and crystallography weenies. SAYS MY Tk4- COOKIE JAR
I first learnt FORTRAN at a university holiday job in 1970, which was also my first experience of computers. They had a PDPxx (xx=10? can't remember for sure), and they gave me a copy of Daniel D. McCracken's Guide to FORTRAN IV programming, and I basically taught myself FORTRAN (I found a copy on Amazon a few years ago). I wrote a couple of programs for the job, and fortunately they worked first time - I remember thinking that if they didn't work, I would have a lot of trouble debugging them. No comments, GO TOs all over the place, variable names such as AAA, BBB, etc etc (I was yet to learn about maintainability of programs...).
Then in 1971 at university I wrote some more FORTRAN in a unit of Applied mathematics, to solve some mathematical problem (they also had a PDP (something)). I remember I didn't get all the bugs out before I had to hand it in...
In 1974 I started work at a big company which used a S360, and they taught us PL/I, the main language used there. Unlike that holiday job, they taught the importance of comments, meaningful variable names etc. I used PL/I for nearly a year.
Then I transferred to a department where Fortran was used, and I remained in that department, and it's successors (there were reorganisations about every 5 minutes, it seemed....) for the rest of my time at the company. I used both Fortran and PL/I, and occasionally MARK IV, and eventually (after other staff left and the department didn't use so much Fortran) I became the de facto Fortran "go-to" person. When Fortran 77 (VS Fortran) arrived I did most of the testing for it.
I have always liked Fortran, and it is my favourite programming language.
I don't have much experience of programming languages on the PC. I could never quite get the hang of Visual Basic, with all it's objects, methods, properties etc etc, and I know nothing whatsoever about C. But I've used AutoIt (a bit like a simplified VB) a bit, and find it useful for a few things on my PC.
Tim
On Saturday, 28 November 2020, 1:21:24 am AEDT, carlos feldman <carlfelster@...> wrote:
BUT..................
As an engineer and also a programmer, I love Fortran, PL/I, C, and even Quick Basic.
But I despise Java, Prolog, Lisp
?
What are your programming likes and dislikes ?
|
Hello Tom, Am 30.11.2020 um 06:55 schrieb tomarmstrong255@...: In summary, additional region size is only of benefit if the processing program is able to effectively use it to reduce I/O operations. Thanks for that clarification. Sometimes I¡¯m easy to forget how very ancient some concepts are. :-) :wq! PoC
|
I want to say it is a Power/360 control card.? I think it was used to indicate EOF.
|
Re: [Marketing Mail] Re: [H390-MVS] Trying to add a printer or punch as sockdev
Rupert,
What you are seeing is what is called SETUP operator message.
(actually ¨C you probably are NOT seeing it on the console) ¨C
?
Remember ¨C think of a REAL computer room ¨C with operators ¨C
?
So, think of your REAL printer4 = (JES2 does not know how that is currently ¨C what paper is loaded (forms) , which carriage control tape (FCB) , lines per inch
?etc¡.
So ¨C upon the FIRST start ¨C it always ¨C asks with the setup ¨C this has been automated for a couple of printers in the TK4- system in by the script in SYS1.PARMLIB
¨C that starts printer 1,2,3 ¨C ?
?
The reason you have to start printer 4 twice ¨C is because ¨C you are answering the SETUP message ¨C (class, FCB, forms,) by replying $S ¨C you are acknowledging
that it is set correctly ¨C then ¨C the second is go to work.?
?
Now, you are currently sending your output to JES ¨C which is fine ¨C goes to the spool¡.
You MAY ¨C if you want ¨C instead ¨C go DIRECTLY to the printer ¨C more info below¡
?
You may use your operator console to issue $DU,PRT4 command ?(I only have 3 printers ¨C here is the output from my $DU,PRT3 command)
00-?????????? $du,prt3???????????????????????????????????????????????????????
???????????????$HASP000 PRINTER3? 002 INACTIVE F=0001,AUTOM P=N R=LOCAL??? C=6
????????,STD??????????????????????????????????????????????????????????????????
???????????????$HASP000??????????????????????? T=QN? ,STD S=Y LIM=0-* Q=C?????
???????????????????????????????????????????????????????????????????????????????
Now, if we wanted to allocate this device ¨C (notice this is address 002) in the display above (the field following the printer name)
We would first DRAIN the printer ¨C ($PPRT3)
Then a display would show it ONLINE ¨C but not allocated
00-?????????? d u,,,002,1?????????????????????????????????????????
???????????????IEE450I 10.30.45 UNIT STATUS 359?????????????????? C
?????UNIT TYPE STATUS? VOLSER VOLSTATE???????????????? ?????????????
?????002? 3211 O???????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????
In your job ¨C you would code
?
//SYSPRINT??? DD UNIT=002?????????????? you may or may not want to specify DCB info
?
This would allow you to write directly to address 002 ¨C without going to the JES spool at all.?
?
I realize this may be more than you ever wanted to know ¨C ?
?
The $DU,PRTx command shows all the setup information I was describing
?
?
Regards
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
?
?
?
?
?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]>
On Behalf Of Rupert Reynolds
Sent: Monday, November 30, 2020 8:29 AM
To: [email protected]
Subject: [Marketing Mail] Re: [H390-MVS] Trying to add a printer or punch as sockdev
?
Follow-up:
I didn't want good-looking prints, but I wanted some facilities not in HercPrt, so I threw together some Python to connect to Hercules and pull out the data I need.
It's pretty basic and Hercules reliably ends each line of output with 0x0a, 0x0c (and I'm fairly sure I once saw a 0x0d, but it's not been repeated recently), so it is a simple enough task.
Two things surprise me. If I ALLOC DD(SYSPRINT) SYSOUT(Y), print and then FREE it, the output is sent immediately and not held. And sometimes, after a restart, I have to issue /$S PRT4 twice to get output.
Would I only have to change HOLD to NOHOLD in JES2PARM:-
??Y PRINT,SYSOUT,HOLD??????????????? HOLD - SYSOUT
to get jobs printing to MSGCLASS=Y to print immediately at end of job?
Roops
?
On 24/11/2020 19:19, Rupert Reynolds via groups.io wrote:
Progress. And thanks for the help to all who replied.
HercPrt connected on the port I set, and sat idle. The directory I set in "Spooler Dir" was empty, apart from a 0-byte file called PRT20F9.tmp, so I played around a bit. The HercPrt installer didn't make suggestions about the control file to use. My first
guess was MVS-1line.ini from C:\Users\Roopy\Documents\HercPrt? (not sure what the number of lines means). Changed it to MVS-33Lines.ini and it started putting out PDF files :-)
RFE 3.8 is handy if you don't enjoy typing OUTPUT jobname NOHOLD commands in TSO.
What I did:-
I've been using SYSOUT=X already for held output in 'SYS1.JES2PARM(JES2PARM)' and Y is also
defined there :-
??X PRINT,SYSOUT,HOLD??????????????? HOLD - SYSOUT??????????
??Y PRINT,SYSOUT,HOLD??????????????? HOLD - SYSOUT??????????
so I added PRINTER4 for class Y as below and increased the count
&NUMNPRTS=4
PRINTER3?????? CLASS=X,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=002,DRAIN,?????? +??
?????????????? UCS=QN,FCB=6???????????????????????????????????????????????
PRINTER4?????? CLASS=Y,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=003,DRAIN,?????? +??
?????????????? UCS=QN,FCB=6???????????????????????????????????????????????
HHC00008I /$s prt4
17.00.47?????????? $HASP000 OK
HHC02210I 0:0003 LOADED lpi=6 index=1 lpp=66 fcb=1:1,7:2,13:3,19:4,25:5,31:6,37:7,43:8,49:10,55:11,61:12,63:9
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 24 LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 98 LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 56 LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4???????? 2 LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4?????? 179 LINES
17.00.48 JOB?? 76? $HASP250 ROOPY1?? IS PURGED
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 12 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 29 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 1 LINE
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 4 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 56 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 2 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4?????? 121 LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4?????? 179 LINES
17.00.48?????????? $HASP160 PRINTER4 INACTIVE - CLASS=Y
17.00.48 JOB?? 87? $HASP250 ROOPY1?? IS PURGED
On 20/11/2020 19:30, Joe Monk wrote:
"I don't know how JES2 links PRT1 to an MVS device address!"
Thats in member JES2PM00 in SYS1.PARMLIB....
* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?LOCAL PRINTERS ? ? ? ? ? ? ? ? ? ? ? ? *?
PRINTER1 ? ? ? UNIT=00E,CLASS=A,FCB=6,FORMS=STD1,SEP,AUTO ? ? ? ? ? ? ?C
? ? ? ? ? ? ? ?NOPAUSE,START ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 1403 ? ? ??
PRINTER2 ? ? ? UNIT=00F,CLASS=M,FCB=6,FORMS=STD1,SEP,AUTO ? ? ? ? ? ? ?C
? ? ? ? ? ? ? ?NOPAUSE,UCS=TB,START ? ? ? ? ? ? ? ? ? ? ? ? ?3211 ? ? ??
?
Thanks. That JES2 command has moved things forward--I can connect now.
But I realise I need to RTFM on JES2 and printing. I didn't ever have much to do with printing, and it was JES3 in my shop.
I don't know how JES2 links PRT1 to an MVS device address!
?
On Fri., Nov. 20, 2020, 17:01 Rahim Azizarab via , <rahimazizarab=[email protected]> wrote:
You already have the definition?
B 0003 3211 PRT? sockdev print fcbck IO[4]
I usually use 1403 for Printer;? I am not sure if the highlighted part is necessary. Just go to your Web browser and type localhost:4444;? you may need to do a $S PRT1 on your SCP (Hercules) console too.? ?
On Friday, November 20, 2020, 10:49:49 AM CST, Rupert Reynolds <rupertreynolds@...> wrote:
Can anyone suggest what to do next, please? I'm trying to understand the various options for TCP/IP links
between MVS and the host. I'm mostly ignorant of the Herc options for sockdev devices and CTCs etc, and I
did do a SYSGEN a few times many years ago, but most of the details are forgotten.
I don't think it's a configuration problem on the host, as I can connect to
port 3505 (RDR) and submit jobs just fine, although it shows as a 2540 in MVS (00c).
Given this result from /D U in the Hercules console, I was assuming that there are two 3211 printers in the IOGEN, 002 and 003.
15.36.56?????????? IEE450I 15.36.56 UNIT STATUS 447
?UNIT TYPE STATUS? VOLSER VOLSTATE?? UNIT TYPE STATUS? VOLSER VOLSTATE
?002? 3211 A???????????????????????? 003? 3211 OFFLINE
?009? 3215 C???????????????????????? 00C? 2540 A
?00D? 2540 A???????????????????????? 00E? 1403 A
?00F? 1403 A???????????????????????? 010? 3277 OFFLINE
?011? 3277 OFFLINE?????????????????? 01F? 3215 OFFLINE
?070? 2703 OFFLINE?????????????????? 071? 2703 OFFLINE
?072? 2703 OFFLINE?????????????????? 073? 2703 OFFLINE
?074? 2703 OFFLINE?????????????????? 075? 2703 OFFLINE
?076? 2703 OFFLINE?????????????????? 077? 2703 OFFLINE
?080? 2703 OFFLINE?????????????????? 081? 2703 OFFLINE
?082? 2703 OFFLINE?????????????????? 083? 2703 OFFLINE
?084? 2703 OFFLINE?????????????????? 085? 2703 OFFLINE
?086? 2703 OFFLINE?????????????????? 087? 2703 OFFLINE
If I hit Esc to view hardware from Hercules' POV, 003 is missing. So I added 003 in the TK4-.cnf :-
0002 3211 prt/prt002.txt ${TK4CRLF}
And now it appears in the Hercules hardware list (below), but I can't connect to it on port 4444 from
Win64 telnet, a simple socket client I bashed together, or using telnet from Linux. For comparison,
I /can/ connect to Hercules port 21 if I start FTPD.
U Addr Modl Type Assignment
A 0002 3211 PRT? prt/prt002.txt crlf print fcbck IO[2]
B 0003 3211 PRT? sockdev print fcbck IO[4]
C 000E 1403 PRT? prt/prt00e.txt crlf print fcbck IO[21]
D 000C 3505 RDR? 3505 sockdev ascii trunc eof IO[4]
E 000D 3525 PCH? pch/pch00d.txt ascii IO[2]
F 0480 3420 TAPE * IO[4] maxsize=0 eotmargin=128K deonirq=N
G 010C 3505 RDR? jcl/dummy ascii trunc eof IO[2]
H 010D 3525 PCH? pch/pch10d.txt ascii IO[2]
I 000F 1403 PRT? prt/prt00f.txt crlf print fcbck IO[117]
J 030E 1403 PRT? log/hardcopy.log crlf print fcbck IO[449]
K 0009 3215 CON? *syscons cmdpref(/) IO[237]
T 03C0 3270 DSP? GROUP=TCAM IO[4]
U 03C1 3270 DSP? GROUP=TCAM IO[4]
V 03C2 3270 DSP? GROUP=TCAM IO[4]
W 03C3 3270 DSP? GROUP=TCAM IO[4]
X 03C4 3270 DSP? GROUP=TCAM IO[4]
Y 03C5 3270 DSP? GROUP=TCAM IO[4]
Z 03C6 3270 DSP? GROUP=TCAM IO[4]
. 03C7 3270 DSP? GROUP=TCAM IO[4]
. 0660 3705 LINE Read count=39, Write count=37 IO[77]
. 0661 3705 LINE Read count=39, Write count=37 IO[77]
. 0662 3705 LINE Read count=39, Write count=37 IO[77]
. 0663 3705 LINE Read count=39, Write count=37 IO[77]
. 0664 3705 LINE Read count=30, Write count=27 IO[58]
. 0665 3705 LINE Read count=30, Write count=27 IO[58]
. 0666 3705 LINE Read count=30, Write count=27 IO[58]
. 0667 3705 LINE Read count=30, Write count=27 IO[58]
|
I take it back DOS has /& at the end and plain // for MVS.? It is not MVS; it is some other unknown system.
On Monday, November 30, 2020, 08:56:28 AM CST, Rahim Azizarab via groups.io <rahimazizarab@...> wrote:
It is a DOS/VSE card not an MVS.
On Monday, November 30, 2020, 08:42:50 AM CST, Fernando M. Roxo da Motta <mvs@...> wrote:
On Mon, 30 Nov 2020 02:03:01 -0800, "Mark L. Gaubatz via groups.io" <mgaubatz= [email protected]> wrote: > Treated as end-of-job, if not a continuation card. ? I thought so too, then I gave it a try in TK4-: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? J E S 2? J O B? L O G 11.36.45 JOB? 776? IEF452I ROXOBR14 JOB NOT RUN - JCL ERROR 1? //ROXOBR14 JOB (ROXO),'EXECUTE IEFBR14', ? //? ? ? ? ? ? NOTIFY=ROXO, ? //? ? ? ? ? ? MSGLEVEL=(1,1), ? //? ? ? ? ? ? REGION=4096K, ? //? ? ? ? ? ? CLASS=A, ? //? ? ? ? ? ? MSGCLASS=X,? ? ? ? ? ? ? ? HELD QUEUE ? //? ? ? ? ? ? USER=ROXO,PASSWORD=? ? ? ? ? GENERATED BY GDL ? ***? ? ? ? ? MSGCLASS=A? ? ? ? ? ? ? ? NON HELD QUEUE *** ? ***------------------------------------------------------------------- ? *** ***? JOB POURPOSE DESCRIPTION *** ? ***------------------------------------------------------------------- ? *** 2? ? //STEP1 EXEC PGM=IEFBR14 ? ? ? 3? ? // * ? ? STMT NO. MESSAGE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? - ? ? ? 3? ? IEF605I UNIDENTIFIED OPERATION FIELD ? ? ? ? ? Roxo -- ---------------- Non luctari, ludare -------------------+ WYSIWYG Fernando M. Roxo da Motta < mvs@...>? ? ? ? ? ? ? ? | Editor? Except where explicitly stated I speak on my own behalf.|? VI !! ? ? ? ? ? ? ? ? PU5RXO? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? | I see text, ------------ Quis custodiet ipsos custodes?-------------+ I get text!
|
It is a DOS/VSE card not an MVS.
On Monday, November 30, 2020, 08:42:50 AM CST, Fernando M. Roxo da Motta <mvs@...> wrote:
On Mon, 30 Nov 2020 02:03:01 -0800, "Mark L. Gaubatz via groups.io" <mgaubatz= [email protected]> wrote: > Treated as end-of-job, if not a continuation card. ? I thought so too, then I gave it a try in TK4-: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? J E S 2? J O B? L O G 11.36.45 JOB? 776? IEF452I ROXOBR14 JOB NOT RUN - JCL ERROR 1? //ROXOBR14 JOB (ROXO),'EXECUTE IEFBR14', ? //? ? ? ? ? ? NOTIFY=ROXO, ? //? ? ? ? ? ? MSGLEVEL=(1,1), ? //? ? ? ? ? ? REGION=4096K, ? //? ? ? ? ? ? CLASS=A, ? //? ? ? ? ? ? MSGCLASS=X,? ? ? ? ? ? ? ? HELD QUEUE ? //? ? ? ? ? ? USER=ROXO,PASSWORD=? ? ? ? ? GENERATED BY GDL ? ***? ? ? ? ? MSGCLASS=A? ? ? ? ? ? ? ? NON HELD QUEUE *** ? ***------------------------------------------------------------------- ? *** ***? JOB POURPOSE DESCRIPTION *** ? ***------------------------------------------------------------------- ? *** 2? ? //STEP1 EXEC PGM=IEFBR14 ? ? ? 3? ? // * ? ? STMT NO. MESSAGE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? - ? ? ? 3? ? IEF605I UNIDENTIFIED OPERATION FIELD ? ? ? ? ? Roxo -- ---------------- Non luctari, ludare -------------------+ WYSIWYG Fernando M. Roxo da Motta < mvs@...>? ? ? ? ? ? ? ? | Editor? Except where explicitly stated I speak on my own behalf.|? VI !! ? ? ? ? ? ? ? ? PU5RXO? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? | I see text, ------------ Quis custodiet ipsos custodes?-------------+ I get text!
|
On Mon, 30 Nov 2020 02:03:01 -0800, "Mark L. Gaubatz via groups.io" <mgaubatz@...> wrote: Treated as end-of-job, if not a continuation card. I thought so too, then I gave it a try in TK4-: J E S 2 J O B L O G 11.36.45 JOB 776 IEF452I ROXOBR14 JOB NOT RUN - JCL ERROR 1 //ROXOBR14 JOB (ROXO),'EXECUTE IEFBR14', // NOTIFY=ROXO, // MSGLEVEL=(1,1), // REGION=4096K, // CLASS=A, // MSGCLASS=X, HELD QUEUE // USER=ROXO,PASSWORD= GENERATED BY GDL *** MSGCLASS=A NON HELD QUEUE *** ***------------------------------------------------------------------- *** *** JOB POURPOSE DESCRIPTION *** ***------------------------------------------------------------------- *** 2 //STEP1 EXEC PGM=IEFBR14 3 // * STMT NO. MESSAGE - 3 IEF605I UNIDENTIFIED OPERATION FIELD Roxo -- ---------------- Non luctari, ludare -------------------+ WYSIWYG Fernando M. Roxo da Motta <mvs@...> | Editor? Except where explicitly stated I speak on my own behalf.| VI !! PU5RXO | I see text, ------------ Quis custodiet ipsos custodes?-------------+ I get text!
|
Re: Trying to add a printer or punch as sockdev
Follow-up:
I didn't want good-looking prints, but I wanted some facilities
not in HercPrt, so I threw together some Python to connect to
Hercules and pull out the data I need.
It's pretty basic and Hercules reliably ends each line of output
with 0x0a, 0x0c (and I'm fairly sure I once saw a 0x0d, but it's
not been repeated recently), so it is a simple enough task.
Two things surprise me. If I ALLOC DD(SYSPRINT) SYSOUT(Y), print
and then FREE it, the output is sent immediately and not held. And
sometimes, after a restart, I have to issue /$S PRT4 twice to get
output.
Would I only have to change HOLD to NOHOLD in JES2PARM:-
??Y PRINT,SYSOUT,HOLD??????????????? HOLD
- SYSOUT
to get jobs printing to MSGCLASS=Y to print immediately at end of
job?
Roops
On 24/11/2020 19:19, Rupert Reynolds
via groups.io wrote:
toggle quoted message
Show quoted text
Progress. And thanks for the help to all who replied.
HercPrt connected on the port I set, and sat idle. The
directory I set in "Spooler Dir" was empty, apart from a 0-byte
file called PRT20F9.tmp, so I played around a bit. The HercPrt
installer didn't make suggestions about the control file to use.
My first guess was MVS-1line.ini from
C:\Users\Roopy\Documents\HercPrt? (not sure what the number of
lines means). Changed it to MVS-33Lines.ini and it started
putting out PDF files :-)
RFE 3.8 is handy if you don't enjoy typing OUTPUT jobname
NOHOLD commands in TSO.
What I did:-
I've been using SYSOUT=X already for held output in
'SYS1.JES2PARM(JES2PARM)' and Y is also
defined there :-
??X PRINT,SYSOUT,HOLD???????????????
HOLD - SYSOUT??????????
??Y PRINT,SYSOUT,HOLD??????????????? HOLD - SYSOUT??????????
so I added PRINTER4 for class Y as below and increased the
count &NUMNPRTS=4
PRINTER3??????
CLASS=X,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=002,DRAIN,?????? +??
??????????????
UCS=QN,FCB=6???????????????????????????????????????????????
PRINTER4??????
CLASS=Y,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=003,DRAIN,?????? +??
??????????????
UCS=QN,FCB=6???????????????????????????????????????????????
/$s prt4 gave me:-
HHC00008I /$s
prt4
17.00.47?????????? $HASP000 OK
HHC02210I 0:0003 LOADED lpi=6 index=1 lpp=66
fcb=1:1,7:2,13:3,19:4,25:5,31:6,37:7,43:8,49:10,55:11,61:12,63:9
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 24
LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 98
LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4??????? 56
LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4???????? 2
LINES
17.00.47 JOB?? 76? $HASP150 ROOPY1?? ON PRINTER4?????? 179
LINES
17.00.48 JOB?? 76? $HASP250 ROOPY1?? IS PURGED
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 12
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 29
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 1
LINE
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 4
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4??????? 56
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4???????? 2
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4?????? 121
LINES
17.00.48 JOB?? 87? $HASP150 ROOPY1?? ON PRINTER4?????? 179
LINES
17.00.48?????????? $HASP160 PRINTER4 INACTIVE - CLASS=Y
17.00.48 JOB?? 87? $HASP250 ROOPY1?? IS PURGED
Thanks again, all :-)
Roops
On 20/11/2020 19:30, Joe Monk wrote:
"I don't know how JES2 links PRT1 to an MVS
device address!"
Thats in member JES2PM00 in SYS1.PARMLIB....
*?
* ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?LOCAL PRINTERS ? ? ? ? ? ? ? ? ? ? ? ? *?
*?
PRINTER1 ? ? ?
UNIT=00E,CLASS=A,FCB=6,FORMS=STD1,SEP,AUTO ? ? ? ? ?
? ?C
? ? ? ? ? ? ? ?NOPAUSE,START
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 1403 ? ? ??
PRINTER2 ? ? ?
UNIT=00F,CLASS=M,FCB=6,FORMS=STD1,SEP,AUTO ? ? ? ? ?
? ?C
? ? ? ? ? ? ?
?NOPAUSE,UCS=TB,START ? ? ? ? ? ? ? ? ? ? ? ? ?3211
? ? ??
*?
Joe
Thanks. That JES2 command has moved things
forward--I can connect now.
But I realise I need to RTFM on JES2 and
printing. I didn't ever have much to do with printing,
and it was JES3 in my shop.
I don't know how JES2 links PRT1 to an
MVS device address!
Roops.
On Fri., Nov. 20,
2020, 17:01 Rahim Azizarab via ,
<rahimazizarab= [email protected]>
wrote:
You already have the definition?
B 0003 3211 PRT?
sockdev print
fcbck IO[4]
I usually use 1403 for Printer;? I am not sure
if the highlighted part is necessary. Just go
to your Web browser and type localhost:4444;?
you may need to do a $S PRT1 on your SCP
(Hercules) console too.? ?
On Friday, November 20, 2020, 10:49:49 AM
CST, Rupert Reynolds < rupertreynolds@...>
wrote:
Can anyone suggest what to do
next, please? I'm trying to understand the
various options for TCP/IP links
between MVS and the host. I'm
mostly ignorant of the Herc options for
sockdev devices and CTCs etc, and I
did do a SYSGEN a few times
many years ago, but most of the details are
forgotten.
I don't think it's a
configuration problem on the host, as I can
connect to
port 3505 (RDR) and submit jobs
just fine, although it shows as a 2540 in
MVS (00c).
?
Given this result from /D U in
the Hercules console, I was assuming that
there are two 3211 printers in the IOGEN,
002 and 003.
HHC00008I /d u
15.36.56?????????? IEE450I
15.36.56 UNIT STATUS 447
?UNIT TYPE STATUS? VOLSER
VOLSTATE?? UNIT TYPE STATUS? VOLSER VOLSTATE
?002? 3211
A???????????????????????? 003? 3211 OFFLINE
?009? 3215
C???????????????????????? 00C? 2540 A
?00D? 2540
A???????????????????????? 00E? 1403 A
?00F? 1403
A???????????????????????? 010? 3277 OFFLINE
?011? 3277
OFFLINE?????????????????? 01F? 3215 OFFLINE
?070? 2703
OFFLINE?????????????????? 071? 2703 OFFLINE
?072? 2703
OFFLINE?????????????????? 073? 2703 OFFLINE
?074? 2703
OFFLINE?????????????????? 075? 2703 OFFLINE
?076? 2703
OFFLINE?????????????????? 077? 2703 OFFLINE
?080? 2703
OFFLINE?????????????????? 081? 2703 OFFLINE
?082? 2703
OFFLINE?????????????????? 083? 2703 OFFLINE
?084? 2703
OFFLINE?????????????????? 085? 2703 OFFLINE
?086? 2703
OFFLINE?????????????????? 087? 2703 OFFLINE
If I hit Esc to view hardware
from Hercules' POV, 003 is missing. So I
added 003 in the TK4-.cnf :-
# unit record devices
#
0002 3211 prt/prt002.txt
${TK4CRLF}
0003 3211
sockdev
And now it appears in the
Hercules hardware list (below), but I can't
connect to it on port 4444 from
Win64 telnet, a simple socket
client I bashed together, or using telnet
from Linux. For comparison,
I /can/ connect to Hercules
port 21 if I start FTPD.
Roops
Enc:-
U Addr Modl Type Assignment
A 0002 3211 PRT? prt/prt002.txt
crlf print fcbck IO[2]
B 0003 3211 PRT?
sockdev print fcbck IO[4]
C 000E 1403 PRT? prt/prt00e.txt
crlf print fcbck IO[21]
D 000C 3505 RDR? 3505 sockdev
ascii trunc eof IO[4]
E 000D 3525 PCH? pch/pch00d.txt
ascii IO[2]
F 0480 3420 TAPE * IO[4]
maxsize=0 eotmargin=128K deonirq=N
G 010C 3505 RDR? jcl/dummy
ascii trunc eof IO[2]
H 010D 3525 PCH? pch/pch10d.txt
ascii IO[2]
I 000F 1403 PRT? prt/prt00f.txt
crlf print fcbck IO[117]
J 030E 1403 PRT?
log/hardcopy.log crlf print fcbck IO[449]
K 0009 3215 CON? *syscons
cmdpref(/) IO[237]
L 00C0 3270 DSP? * IO[4]
M 00C1 3270 DSP? * IO[4]
N 00C2 3270 DSP? * IO[4]
O 00C3 3270 DSP? * IO[4]
P 00C4 3270 DSP? * IO[4]
Q 00C5 3270 DSP? * IO[4]
R 00C6 3270 DSP? * IO[4]
S 00C7 3287 DSP? * IO[2]
T 03C0 3270 DSP? GROUP=TCAM
IO[4]
U 03C1 3270 DSP? GROUP=TCAM
IO[4]
V 03C2 3270 DSP? GROUP=TCAM
IO[4]
W 03C3 3270 DSP? GROUP=TCAM
IO[4]
X 03C4 3270 DSP? GROUP=TCAM
IO[4]
Y 03C5 3270 DSP? GROUP=TCAM
IO[4]
Z 03C6 3270 DSP? GROUP=TCAM
IO[4]
. 03C7 3270 DSP? GROUP=TCAM
IO[4]
. 0610 3088 CTCA
IO[1]
. 0611 3088 CTCA
IO[1]
. 0660 3705 LINE Read count=39,
Write count=37 IO[77]
. 0661 3705 LINE Read count=39,
Write count=37 IO[77]
. 0662 3705 LINE Read count=39,
Write count=37 IO[77]
. 0663 3705 LINE Read count=39,
Write count=37 IO[77]
. 0664 3705 LINE Read count=30,
Write count=27 IO[58]
. 0665 3705 LINE Read count=30,
Write count=27 IO[58]
. 0666 3705 LINE Read count=30,
Write count=27 IO[58]
. 0667 3705 LINE Read count=30,
Write count=27 IO[58]
|
Re: Real programmers don't write in FORTRAN. FORTRAN is for pipe stress freaks and crystallography weenies. SAYS MY Tk4- COOKIE JAR
Fortran was ad still is a Lingua Franca un the sciences and engineerig community, INTEL in the 1970's distributed PL/M, a downsized PL/I ( it's available today ) as two pass PL/M compiler, for its micros, written in FORTRAN 77 : I mention PL/M, because the first microcomputer operating system CP/M was written in PL/M
you coud use it in most minis and mainfames of the time
|
Treated as end-of-job, if not a continuation card. ? Mark dasdman ?
toggle quoted message
Show quoted text
From: [email protected] < [email protected]> On Behalf Of Joe Monk Sent: Sunday, November 29, 2020 3:17 PM To: [email protected]Subject: Re: [H390-MVS] Is this a JCL typo? ? I think this is probably a continuation ?card of a previous comment card. ? On Sun, Nov 29, 2020 at 5:03 PM Bill Lewis <wrljet@...> wrote: I recently purchased an old punch card cabinet from the estate sale of a local hobby
machinist club member.
There was one single punch card in the bottom of the cabinet.? And I'm wondering, is this a typo? ???? // *
"slash slash space star"
Bill
 
|
Marco Antoniotti
carlos feldman
Jeff Bassett