gmane.comp.emulators.turnkey-mvs

Re: BETA News 10-05-21 -- ALPHA Released

halfmeg — 2010-12-17T01:01:50







If you are willing to run with loadlibs with which there was a problem during incorporation into TK3SU1, but may be ok to use, and you are running TK3UPD BETA you can run the below linkedit job.

//RELNK001 JOB 1,'JOE PROGRAMMER'
//STEP001  EXEC PGM=IEWL,REGION=512K,                                  
// PARM='LET,LIST,XREF,NCAL'                                           
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  SPACE=(CYL,(5,1)),UNIT=SYSDA                            
//SYSLMOD  DD  DISP=SHR,DSN=SYS2.CMDLIB
//LIBIN    DD  DISP=SHR,DSN=SYS2.CMDLIB
//SYSLIN   DD  *           
   INCLUDE  LIBIN(SUPRTREK)
   ENTRY MAIN
   NAME  SUPRTREK(R)                                                  
/*
//

After the job runs, with RC 00, enter 's dbstop' on MVS console, after dbstop ends, then enter 's dbstart' on MVS console.  This is similiar to refreshing LLA IIRC.

This still doesn't address compilation from source and there may be work on that as well since there is a modification to the source to fix a bug.

Phil

Re: BETA News 10-05-21 -- ALPHA Released

halfmeg — 2010-12-11T16:46:36



 
 



While looking for my WATFIV testing above to compile SUPRTREK from source, I took a quick look at the original SUPRTREK and how it was included in TK3SU1, it wasn't in original TK3.

The source code in CBT249.FILE038 won't compile with our levels of Fortran ( G & H ), but will with WATFIV.  As posted before, perhaps 40 or so FORMAT statements need to be added along with multiple changes as a single FORMAT affects multiple associated INPUT statements, maybe 140 or so changes total.

WATFIV allows running from source but it has to compile each time as WATFIV doesn't create an object or load module that is saved for re-execution.

Anyway, for those who can't wait or wish to experiment with SUPRTREK as originally distributed sometime ( early 80s ? ) you can:

Utilizing TK3UPD ( only one I have tested )
Place the CBT DASD in the DASD directory
Copy with Replace the following 8 members from CBT249.FILE035 to SYS2.CMDLIB.

BPAGE
CPAGE
DEDUCT
RANKING
QDATE
QTIME
ST79INIT
SUPRTREK

I think I have those corr

BETA News 10-12-10

halfmeg — 2010-12-10T23:46:57

As some may know there is some renewed activity concerning the attempt to get TK3UPD out of BETA status.

Posts in h390.mvs concerning a modification to SORT to enable use of 3350 and 3390 DASD .  That has not been without it's problems and full use of DASD more modern than 2314 has been limited by the design of the original sort programs.  Even so, DASD sort capacity and LRECL size have been increased by quite a bit.

Other items that I am also wanting to incorporate or am waiting on :

Feedback ( some already received ) from saucyjacks work with JES3 and CTC enabling ( some Herc mods required - not necessarily a show stopper ) between 2 MVS instances.

MP working properly ( Herc fixes ) and/or ZAP but leaving with excessive CPU looping ( not my favorite idea ).

Clean up/fix of BRODCAST, LOGREC, a couple of JES2 and JES3 datasets.

Adding some HELP info, perhaps some additional Documentation as well.

Some other assorted items.

The down side is there are still real life demands which will take their toll

RE: KICKS 1.1.2 is now available

Carlos Aguilera Sr — 2010-12-08T18:38:12

Sorry I posted this to the group, it was meant only for Mike.

 

Happy Holidays to all

 

Carlos Aguilera Sr.

1401 Liggates Rd.

Lynchburg, VA 24502

434-401-4828

Carlos-FiVMtmHp2a9Wk0Htik3J/w< at >public.gmane.org

  _____  

From: turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org [mailto:turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org] On
Behalf Of Carlos Aguilera Sr
Sent: Wednesday, December 08, 2010 1:07 PM
To: turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org
Subject: RE: [turnkey-mvs] KICKS 1.1.2 is now available

 

  

Hi Mike:

 

I compiled my program, my maps, defined them in the FCT PPT PCT and
reassembled them, also reassembled the SIT, defined my file with IDCAMS and
used Gilbert Saint-Flour's INITKSDS to seed it. Also defined the file in the
KICKS Clist.

 

After I start KICKS and type my transaction I get the following message:

 

Vnd1  Transaction Abend Code VER3

 

It is not a CICS abend so I can not dig into the manuals and find it.

 

Vnd1 is my TRANSID

 

I tried tracing it w

RE: KICKS 1.1.2 is now available

Carlos Aguilera Sr — 2010-12-08T18:06:41

Hi Mike:

 

I compiled my program, my maps, defined them in the FCT PPT PCT and
reassembled them, also reassembled the SIT, defined my file with IDCAMS and
used Gilbert Saint-Flour's INITKSDS to seed it. Also defined the file in the
KICKS Clist.

 

After I start KICKS and type my transaction I get the following message:

 

Vnd1  Transaction Abend Code VER3

 

It is not a CICS abend so I can not dig into the manuals and find it.

 

Vnd1 is my TRANSID

 

I tried tracing it with KEDF but it does not trap it.

 

Any toughts?

 

Thanks

 

Carlos Aguilera Sr.

1401 Liggates Rd.

Lynchburg, VA 24502

434-401-4828

Carlos-FiVMtmHp2a9Wk0Htik3J/w< at >public.gmane.org

  _____  

From: turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org [mailto:turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org] On
Behalf Of mfnoel
Sent: Monday, December 06, 2010 6:27 PM
To: turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org
Subject: [turnkey-mvs] KICKS 1.1.2 is now available

 

  

KICKS 1.1.2 is now available
at http://home.g

Re: Re: $SFE not valid in mvs0080?

Greg Price — 2010-12-07T12:16:40


Probably doesn't matter much, and if it works then it works,
but I'd code it as X'2902C04042??' assuming you wanted
it as field that can be typed over.

Cheers,
Greg

Re: Re: $SFE not valid in mvs0080?

Harold Bell — 2010-12-07T11:42:38

I was trying to get color added to a TSO logon screen banner generator that I 
coded as a java web applet.  I found it a quick workaround to skip the macro and 
code the stream segment as a DC  X'2902C0C042??' with ?? being color code.

 Buddy





________________________________
From: Chris Mason <chrismason-ytnthM/UnKfk1uMJSBkQmQ< at >public.gmane.org>
To: turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org
Sent: Mon, December 6, 2010 9:23:29 AM
Subject: [turnkey-mvs] Re: $SFE not valid in mvs0080?

Harold

Rather strangely, this list/newsgroup to which I subscribed some time ago - 
mainly to deal with problems/issues such as this peripheral to 
"turnkey-mvs" - seems to have sprung into life just recently.

However, in order to address your problem, as Greg Price hinted, your 
"unidentified op code" is not so much a matter of "3270" as of assembler 
macros.

In order to 'find an "official" list of possible color literals that might 
appear in the statement', you can do it the easy way which is to find the 
doc

KICKS 1.1.2 is now available

mfnoel — 2010-12-06T23:26:41

KICKS 1.1.2 is now available
at http://home.gci.net/~mike-noel/KICKS/kicks-download.htm 
What's New? ENQ/DEQ and GETMAIN/FREEMAIN api's, a few unrelated tweaks to the COBOL preprocessor, plus the usual fixes. See ...TESTCOB and ...TESTGCC files ENQDEQ and GETFREE for usage.
Other than hot fixes as necessary this is probably the last code update for the year. I'm shortly off on Xmas vacation and after that (mid January) I'll focus on improved documentation and examples.

Merry Christmas!
 and a Happy New Year!

Re: $SFE not valid in mvs0080?

Chris Mason — 2010-12-06T14:23:29

Harold

Rather strangely, this list/newsgroup to which I subscribed some time ago - 
mainly to deal with problems/issues such as this peripheral to 
"turnkey-mvs" - seems to have sprung into life just recently.

However, in order to address your problem, as Greg Price hinted, your 
"unidentified op code" is not so much a matter of "3270" as of assembler 
macros.

In order to 'find an "official" list of possible color literals that might 
appear in the statement', you can do it the easy way which is to find the 
documentation which covers this "unofficial" $SFE macro wherever it may be - 
or - you can do it the only slightly more difficult way which is to examine 
what the macro will accept - as again Greg Price hinted.

It may be and indeed should be that the code generated by the keyword 
parameters which the £SFE macro accepts - as I judge from its name and 
apparent intended use - corresponds to the reference given to you by Phil 
"halfmeg".

As someone who knows a bit about SNA and VTAM (and even 3270)

Re: $SFE not valid in mvs0080?

Harold Bell — 2010-12-06T13:57:54

________________________________
From: Greg Price <greg.price-sFbbPxZDHXw0n/F98K4Iww< at >public.gmane.org>
To: "turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org" <turnkey-mvs-hHKSG33TihhbjbujkaE4pw< at >public.gmane.org>
Sent: Mon, December 6, 2010 8:38:26 AM
Subject: Re: [turnkey-mvs] $SFE not valid in mvs0080?

On Mon, 6 Dec 2010 04:36:56 -0800 (PST), Harold Bell wrote:

statement:

Which macro library is $SFE in?
When you find that you can browse it to see which
color names it recognizes.

Cheers,
Greg

Thank you for your help.  I found that the tk3 I am using does not have that 
macro defined and I replaced it with a  DC X'.  Now my web app seems to be 
pumping out netsol banners with color.  It can be seen and tried out at 
www.mvswiki.org/Make3270.php.  Any comments would be welcome.  Thanks.  Buddy

Re: $SFE not valid in mvs0080?

Greg Price — 2010-12-06T13:38:26



Which macro library is $SFE in?
When you find that you can browse it to see which
color names it recognizes.

Cheers,
Greg

$SFE not valid in mvs0080?

Harold Bell — 2010-12-06T12:36:56

I am getting an undefined op code error in mvs0080 with the following statement:

$SFE  ATTR=SKIP,COL=YELLOW

My level of understanding concerning the 3270 is abysmal.  Any help would be 
appreciated.  Thanks.  Buddy

Re: valid color literals for $SFE ATTR=SKIP,COL=YELLOW

halfmeg — 2010-12-06T12:32:31




 

Maybe :

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CN7P4000/6.13.3?SHELF=&DT=19920626112004&CASE=

will help.

Phil

valid color literals for $SFE ATTR=SKIP,COL=YELLOW

Harold Bell — 2010-12-06T11:46:06

I am putting the finishing touches on a java web applet to produce assembler 
code for insertion into mvs0080 to make a netsol screen.  I am trying to get 
color to work and cannot find an "official" list of possible color literals that 
might appear in the statement

 "$SFE   ATTR=SKIP,COL=YELLOW"

Any help would be appreciated.  Thanks.  Buddy

Re: cobuclg and example - symbol not found - tk3upd

mfisher_ix — 2010-12-05T18:58:59


Volker Bandke kindly answered a similar question here, where he points out that a test COBOL job named SYS2.JCLLIB(TESTCOB) exists in Turnkey MVS:

http://osdir.com/ml/emulators.turnkey-mvs/2003-06/msg00022.html

Jay Moseley's COBOL HELLO, WORLD example will also run in Turnkey MVS if you change the EXEC statement from:

    //HELOWRLD EXEC COBUCLG,CPARM1='LIST,LOAD,NODECK'

to:

    //HELOWRLD EXEC COBUCLG,REGION=1024K

Note that spaces are significant in JCL, and messages posted to Yahoo Groups lose their "extra spaces". So you'll get JCL errors if you try to use the code exactly as formatted above. Make sure that COBUCLG, etc. starts at position 16 -- or have a look at the source code in SYS2.JCLLIB(TESTCOB) if you're unsure about the correct formatting.

The output from these HELLO WORLD jobs will appear on your MVS console(s). You'll see something like:

+HELLO, WORLD

Re: cobuclg and example - symbol not found - tk3upd

Rick Fochtman — 2010-12-02T00:40:45

Guess again, Scott.

In the PROC there is not "CPARM1" used, so it can't be specified on the 
EXEC statement that executes the PROC. And those are NOT LKED parms.

Harold, I think what you want is CBLPARM='LIST'  The other values you've 
specified are already on the PARM parameter of the EXEC PGM=IKFCBL00 
statement.

The values for the LKED parm are fine and represent the common set, 
except that I'd remove "LET" unless you want to test the result after an 
unsuccessful link.

Rick

----------------------------------------<snip>-----------------------------

-----------------------------------------<unsnip>-----------------------------------------

Re: cobuclg and example - symbol not found - tk3upd

scott — 2010-12-01T02:12:22

CPARM1 is not used in the procedure.  From the options you listed for
it, it looks like it should go to the link-edit step.  However the parm
for the link-edit step parms does not reference cparm1.

Scott

On 11/30/2010 09:04 PM, Harold Bell wrote:

cobuclg and example - symbol not found - tk3upd

Harold Bell — 2010-12-01T02:04:07

I am trying an example cobol program I found on Jay Moseley's site and get the 
following message in the printout when it fails to execute.

    1     //COBUCLG JOB (001),'COB HELLO 
WORLD',                                  JOB   19
          //             
CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)                        00020000
    2     //HELOWRLD EXEC 
COBUCLG,CPARM1='LIST,LOAD,NODECK'                       00030000
    3     XXCOBUCLG PROC SOUT='*',
          XX             UNT=SYSDA,
          XX             CBLPARM='SUPMAP'
    4     XXCOB     EXEC PGM=IKFCBL00,
          XX             REGION=4096K,
          XX             PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'
    5     XXSYSPRINT DD  SYSOUT=&SOUT
    6     XXSYSLIN   DD  DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))
    7     XXSYSUT1   DD  UNIT=&UNT,SPACE=(460,(700,100))
    8     XXSYSUT2   DD  UNIT=&UNT,SPACE=(460,(700,100))
    9     XXSYSUT3   DD  UNIT=&UNT,SPACE=(460,(700,100))
   10     XXSYSUT4   DD  UNIT=&UNT,SPACE=(460,(700,100))
   11

Re: State of Turnkey

halfmeg — 2010-11-28T17:23:58

  
  
  
  

Don't remember if you have a single processor host or multi-processor host.  From your other posts think you may be running a LINUX host.

Would like to nail down the problem of the spin and your experience above may give a hard fail to pin point the issue(s).

Just wanting to be sure on what type of environment to test on.

Phil

Re: COBUCL?

mfisher_ix — 2010-11-27T16:25:02

I also forgot to mention one step:

Create a COBUCL member in the SYS2.PROCLIB PDS. This should be identical to the existing member SYS2.PROCLIB(COBUCLG), except you should delete the //GO line.

Re: COBUCL?

mfisher_ix — 2010-11-27T16:14:24

Correction:

CALL 'HERC01.TEST.LOADLIB(TESTCOB)'