headers
halfmeg | 11 Dec 2010 00:46
Picon
Favicon

BETA News 10-12-10

 

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 time wise, emotionally and mentally for some unknowable period of time.

Therefore there is no time line for release of anything.

Phil

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 0 comments |
headers
mfnoel | 7 Dec 2010 00:26
Picon

KICKS 1.1.2 is now available

 

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!

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 2 comments |
headers
Harold Bell | 6 Dec 2010 13:36
Picon
Favicon

$SFE not valid in mvs0080?

 

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
__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 5 comments |
headers
Harold Bell | 6 Dec 2010 12:46
Picon
Favicon

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

 

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
__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 1 comment |
headers
Harold Bell | 1 Dec 2010 03:04
Picon
Favicon

cobuclg and example - symbol not found - tk3upd

 

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)               &nbsp ;        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         &nbs p;   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     XXSYSPUNCH DD  DUMMY
   12     //COB.SYSIN    DD *                                                     00040000
   13     XXLKED    EXEC PGM=IEWL,
          XX             COND=(4,LT,COB),
          XX             PARM='XREF,LIST,LET,MAP',
          XX              REGION=1024K
   14     XXSYSLIN   DD  DISP=(OLD,DELETE),DSN=*.COB.SYSLIN
   15     XX         DD  DDNAME=SYSIN
   16     XXSYSLMOD  DD  DISP=(,PASS),DSN=&G(GO),
          XX             UNIT=&UNT,
          XX             SPACE=(1024,(50,20,1))
   17     //LKED.SYSLIB   DD DSNAME=SYS1.COBLIB,DISP=SHR                        &nbs p; 00200000
          X/SYSLIB   DD  DISP=SHR,DSN=SYS1.COBLIB
   18     //              DD DSNAME=SYS1.LINKLIB,DISP=SHR                         00210000
   19     XXSYSUT1   DD  UNIT=&UNT,SPACE=(1024,(50,20))
   20     XXSYSPRINT DD  SYSOUT=&SOUT
   21     XXGO      EXEC PGM=*.LKED.SYSLMOD,
          XX             REGION=2048K,
          XX     &nbsp ;       COND=((5,LT,COB),(5,LT,LKED))
   22     //GO.SYSPRINT   DD SYSOUT=A                                             00220000
STMT NO. MESSAGE
-
    4     IEF653I SUBSTITUTION JCL - PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP'
    5     IEF653I SUBSTITUTION JCL - SYSOUT=*
    6     IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(80,(500,100))
    7     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
    8     IEF653I S UBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
    9     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
   10     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
   16     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,
   19     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(1024,(50,20))
   20     IEF653I SUBSTITUTION JCL - SYSOUT=*
   21     IEF657I SYMBOL NOT DEFINED IN PROCEDURE


by hacking the original sys2.proclib(cobuclg) to pieces I think it's the *.lked.syslmod that it is choking on but I'm a jcl newbie and cannot figure out how to fix it.  Thanks for any help.

 Buddy
__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 3 comments |
headers
mfisher_ix | 27 Nov 2010 00:27
Picon
Favicon

COBUCL?

 

Hello,

I wonder if you could help mediate a conflict at my Tur(n)key site.

The grumpy MVS operator (my alter ego) would like the COBOL programmers to stop commandeering his console by using the UPON CONSOLE clause in DISPLAY and ACCEPT statements. He says he'll shoot anyone who ever uses these clauses, "for the good of the state".

On the other hand, the antiquarian COBOL programmer (also me) would like to run an interactive COBOL program containing DISPLAY and ACCEPT statements. He says it's his laptop, and his hobby.

I think Mike Murach has shown the way to a peaceful resolution, but am not too clear on the details. Pages 530-531 of Murach's Mainframe COBOL show the TSO commands to allocate SYSIN and SYSOUT, and to call a COBOL load module.

Since the Tur(n)key #3 has no COBUCL job, I'm sure you can see my questions coming from a mile away. If these questions don't bore you too much, I'd like to know:

1) How to code COBUCL. I've seen Jay Moseley's version, but am not sure if it needs any alterations to be used in the Tur(n)key.

2) How (and whether) to use RPF to create a PDS for my COBOL load modules. I've already figured out how to create a PDS named HERC01.TEST.COBOL for my COBOL programs, so the question is how and whether to manually create the corresponding HERC01.TEST.LOADLIB PDS for load modules.

3) What JCL to include in a COBOL job that's meant to be compiled and link-edited, saved for later use, and then called from TSO.

My System/370 JCL book should arrive next week. I also intend to try running KICKS for TSO someday, which would make these moot points. But in the meantime, I'm stumped.

Mit freundlichen Gruessen, und immer mit der Ruhe,

- Matt Fisher

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 3 comments |
headers
Joe Smith | 22 Nov 2010 20:05
Picon
Favicon

TK3upd Documentation

 

Is there a list that documents what was added to or changed in tk3upd?

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 1 comment |
headers
Carlos Aguilera Sr | 15 Nov 2010 13:11
Picon
Favicon

ISPF ISPTLIB profile table format

 

It should be PO FB LRECL=80

 

Carlos Aguilera Sr.

1401 Liggates Rd.

Lynchburg, VA 24502

434-401-4828

Carlos-FiVMtmHp2a9Wk0Htik3J/w@public.gmane.org

 

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 4 comments |
headers
Wally Mclaughlin | 15 Nov 2010 04:58

ISPF ISPTLIB profile table format

 

Does anybody know what the format of an ISPF ISPTLIB table such as ISPPROF looks like?

 

I'm trying to create a profile table using an external program that will be compatible with ISPF.

 

I know that each table entry looks something like:

 

Varnamel dc    al1(variable name length)

Varname  dc    cl8'variable name' 

Vardatal dc    al2(data length)

Vardata  dc    clnn'data'    

 

But I'm stuck on what the format of the somewhat complicated header is.  

 

 

Thank you for your help.

 

Wally Mclaughlin

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 0 comments |
headers
Carlos Aguilera Sr | 14 Nov 2010 19:30
Picon
Favicon

JRP

 

What do I need to do to the configuration file to get JRP to work.

 

I am using Windows XP with the Hercules GUI.

 

TK3UPDT has a defined 3780 RJE printer, it also has a 3284 printer define at 1C7, but Hercules does not recognize 3284 as a valid device, also the RJE printer is a BSINC definition but there is no port number I can use, maybe it has but I do not know which it is or the device number to use.

 

I am a tiny bit confused, please help. J

 

Thanks

 

Carlos Aguilera Sr.

1401 Liggates Rd.

Lynchburg, VA 24502

434-401-4828

Carlos-FiVMtmHp2a9Wk0Htik3J/w@public.gmane.org

 

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 2 comments |
headers
Carlos Aguilera Sr | 14 Nov 2010 13:26
Picon
Favicon

Receive command terminated

 

INMR909A You may enter DSNAME, SPACE, UNIT, VOL, OLD/NEW, or RESTORE/COPY/DELETE

 

What did you actually responded to this message?

 

Carlos Aguilera Sr.

1401 Liggates Rd.

Lynchburg, VA 24502

434-401-4828

Carlos-FiVMtmHp2a9Wk0Htik3J/w@public.gmane.org

 

__._,_.___
Recent Activity:
.

__,_._,___
Permalink | Reply | 1 comment |

Gmane