| Newsgroups |
gmane.comp.emulators.hercules390.mvs |
| Message-ID |
<[email protected]> |
> -----Original Message-----
> From: [email protected] <[email protected]>
> Sent: 13 September 2019 11:17
> To: Gary [email protected] [H390-MVS] <H390-
> [email protected]>
> Subject: Re: [H390-MVS] MVT COBOL under MVS3.8j.
>
> On Fri, 13 Sep 2019, Gary [email protected] [H390-MVS] wrote:
>
> > Maybe not. If Dave Wade would be so kind to provide the SIZE and BUF
> > values from his successful compile listing along with the defined
> > storage size for the VM user, it might provide additional clue.
>
> Waiting for Dave's time ;-)
>
Yes I am UK so on GMT+1 but also got nasty cold so brain not working about
1%....
.... My input is treated as unbuffered and the program is very small. Does
anyone have a larger example?
These are the CMS commands that are issued...
FILEDEF SYSUT1 DISK COB360 SYSUT1 A ( LRECL 1 RECFM FB BLOCK 1
FILEDEF SYSUT2 DISK COB360 SYSUT2 A ( LRECL 1 RECFM FB BLOCK 1
FILEDEF SYSUT3 DISK COB360 SYSUT3 A ( LRECL 1 RECFM FB BLOCK 1
FILEDEF SYSUT4 DISK COB360 SYSUT4 A ( LRECL 1 RECFM FB BLOCK 1
FILEDEF SYSIN DISK TEST COBOL A ( LRECL 80 RECFM FB BLOCK 80
FILEDEF SYSPRINT DISK TEST LISTING A ( LRECL 121 RECFM FB BLOCK 121
FILEDEF SYSPUNCH DISK TEST SYSPUNCH A ( LRECL 80 RECFM FB BLOCK 80
FILEDEF SYSLIN DISK TEST TEXT A
CP LINK COBOL 191 333 RR READ
ACC 333 B/A
B (333) R/O
RUNPARM IKFCBL00 LIST , PMAP , DMAP , XREF , SUPMAP , SIZE = 1024000
REL B ( DET
DASD 333 DETACHED
ERASE COB360 SYSUT1 A
ERASE COB360 SYSUT2 A
ERASE COB360 SYSUT3 A
ERASE COB360 SYSUT4 A
Ready; T=0.05/0.19 10:47:13
Which all looks very odd...
.... and the listing says at the top
1 CB545 V2 LVL78 01MAY72 IBM OS AMERICAN NATIONAL STANDARD
COBOL DATE SEP 13,1919
So I assume it is the same compiler. And at the end I get:-
*STATISTICS* SOURCE RECORDS = 15 DATA DIVISION STATEMENTS = 1
PROCEDURE DIVISION STATEMENTS = 2
*OPTIONS IN EFFECT* SIZE = 1024000 BUF = 238288 LINECNT = 57
SPACE1, FLAGW, SEQ, SOURCE
*OPTIONS IN EFFECT* DMAP, PMAP, NOCLIST, SUPMAP, XREF, LOAD,
NODECK, APOST, NOTRUNC, LIB, VERB
*OPTIONS IN EFFECT* ZWB
Oh and I changed the DD for SYSIN to be "BLOCK 800" and it still works....
.... I know some folks have run MVT. Has any one tried the compiler in an MVT
system?
Dave
> >
> > In this day and age when we deal with Giga and Terra bytes, it is all
> > too easy to forget that the software we are playing with uses Kilobytes..
>
> Yep, we actually DO.
>
> And I, some time, regret we are not anymore in that "age" ;-(
>
> It had been a wonderful age, the age of my youth ;-)
>
> Peppe.
>
> ------------------------------------
> Posted by: Giuseppe Vitillaro <giuseppe-yuD/ahkh7LvrZ44/[email protected]>
> ------------------------------------
>
>
> ------------------------------------
>
> Yahoo Groups Links
>
>
>