Jim, 听 Which README file? The problem is that there are two run-time libraries. One that is supplied with GCCCMS and which uses the OS macros, and one that has been written by VMers that uses the native CMS macros. This means there are two sets of 鈥�.h鈥� files and the GCC exec on the 鈥淵鈥� disk chooses by linking and access the appropriate disk from GCCCMS. When you try and do this from GCCCMS you get in a mess鈥�. 鈥� I would never recommend using distribution IDs for development.. 听 Dave 听 听 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Jim Snellen
Sent: 25 January 2021 00:52
To: [email protected]
Subject: Re: [h390-vm] Two New Projects听 Hi Peter,
Thanks for the feedback.听 The instructions in the README file says to use GCCCMS although it also says it was tested in 6PExt.
Does it not work in plain old 1.2 Sixpack?听 Perhaps that's where I went wrong.听 I'll try CMSUSER next then 6PExt/CMSUSER.
So far, I have Sixpack 1.2, Sixpack 6PExt, and Sixpack 1.3 Beta.听 I presume 1.3 Beta will become VM/370 CE 1.3.0 some day.
Do you know if CE 1.3.0 will be cumulative of the 3 flavors I have?听 I'm a little confused. . .听
Jim
|
Hi Peter,
Thanks for the feedback.听 The instructions in the README file says to use GCCCMS although it also says it was tested in 6PExt.
Does it not work in plain old 1.2 Sixpack?听 Perhaps that's where I went wrong.听 I'll try CMSUSER next then 6PExt/CMSUSER.
So far, I have Sixpack 1.2, Sixpack 6PExt, and Sixpack 1.3 Beta.听 I presume 1.3 Beta will become VM/370 CE 1.3.0 some day.
Do you know if CE 1.3.0 will be cumulative of the 3 flavors I have?听 I'm a little confused. . .听
Jim
|
Diagnose 58 is in the base VM/370. The base version only supports the X'19' CCW which is not a fullscreen interface. CLRSCRN, and my example program use Diagnose 5 with a X'19' CCW. That works fine on a VM system without the fullscreen CCW support in the Diagnose 58 Sixpack modifications.
Bob
If you look at the source for CLRSCRN it does not use DIAG 58 and works on systems without the DIAG 58 updates鈥�. 听 Dave 听 听 听 听 听 听Here is a sample sequence: 听 听 听 听 听 听 STM听 R14,R12,12(R13) 听 听 听 听 听WAITT , 听 听 听 听 听 听 听WAIT FOR TERMINAL ACTIVITY TO STOP.
听 听 听 听 听L 听 听 R3,ADEVTAB 听 听 GET ADDRESS OF DEVICE TBL IN NUCON
听 听 听 听 听LH 听 听R2,0(R3) 听 听 听 GET THE CONSOLE ADDRESS. 听 听 听 听 听
听 听 听 听 听LA 听 听R1,CCWCLEAR 听 听GET ADDRESS OF THE CLEARING CCW. 听
听 听 听 听 听DIAG 听R1,R2,X'58' 听 听ISSUE THE DIAGNOSE FOR CLEARING. 听
听 听 听 听 听 LM听 听R14,R12,12(R13) 听 听 听 听 听 SR听 听R15,R15听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
听 听 听 听 听BR 听 听14 听 听 听 听 听 听 RETURN TO THE CALLER. 听 听 听 听 听 听 听
CCWCLEAR DC 听 听0D'0',X'19',AL3(0),XL2'20FF',AL2(1)听听 听 听 听 听 听 听END听 听 听 听 听 听 听 听 My bad. DIAG 58 does full screen IO but if all you want to do is clear the screen there are simple IO sequences that do that without flipping to 3270 mode. 听 Dave 听 听 听 Dave, I thought we were talking about 听a diag 58 call? Doesnt diag 58 do 3270 full screen IO? 听 Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听 听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
If you look at the source for CLRSCRN it does not use DIAG 58 and works on systems without the DIAG 58 updates鈥�. 听 Dave 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Bob Bolch
Sent: 24 January 2021 14:09
To: [email protected]
Subject: Re: [h390-vm] GCC under VM370 CMS听 听 听 听 听Here is a sample sequence: 听 听 听 听 听 听 STM听 R14,R12,12(R13) 听 听 听 听 听WAITT , 听 听 听 听 听 听 听WAIT FOR TERMINAL ACTIVITY TO STOP.
听 听 听 听 听L 听 听 R3,ADEVTAB 听 听 GET ADDRESS OF DEVICE TBL IN NUCON
听 听 听 听 听LH 听 听R2,0(R3) 听 听 听 GET THE CONSOLE ADDRESS. 听 听 听 听 听
听 听 听 听 听LA 听 听R1,CCWCLEAR 听 听GET ADDRESS OF THE CLEARING CCW. 听
听 听 听 听 听DIAG 听R1,R2,X'58' 听 听ISSUE THE DIAGNOSE FOR CLEARING. 听
听 听 听 听 听 LM听 听R14,R12,12(R13) 听 听 听 听 听 SR听 听R15,R15听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
听 听 听 听 听BR 听 听14 听 听 听 听 听 听 RETURN TO THE CALLER. 听 听 听 听 听 听 听
CCWCLEAR DC 听 听0D'0',X'19',AL3(0),XL2'20FF',AL2(1)听听 听 听 听 听 听 听END听 听 听 听 听 听 听 听 My bad. DIAG 58 does full screen IO but if all you want to do is clear the screen there are simple IO sequences that do that without flipping to 3270 mode. 听 Dave 听 听 听 Dave, I thought we were talking about 听a diag 58 call? Doesnt diag 58 do 3270 full screen IO? 听 Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听 听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
听 听 听 听Here is a sample sequence: 听 CLR听 CSECT 听 听 听 听 听 USING NUCON,0 听 听 听 听 听 STM听 R14,R12,12(R13) 听 听 听 听 听 LR听 听R12,R15 听 听 听 听 听 USING CLR,R12 听 听 听 听 听WAITT , 听 听 听 听 听 听 听WAIT FOR TERMINAL ACTIVITY TO STOP.
听 听 听 听 听L 听 听 R3,ADEVTAB 听 听 GET ADDRESS OF DEVICE TBL IN NUCON
听 听 听 听 听LH 听 听R2,0(R3) 听 听 听 GET THE CONSOLE ADDRESS. 听 听 听 听 听
听 听 听 听 听LA 听 听R1,CCWCLEAR 听 听GET ADDRESS OF THE CLEARING CCW. 听
听 听 听 听 听DIAG 听R1,R2,X'58' 听 听ISSUE THE DIAGNOSE FOR CLEARING. 听
听 听 听 听 听 LM听 听R14,R12,12(R13)
听 听 听 听 听 SR听 听R15,R15听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
听 听 听 听 听BR 听 听14 听 听 听 听 听 听 RETURN TO THE CALLER. 听 听 听 听 听 听 听
CCWCLEAR DC 听 听0D'0',X'19',AL3(0),XL2'20FF',AL2(1)听听 听 听 听 听 听 听NUCON , 听 听 听 听 听 听REGEQU听, 听 听 听 听 听 听END听 听 听 听 听 听 听
My bad. DIAG 58 does full screen IO but if all you want to do is clear the screen there are simple IO sequences that do that without flipping to 3270 mode. 听 Dave 听 听 听 Dave, I thought we were talking about 听a diag 58 call? Doesnt diag 58 do 3270 full screen IO? 听 Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听 听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
My bad. DIAG 58 does full screen IO but if all you want to do is clear the screen there are simple IO sequences that do that without flipping to 3270 mode. 听 Dave 听 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Joe Monk
Sent: 24 January 2021 13:24
To: [email protected]
Subject: Re: [h390-vm] GCC under VM370 CMS听 Dave, I thought we were talking about 听a diag 58 call? Doesnt diag 58 do 3270 full screen IO? 听 Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听 听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
Dave,
I thought we were talking about 听a diag 58 call? Doesnt diag 58 do 3270 full screen IO?
Joe
Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听 听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
Hi Jim,
I think your problems with NOT ATTACHED and NOT ACCESSED are arising because
you are logged on to GCCCMS. I'd suggest trying to build the code while
logged on to CMSUSER. GCCCMS is only for maintaining GCC and related stuff.
Regards,
Peter Coghlan.
toggle quoted message
Show quoted text
HI Tom, I'm not a C guy but I have done some BASIC stuff in the old days.听 I
followed the directions but I'm getting a DMSACC113S 'T (19F) ' NOT ATTACHED
followed by a DISK 'T' NOT ACCESSED.听 I'm logged into the GCCCMS machine and
these messages occurs when I key *gcc cmsbasic c*.听 I then went ahead with
the directions and *cmsbasic bx10 bas* seems to go into a loop because it
processed well over 4-5 minutes before I re-IPLed CMS.
I then uploaded TBASIC.EXEC and ran it.
tbasic
FILE 'GCCLIB_S TXTLIB' NOT FOUND.
.. ERASE CMSBASIC MAP
.. Compling CMSBASIC
DMSACC113S 'T (19F) ' NOT ATTACHED
DISK 'T' NOT ACCESSED.
.. LOAD CMSBASIC
THE FOLLOWING NAMES ARE UNDEFINED:
STRLEN听 听ISALPHA听 STRCPY听 听STRCMP听 听MALLOC听 听REALLOC听 STRCHR听 听ISDIGIT
FREE听 听 听PRINTF听 听@@EXIT听 听FCLOSE听 听ISUPPER听 FOPEN听 听 FEOF听 听 听FGETC
ATOF听 听 听ATOL听 听 听ATOI听 听 听FGETS听 听 FPRINTF听 SPRINTF听 ISALNUM听 STRCAT
MEMSET听 听FSEEK听 听 FPUTS听 听 REMOVE听 听GETS听 听 听POW听 听 听 ABS听 听 听 ATAN
COS听 听 听 SIN听 听 听 TAN听 听 听 SQRT听 听 听SINH听 听 听TANH听 听 听TOUPPER听 TOLOWER
TIME听 听 听CTIME听 听 ISSPACE听 @@CRT0
.. GENMOD CMSBASIC
.. RENAME MAP
Ready; T=28.69/41.11 20:11:54
What am I doing wrong?
Also, I noticed each C file and BAS file contained a USERID GCCCMS
statement.听 Check out Moshix video M101 on Youtube to get data in/out of
燰M/370 and the Mac/PC.
|
Joe, 听 Thats fine but in 听VM 听the console is not a 3270鈥�. 鈥� if you use that code you will sometimes generate a wait. Look at the source of the CLRSCRN module. 听 Dave 听 听 听 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Joe Monk
Sent: 24 January 2021 12:27
To: [email protected]
Subject: Re: [h390-vm] GCC under VM370 CMS听 The actual code you want is 听x'1140403C40400013'. In 3270 data stream, that means: x'11': Set Buffer Address x'3c': Repeat to 听Address x'00': Character to write So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor. IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen. 听 | 听 | 听 | 听 | 听 | 听 | Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury | | |
|
The actual code you want is 听x'1140403C40400013'.
In 3270 data stream, that means:
x'11': Set Buffer Address x'4040': Row 1, Column 1 x'3c': Repeat to 听Address x'4040: Row 1, Column 1 x'00': Character to write x'13': Insert Cursor
So, 听starting at 听Row 1, Column 1, write hex 00 and repeat until Row 1, Column 1, then Insert the Cursor.
IOW, write hex '00' to every buffer location and put the cursor at row 1, column 听1. Note that 听because this starts and ends at R1C1 it 听is size independent, and so works on any size of screen.
Joe
|
|
| 听 |
听 |
| 听 |
听 |
| 听 |
Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury
|
|
There are lots of incarnations. It was late and I was rushing. What I should have said is that there is the source of a CLRSCRN module on the MAINT CMS mods disk but the module on the 听鈥淵鈥� disk but it GENMODed to load into the user area. So you can鈥檛 run it using 鈥渟ystem()鈥�.听 A 鈥淐LRTPA鈥� module could be made by just loading it elsewhere. It could be made into a subroutine quite simply, you might need some calls to flush the IO before it. You can see the source by logging onto MAINT and doing CMSACC to access the CMS mods disk and it will be on the 鈥淏鈥� drive. 听 Dave 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Thomas Kern via groups.io
Sent: 24 January 2021 00:32
To: [email protected]
Subject: Re: [h390-vm] GCC under VM370 CMS听 I remember a VMFCLEAR module and another VMFCLR module. I do not remember what level of VM or if they were transient modules. Neither one would have been too large to get the text and load/genmod as transient. /Tom On 2021-01-23 18:05, Tom Chandler wrote: Thank you.听 I will investigate and see what I can do. 听 Tom, You need to use a DIAG 58 听call. There are no character sequences that clear the screen. I think the simplest solution is to create a 鈥渃lrscrn鈥� module that loads in the transient area and run that with the system command. Dvae 听 听 I am trying to figure out to perform a clear screen form a "GCC C" program.听 I am using
the wc3270 program on WIndows to talk to Hercules VM370.听 I have tried several
different hex codes with no luck.听 Has anyone using "GCC C VM370 CMS" sent a command to
clear the screen.
Hope this is clear.
Thank You
Tom c
|
I see a CLRSCRN MODULE on the Sixpack 1.3 beta 3 Y-disk.
Bob Bolch
|
Hi Tom Have a look round this听https://github.com/devhawala/mecaff
The home of the brilliant EE editor etc.听 Somewhere in there is the c source for low level diag58 stuff and 3270 datastream err... more stuff!
Adrian
|
Hi, again, Tom,
The first thing to understand is that in VM, with CMS, the "console" when it is a 3270 operates in two "modes" -- a line-at-a-time mode where it is emulating a keyboard printer (3215) type of console, and you can also use the CP DIAG x'58' facility to perform full-screen 3270 I/O.
When you use DIAG x'58' you must supply the actual 3270 data stream.听 You can find relevant manuals on bitsavers.听 Let me know if you need more specific pointers on that.
Tommy Sprinkle has created a nice tutorial on 3270 data streams here:
听
听听 听
It was written for MVS, but the data streams part is the same; you will just be using DIAG x'58' vs. TSO TPUT/TGET ...
The main feature you are looking for is called "Erase Write".听 That's how you clear the screen.
Note that, once you put the console into full-screen mode, CP expects all further interactions to remain "full-screen"...听 you may want to revert to line-at-a-time mode, depending on your needs.
Hope this helps (somewhat) ...
All the best,
Mark S. Waterbury
|
Hi, Tom,
I recall we had MTS LISP running under VM/CMS back in the late 1970s.听听
The way it was done, someone wrote a small "layer" or "jacket" or "wrapper" for all of the MTS system calls, and that layer issued equivalent CMS macros for CMS services.
So, the first step would be to study the code to try to identify and isolate where it interfaces to MTS.
Hope that helps,
Mark S. Waterbury
|
HI Tom, I'm not a C guy but I have done some BASIC stuff in the old days.听 I followed the directions but I'm getting a DMSACC113S 'T (19F) ' NOT ATTACHED followed by a DISK 'T' NOT ACCESSED.听 I'm logged into the GCCCMS machine and these messages occurs when I key gcc cmsbasic c.听 I then went ahead with the directions and cmsbasic bx10 bas听seems to go into a loop because it processed well over 4-5 minutes before I re-IPLed CMS. I then uploaded TBASIC.EXEC and ran it.
tbasic听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
FILE 'GCCLIB_S TXTLIB' NOT FOUND.听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
.. ERASE CMSBASIC MAP听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
.. Compling CMSBASIC听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
DMSACC113S 'T (19F) ' NOT ATTACHED听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
DISK 'T' NOT ACCESSED.听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
.. LOAD CMSBASIC听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
THE FOLLOWING NAMES ARE UNDEFINED:听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
听STRLEN听 听ISALPHA听 STRCPY听 听STRCMP听 听MALLOC听 听REALLOC听 STRCHR听 听ISDIGIT听
听FREE听 听 听PRINTF听 听@@EXIT听 听FCLOSE听 听ISUPPER听 FOPEN听 听 FEOF听 听 听FGETC听 听
听ATOF听 听 听ATOL听 听 听ATOI听 听 听FGETS听 听 FPRINTF听 SPRINTF听 ISALNUM听 STRCAT听听
听MEMSET听 听FSEEK听 听 FPUTS听 听 REMOVE听 听GETS听 听 听POW听 听 听 ABS听 听 听 ATAN听 听听
听COS听 听 听 SIN听 听 听 TAN听 听 听 SQRT听 听 听SINH听 听 听TANH听 听 听TOUPPER听 TOLOWER听
听TIME听 听 听CTIME听 听 ISSPACE听 @@CRT0听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
.. GENMOD CMSBASIC听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听听
.. RENAME MAP听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听 听
Ready; T=28.69/41.11 20:11:54听 听 听 听 听 听 听 听 听
What am I doing wrong?听 听 听 听 听 听 听 听 听 听 听 听 听
Also, I noticed each C file and BAS file contained a USERID GCCCMS statement.听 Check out Moshix video M101 on Youtube to get data in/out of VM/370 and the Mac/PC.
|
I remember a VMFCLEAR module and another VMFCLR module. I do not
remember what level of VM or if they were transient modules.
Neither one would have been too large to get the text and
load/genmod as transient.
/Tom
On 2021-01-23 18:05, Tom Chandler
wrote:
toggle quoted message
Show quoted text
Thank you.听 I will investigate and see what I can do.
Again, Thank You
Tom c
Tom,
You need to use a
DIAG 58 听call. There are no character sequences that
clear the screen. I think the simplest solution is to
create a 鈥渃lrscrn鈥� module that loads in the transient
area and run that with the system command.
Dvae
听
听
I am trying to figure out to
perform a clear screen form a "GCC C" program.听 I am
using
the wc3270 program on WIndows to talk to Hercules
VM370.听 I have tried several
different hex codes with no luck.听 Has anyone using
"GCC C VM370 CMS" sent a command to
clear the screen.
Hope this is clear.
Thank You
Tom c
|
Thank you.听 I will investigate and see what I can do.
Again, Thank You
Tom c
Tom, You need to use a DIAG 58 听call. There are no character sequences that clear the screen. I think the simplest solution is to create a 鈥渃lrscrn鈥� module that loads in the transient area and run that with the system command. Dvae 听 听 I am trying to figure out to perform a clear screen form a "GCC C" program.听 I am using
the wc3270 program on WIndows to talk to Hercules VM370.听 I have tried several
different hex codes with no luck.听 Has anyone using "GCC C VM370 CMS" sent a command to
clear the screen.
Hope this is clear.
Thank You
Tom c
|
Tom, You need to use a DIAG 58 听call. There are no character sequences that clear the screen. I think the simplest solution is to create a 鈥渃lrscrn鈥� module that loads in the transient area and run that with the system command. Dvae 听
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Tom Chandler
Sent: 23 January 2021 20:31
To: [email protected]
Subject: [h390-vm] GCC under VM370 CMS听 I am trying to figure out to perform a clear screen form a "GCC C" program.听 I am using
the wc3270 program on WIndows to talk to Hercules VM370.听 I have tried several
different hex codes with no luck.听 Has anyone using "GCC C VM370 CMS" sent a command to
clear the screen.
Hope this is clear.
Thank You
Tom c
|
I am trying to figure out to perform a clear screen form a "GCC C" program.听 I am using
the wc3270 program on WIndows to talk to Hercules VM370.听 I have tried several
different hex codes with no luck.听 Has anyone using "GCC C VM370 CMS" sent a command to
clear the screen.
Hope this is clear.
Thank You
Tom c
|
Jim Snellen
Thomas Kern