开云体育

(specifically VM/ESA) Can anyone shed some light on what it takes to get VMS to be able to print to a 3270-connected printer, say a 3287? I failed around the help panels for a while today and I don't think I got very close. Any assistance would be greatly appreciated. Thanks, -Dave -- Dave McGuire, AK4HZ New Kensington, PA

Recently I joined this group, and read about SAA defunct, and OS/2 implementation, etc. (somewhat off-topic) I seem to remember that around 1994 I got involved in the then-new SAP R/3. It struck me that client/server communication errors were labeled CPICnnn, hinting at the Common Programming Interface for Commmunication, a part of SAA I knew from the late eighties. The user screen layout seemed very much to adhere tot CUA guidelines, another part of SAA. By 2005 these characteristics were still there in SAP, might even survive today. OS/2 was gone by 2005 ;-( To conclude: there was/is an SAA aplication: it's called SAP. As a software archaeotect I like to recover these things while being retired.

I bring sad tidings. Long-time VMer, SHARE VM stalwart, and member of this group Bob Bolch passed away on May 19th. Bob's brother Mike informed me that he died from an aggressive cancer. Bob had a kidney transplant 19 years ago, and had been on the requisite immunosuppressive drug regimen ever since, which allowed the cancer to get hold and take over very quickly. Bob was one of the early inductees to the Knights of VM, as "Sir Robert the Guardian". He worked for many years as one of the leading VM folks at the SAS Institute, and later worked with me at Sterling Software's VM Software Division. Over the last few years, as some of you are aware, Bob was involved in and managed several releases of the VM/370 Community Edition. Ross

Hello, While I was the lead systems programmer at OCF Research Facility, my boss and I went to lunch with a salesperson who was trying to sell us a drum (2305, I thought). This would have been 1981 and 1982. I remember because I made a faux pas by showing my desire for a drum unit. I didn't realize we were there for a free lunch and yes, a sales pitch, but mostly the free lunch. It was my last "free lunch" from a salesperson until Amdahl tried selling a 470 to Cray Research, Inc. Bertram Moshier WB8ERT

Hello, 17:36:09 diskmap user (disk) 17:36:09 DISKMAP is running for USER DIRECT 17:36:09 Unknown option: ) 17:36:09 Error: Invalid option found 17:36:09 Ready(00001); T=0.05/0.06 17:36:09 The help file for diskmap shows the command supports a close parenthesis as an option | DISKMAP | filename [( DISK [)]] I know this isn't a big issue, but there it is this fine and wonderful day. :-) Thank you, Bertram Moshier of Chicago WB8ERT

Hello, I've been reading through the various VM Planning guides looking for information on the SYSIPL macro, but I can't find any, even in the R6 PLC17 or VM/SP R3 manuals. Where can I find documentation on this macro? I should remember, but don't, where the MACLIB is for the DMKSYS macros. Thank you in advance for your help, Bertram Moshier

Hello, I never had the opportunity to have a 3270 terminal printer during my time as a lead systems programmer at TI LICC or OCF Research Center. I'm wondering how to define this in the configuration file to Hercules and in DMKRIO. My hope is this might make it easier to copy & paste text on the 3270 devices we use to email or other programs. Bertram Moshier of Chicago WB8ERT

Hello everyone, I know we only have VMCF in VM/370 CE Version 1 Release 1.2. Are there plans to add IUCV to VM/370 CE in a future release or version? Bertram Moshier

Hello, I created several drives using the dasdinit command but forgot the VOLSER I set. How do I look up the VOLSER using VM/CE? Thank you.

Hello, I'm getting DMSLIO109S when trying to access my 191 mini-disk. It is a 3380 (the entire drive 000 to 886). How large of a mini-disk does VM/CE support for 3380 DASD? Thank you.

