I just went from VSE 3.1.1 TS 1.1.1 è VSE 4.1.1 TS 1.1.1
Went well and 99% of everything is great.
I do have one oddity, we have a process to take cash payments and print out a receipt for the customer. Before the upgrade, the rep would hit enter on the trans (PMIN) and in a few
seconds (6 to 8) a receipt printed out. Now it takes a minute plus those few seconds. It’s like there is a delay turned on somewhere, holding up the print out.
The program writes the data to a TD que that has a trigger of 1. When it hits the que, a print program grabs it and prints it to the correct printer. When I look at Explore data, it shows no response lag in the original tran PMIN or the PRNT tran that gets triggered, they show the same task time. If I use CECI and do a WRITEQ to the same printer, it takes the original 6 to 8 seconds, as it did under 3.1.1. Neither of the two tran/programs have been recompiled. My sit has been recompiled to add two new parms, needed for BIM FAQS/CPR – “EXEC=YES” and “EXITS=YES” .
It looks like some delay parm somewhere got reset to 60 seconds, but I can’t find it……. Help…….
Thanks,
Steve Sheerin
Clark Public Utilities
-----Original Message-----
From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of Paul L'Heureux
Sent: Friday, May 30, 2008 12:58 PM
To: VSE Discussion List
Subject: In Defense Of SLI's
Mike,
Throughout VSE history, SLI’s have been treated with disdain.
This probably has to do with the fact that you have to get used to changing
/* to * $$/*
/& to * $$/&
* $$ to * $x etc.
But really they are sorta cool and will work perfectly for what you want to do.
Here is an example of cataloging a SLI member:
* $$ JOB JNM=REBPAY,DISP=D,PRI=3,CLASS=0
* $$ LST CLASS=Z,DISP=L,DEST=*
// JOB REBPAY
// LOG
// EXEC LIBR
A S=PRD2.FILES
CATALOG REBPAY.FIL EOD=YY DATA=YES REPLACE=YES
// JOB DEFINE DEFINE FILE
* $X LST CLASS=Z,DISP=L
// LOG
// DLBL IJSYSUC,'USER.CATALOG.FOURTEEN',,VSAM
// EXEC IDCAMS,SIZE=AUTO
/* */
/* REBPAY */
/* */
DEL (RE.BTAX.PAYMENT.FILE ) CL PRG
DEF CL(NAME(RE.BTAX.PAYMENT.FILE ) -
TO(99999) BUFSP(008704) -
NRUS ) -
IX(NAME(RE.BTAX.PAYMENT.FILE.INDEX ) -
CYL( 1 1) USCL(0 ) -
CISZ(00512 ) SHR(2 3) -
VOL(WILL43) -
) -
DATA(NAME(RE..BTAX.PAYMENT.FILE.DATA ) -
SPEED FSPC(015 015) KEYS(023 00000) -
CYL( 4 1) USCL(0 ) -
CISZ(04096 ) SHR(2 3) RECSZ(000100 000100) -
VOL(WILL43) -
)
* $$/*
* $$/&
YY
/*
/&
$$ EOJ
To execute this “proc” the JCL would be:
* $$ JOB JNM=SLI001,DISP=D,PRI=3,CLASS=4
* $$ SLI MEM=REBPAY.TST,S=PRD2.FILES
* $$ EOJ
True the members would not be “.PROC” ‘S but can be something you can make up. (like .FIL)
POWER searches thru its LIBDEF chain to find the member and it will have no problem with your LST cards.
Give ‘em a try they ain’t so bad.
Paul
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________