Re: problem with aquire of sna cics printers

New Message Reply Date view Thread view Subject view Author view Other groups

Subject: Re: problem with aquire of sna cics printers
fjpohlen-maillist@gmx.de
Date: Mon Jun 23 2008 - 05:14:38 EDT 

Dave,

thanks for the answer. I can only find a DFHZNEP.A in the CICSOLDP 
sublib. Can this source also be used for CICSTS or is the source for TS 
elsewhere.

         DFHEJECT                                               BD910VP
DFHZNEP  CSECT                                                  BD9HCTM
         SPACE 1                                                BD9602L
*        ORDER OF DSECTS IS CRITICAL - TCA/TWA IS DEPENDANT     BD9602L
*        ON DEFINITIONS IN TCTTE AND RPL                        BD9602L
         SPACE 1                                                BD9602L
         DFHPRINT  DSCT=START                                   BBDA00X
         DFHTCPSV DSECT=(CSA,TCTTE,RPL,TCA),                    BD9602L*
               SAVE=NO,BASE=NO                                  BD9HCTM
         DFHPRINT  DSCT=END                                     BBDA00X
DFHZNEP  CSECT                                                  BD5021A
***********************************************************************
***   ADDITIONAL REGISTER EQUATES (TO THOSE BROUGHT IN BY DFHTCPSV) ***
***********************************************************************
BASEREG  EQU   5                   BASE REGISTER                BD5021A
         SPACE 5                                                BD5021A
         DFHVM ZNEP                                             BA41496
         ENTRY DFHZNENA                                         BBDB80J
DFHZNENA DS    0H                                               BBDB80J
         BALR  BASEREG,0           ESTABLISH BASE REG.          BD5021A
         USING *,BASEREG           BASE REGISTER                BD5021A
         CLI   TWAEC,TCZSRCSP      VTAM STORAGE PROB.ERROR CODE        *
                                   IN REAL TCTTE ?              BD5021A
         BNE   NEP0AF              NO,SET UP MANDATORY ACTIONS  BD5021A
         OI    TWAOPT1,TWAOTCTE    PRINT TCTTE PLEASE           BD5021A  
<=== This line I would replace with your's
NEP0AF   DS    0H                                               BD5021A
         DFHPC TYPE=RETURN         RETURN TO NACP               BD5021A
         LTORG                                                  BD5021A
*        DFHEND DFHZNENA                                            P2C

kind regards
Franz Josef Pohlen


industrynews@winwholesale.com schrieb:
> owner-vse-l@Lehigh.EDU wrote on 06/21/2008 03:58:04 AM:
>   
>> ... but the with the next switch back to the first cics the terminal
>> has lost the Cre-attribute in CEMT I TERM, and therefore it cannot
>> initiate a new session. When I set the attribute manually, it prints
>> again until the Cre attribute is gone next time.
>>     
>
>       This is something you need to "fix" by supplying a DFHZNEP exit
> program to your CICS which specifies that the CRE attribute is to be
> retained.  The following is the two lines of code from my DFHZNEP which
> performs that function:
>
>          OI    TWAOPT3,TWAOINT         SET CREATE   ON
>          NI    TWAOPT3,X'FF'-TWAONINT  SET NOCREATE OFF
>
> Sincerely,
>
> Dave Clark
>
> WinWholesale Group Services
> 3110 Kettering Boulevard
> Dayton, Ohio  45439  USA
> (937) 294-5331
>
>

New Message Reply Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b25 : Sat Jul 05 2008 - 14:05:07 EDT