I'm considering merging my disks' shadow files into their base files. Why? Well, because ... I dunno, it seems like I don't need the ability to undo literally everything I've ever done on my VM/CE system. BUT ... the Hercules doc (at https://sdl-hercules-390.github.io/html/cckddasd.html#utilities) says "Note: It is not advisable to merge shadow files back into base images. When merging shadow files, it is only recommended to merge one set of shadow files back into the previous set of shadow files. When you merge a shadow file back into the base image, you might see some error/warning message being issued as a result, which should be considered an unpreventable side effect of such a merge, and are completely benign. No file damage has actually occurred." Naturally, I get a little concerned when the authors say "Don't use this tool we built you, or at least not if you don't want your data destroyed." But I have a hard time understanding how to reconcile the first sentence that says "Hey! Don't do that!", with the last one that says "It works just fine!". So, what say ye? Merge, or not? Thanks, Ross

Has anyone ported SQLITE onto R1.V1.1? I know that IBM has it as a download, but to save me the effort of checking if this has any issues, I wondered if anyone here had separately completed this work?

I've seen this randomly a couple of times, but today I built a repeatable test case. Using a simple Rexx iterative loop, BREXX occasionally goes quite literally crazy, generating either floating point numbers for the loop index, or randomly resetting the index to 0. I thinned down the Rexx program I was running until it couldn't get any plainer. The below files BOOM11 EXEC and CONSOLE demonstrate both behaviours. BOOM11 EXEC reads a TEXT deck file via EXECIO DISKR * (STEM, and then simply loops over it, with tracing active, writing the loop index to the console. At line 144 in BOOM11 CONSOLE, you can see it resetting from 7 to 0, and later at 248, the "8" is shown as "8E+20". I apologize for cluttering everyone's mailbox with the files in-line, but this list doesn't allow attachments. Anybody know what's going on here? And if not, which of several "BREXX" places on the web should I report the bug to? Ross ----- BOOM11 EXEC ----- /* */ trace i Arg Fn Ft Fm . Result = '' Start = '' 'EXECIO * DISKR' Fn Ft Fm '(STEM CARDS. FINIS' Say Fn Ft Fm':' Cards.0 'cards' Do I = 1 to Cards.0 Say Fn Ft Fm 'C='I End Exit 0 ----- BOOM11 EXEC ----- ----- BOOM11 CONSOLE ----- l disasm text a ( l Filename Filetype Fm Format Recs Blocks Date Time Label DISASM TEXT A1 F 80 170 17 03/12/24 20:18 RAP191 boom11 disasm text a 3 *-* Arg Fn Ft Fm . >>> "DISASM" >>> "TEXT" >>> "A" >.> "" 5 *-* Result = '' >L> "" 6 *-* Start = '' >L> "" 7 *-* 'EXECIO * DISKR' Fn Ft Fm '(STEM CARDS. FINIS' >L> "EXECIO * DISKR" >V> "DISASM" >O> "EXECIO * DISKR DISASM" >V> "TEXT" >O> "EXECIO * DISKR DISASM TEXT" >V> "A" >O> "EXECIO * DISKR DISASM TEXT A" >L> "(STEM CARDS. FINIS" >O> "EXECIO * DISKR DISASM TEXT A (STEM CARDS. FINIS" 9 *-* Say Fn Ft Fm':' Cards.0 'cards' >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> ":" >O> "DISASM TEXT A:" >C> "CARDS.0" >V> "170" >O> "DISASM TEXT A: 170" >L> "cards" >O> "DISASM TEXT A: 170 cards" DISASM TEXT A: 170 cards 10 *-* Do I = 1 to Cards.0 >L> "1" >C> "CARDS.0" >V> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "1" >O> "DISASM TEXT A C=1" DISASM TEXT A C=1 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "2" >O> "DISASM TEXT A C=2" DISASM TEXT A C=2 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "3" >O> "DISASM TEXT A C=3" DISASM TEXT A C=3 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "4" >O> "DISASM TEXT A C=4" DISASM TEXT A C=4 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "5" >O> "DISASM TEXT A C=5" DISASM TEXT A C=5 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "6" >O> "DISASM TEXT A C=6" DISASM TEXT A C=6 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "7" >O> "DISASM TEXT A C=7" DISASM TEXT A C=7 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "8" >O> "DISASM TEXT A C=0" DISASM TEXT A C=0 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O> "DISASM TEXT A" >L> "C=" >O> "DISASM TEXT A C=" >V> "1" >O> "DISASM TEXT A C=1" DISASM TEXT A C=1 >>> "170" 10 *-* Do I = 1 to Cards.0 11 *-* Say Fn Ft Fm 'C='IEnd >V> "DISASM" >V> "TEXT" >O> "DISASM TEXT" >V> "A" >O>

Has anyone tried to download files from any of the LISTSERV sites providing access to the VM-UTIL discussion list? Such as http://vm.marist.edu/htbin/wlvindex I've read the directions, and I have tried to download a set of files from MARIST. The commands process okay, but the e-mails delivering the files are empty, even though the list says there are non-zero records available. If an entry says zero (0) records, then you can't download it. ... Mark S.

I am following what is printed in the APL\360 Primer book. To delete a line (i.e. #3) [3] press the ATTN key, followed immediately by carrier return. I have these problems: 1) is carrier return some 2741 key that PCOMM 3270 emulator doesn't have, or is carrier return to be intended as carriage return? 2) if I press ATTN and CR I find myself at the CP prompt, how is it possible to return to my APL session? Thanks for any suggestions, I'm not at all knowledgeable about the VM/370 system. Marco

More a MVS/VSE/DB2 guy and have been doing some COBOL/Assemble/FORTRAN over MVS 3.8j. 3 days ago now I discovered I can run VM/370 easily under Docker (never able to install one under Macos/Windows/Linux), both sixpack and CE version. Last 2 days I can run the wikipedia HERON (based on the source code here) plus some advise about the library etc. All goods, and even can add some EXEC file etc. except ... everytime I shutdown the CP and then quit the hercules, all goes into smoke, both cmsuser and maint USER. I looked at the docker internal and find this vm370ce.conf (and are those disk ro meant read-only) ######################################################################### # Here are the disk drives used by the CMS version from CP/67. # Read the readme-CMS67.txt file before using. 06d0 2314 disks/vm14-0.cckd ro sf=disks/shadows/vm14-0_*.shadow 06d1 2314 disks/vm14-1.cckd ro sf=disks/shadows/vm14-1_*.shadow 06d2 2314 disks/vm14-2.cckd ro sf=disks/shadows/vm14-2_*.shadow 06d3 2314 disks/vm14-3.cckd ro sf=disks/shadows/vm14-3_*.shadow I wonder anyway to enable it to be rw (so that cmsuser can run and keep the source etc.) in any easy manner like copy file, add an exec etc. For your kind advice. P.S. (For the path to add dasd, minidisk, cp gen, ... etc. I am afraid this may be needed. But any other option will be fine :-). Last time really successfully did SYSGEN for DR is 30 yearsa ago. I did not success even MVS 3.8j sysgen about 5-7 years ago. Hence ... well if and only if ...)

I've been trying find/figure this out. A CMS module is of a certain length/size. How do I find out what that size is? Why? because I want to call another module, and have it load above the first one, rather than on top of the first. A related question is: Do I need to specify a full word, or double word, or 4K page boundary as the starting address for the second module? I understand the first one loads at X'020000'. What I have found so far is DMSMOD which GENMOD and LOADMOD come from. It seems there is an 80 byte record at the beginning of the MODULE which contains a number of values, which are stored in NUCON areas, and then written out to the disk file being created. FSVIEW: DMSMOD ASSEMBLE H1 Lines 112-150/725 F80[1-79] FSVIEW V1.2.5 * OPERATION 00112000 * 00113000 * GENMOD- 00114000 * 00115000 * GENMOD ISSUES THE START (NO) COMMAND TO FINISH LOADING OF 00116000 * OBJECT PROGRAMS. NEXT ERASE THE OLD MODULE IF IT EXISTS. 00117000 * THE START AND ENDING LOCATIONS ARE DETERMINED FROM THE 00118000 * USER OPTIONS 'TO' AND 'FROM' OR BY DEFAULT. THE DEFAULT 00119000 * START IS THE ADDRESS OF THE FIRST LOADER TABLE NAME, THE 00120000 * DEFAULT END IS THE CURRENT SETTING OF LOCCNT IN NUCON. 00121000 * AN EIGHTY BYTE RECORD IS WRITTEN AS THE FIRST RECORD OF THE 00122000 * THE MODULE. THIS RECORD CONSISTS OF THE NUCON LOADER INFORMA- 00123000 * TION. NEXT THE TEXT INFORMATION IS WRITTEN TO THE MODULE 00124000 * FILE IN VARIABLE SIZE RECORDS UP TO 65535 BYTES. IF THE 00125000 * MODULE IS NOT FOR A TRANSIENT ROUTINE AND NOMAP WAS NOT 00126000 * SPECIFIED THE LOADER TABLE IS WRITTEN AS THE LAST MODULE 00127000 * FILE RECORD. CLOSE THE NEW MODULE FILE AND RETURN TO THE 00128000 * CALLER. 00129000 * 00130000 * LOADMOD- 00131000 * 00132000 * LOADMOD CHECKS FOR THE EXISTENCE OF THE REQUESTED MODULE 00133000 * THEN READS THE TEXT INFORMATION INTO THE LOCATIONS SET 00134000 * UP WHEN THE MODULE WAS CREATED. THE MODULE NAME IS 00135000 * STORED IN THE APPROPRIATE NUCON LOCATION. IF THERE IS 00136000 * A LOADER TABLE RECORD IN THE MODULE IT IS READ INTO 00137000 * THE LOADER TABLE LOCATION IN STORAGE. SELECTED LOADER 00138000 * INFORMATION IS STORED IN NUCON. RETURN TO CALLER 00139000 *. 00140000 ... FSVIEW: DMSMOD ASSEMBLE H1 Lines 289-327/725 F80[1-79] FSVIEW V1.2.5 STBUFF LA R0,10 GET BUFFER FOR FIRST RECORD 00289000 DMSFREE DWORDS=(0),TYPCALL=BALR 00290000 LR R9,R1 R9 IS BUFFER ADDRESS 00291000 ST R9,DSKLIN+28 PUT IN PLIST 00292000 MVC 0(80,R9),STRTADDR MOVE LOADER INFORMATION TO BUFFER 00293000 STH R8,TBENT-STRTADDR(R9) SAVE LDR TABLE COUNT 00294000 MVC DSKLIN+32(4),=XL4'50' SET TO WRITE 80 BYTES 00295000 LA R1,DSKLIN ADDR. OF WRITE PLIST 00296000 L R15,AWRBUF ADDR. OF WRBUF 00297000 BALR R14,R15 WRITE FIRST RECORD OF MODULE 00298000 ... NUCON ... FSVIEW: CMSHRC MACLIB F1 Lines 1285-1323/3391 F80[1-79] FSVIEW V1.2.5 STRTADDR DC 1F'0' MODULE STARTING ADDRESS 00252100 FRSTLOC DC 1F'0' MODULE BEGINNING ADDRESS 00252200 LASTLOC DC 1F'0' MODULE ENDING ADDRESS 00252300 LOCCNT DC 1F'0' LOADER LOCATION COUNTER 00252400 LDRADDR DC 1F'0' LOADER RETURN ADDRESS 00252500 LDRRTCD DC 1F'0' LOADER RETURN CODE 00252600 PSW DC 1D'0' USER'S STARTING PSW 00252700 LDRFLAGS DC 1F'0' LOADER FLAGS 00252800 PRHOLD DC 1F'0' PSEUDO REGISTER COUNTER 00252900 TBENT DC H'0' INITIALIZE TABLE ENTRIES TO 00262000 * ZEROES 00262100 ... So when I hexdump, sorry HEXPRINT the file, I get the following which I edited, inserting spaces between each fullword. HEX RECORD: 000001 RECORDLENGTH: 000080 ---- +--- -|-- --+- ---| ---- +--- -|-- --+- ---| ---- +--- -|-- --+- ---| ---- +--- -|-- --+- ---|----+----| 000000 .... .... .... .... ...O .... .... .... .... .... .... .... .... .... .... Z... .... .... .... .... ZONE 0000 0000 0000 0000 002D 0000 0000 0001 4800 0000 0000 0000 0000 0000 0000 E000 0000 0000 0000 0006 NUMBR 0200 0200 0258 0258 0156 0000 0000 001F 4003 0000 0300 0000 0000 0000 0000 9000 0000 0000 0000 00E9 |STRTADDR |FRSTLOC |LASTLOC |LOCCNT |LDRADDR |LDRRTCD |PSW |LDRFLAGS |PRHOLD | 00020000 00020508 000125D6 00000000 44800003 00030000 00000000 00000000 000000

I am trying to install (I think I have) on VM370CE_1_1_2. When I try to execute it I get MAIL 355 *-* " Error 15 running MAIL, line 355: Invalid hexadecimal or binary string and it stops. The documentation indicate it was installed under VM370CE_1_1_1. Is there a difference in the two. Would really like to get it going under 1_1_2 Thank You Tom c

Hello, How does someone report a bug to VMCE (CP, CMS, RSCS, etc.)? I looked but couldn't find the location. Thank you, Bertram Moshier WB8ERT

This question is directed to anyone that can remember or that can provide evidence: Even though Mark Waterbury is designated by groups.io as the person that uploaded the files in the "Waterloo Tapes" folder of our group's Files area (/g/h390-vm/files/Waterloo%20Tapes), he tells me it was actually someone else that originally uploaded them to the old (now defunct) Yahoo group's files area. Does anyone recall (or can anyone provide evidence) of who the ORIGINAL uploader was? (i.e. where the files *originally* came from?) I would like to archive a copy of the tapes on my SoftDevLabs FTP site as well (for safekeeping), but I want to be sure to give credit to whoever it was that originally created and uploaded them for us. The tape themselves (i.e. their contents) came from the VM SHARE Project, via the University of Waterloo, courtesy of Sandra Ward, of course. But does anyone know who it was that actually created the .aws files themselves (presumably from a copy of the original physical tapes themselves) and uploaded them for us? Thanks. p.s. to Dave Wade: may I include your two executil.aws and recall.aws files too? -- "Fish" (David B. Trout) Software Development Laboratories http://www.softdevlabs.com mail: fish@...