Userein

Aus SiWiki
Wechseln zu: Navigation, Suche
.**********************************************************************
.*                                                                    *
.*   COPYRIGHT (C) SIEMENS-ALBIS AG  1988                             *
.*   COPYRIGHT (C) SIEMENS NIXDORF INFORMATIONSSYSTEME AG 1991        *
.*   ALL RIGTHS RESERVED                                              *
.*                                                                    *
.**********************************************************************
         MACRO             300    931114
         USEREIN
         PRINT GEN
**************************************
*                                    *
*    USER - TABLE                    *
*                                    *
*    DEFINES THE LAYOUT FOR A        *
*    VIRTUAL TERMINAL / PAC          *
*                                    *
*    MEMORY LENGTH = 100 B(HEX)      *
*                                    *
*    !! DO NOT USE FOR  CPBUFH !!    *
**************************************
*
USEREIN  DSECT          (PARTNEREINTRAG 1 FUER YOPNCON)
USCPNAME DS    CL8      CP000001
USPRO    DS    CL8      V217H21
USAID    DS    F        AID --> CP00001
USCID    DS    F        CID FUER CP00001 -- > CP
USPNA    DS    CL8      $DIALOG
USTYP    DS    CL4      TYP OF PARTNER 
*USTYPD   EQU   'U/D '        PARTNER IST UTM ODER DCAM
*USTYPT   EQU   'TIAM'        PARTNER IST TIAM-APPL. ($DIALOG ETC)
*USTYPU   EQU   'UCON'        PARTNER IST $CONSOLE
*USTYPP   EQU   'PDN '        PARTNER IST PDN-APPL.  (CATS  ETC)
USPID    DS    H        PID X'01'
USREF    DS    CL1      REFRESH GEWUENSCHT ?                        
USREFY   EQU   'Y'           JA   - REFRESH DURCH CP
USREFN   EQU   'N'           NEIN - K3 / KDCLAST
USOKZ    DS    CL1      USED IN CPBUFH
USOKZV   EQU   X'00'         ACTCELL VOR FRECELL
USOKZN   EQU   X'10'         ACTCELL NACH FRECELL
USTEXTA  DS    F        A(ANFNANG BUFFER FUER YRECEIVE)
USTEXTE  DS    F        A(ENDE BUFFER FUER YRECEIVE)
USTERMS  DS    F        A(ANFANG BUFFER FUER TERMINAL/PARTNERSEITE)
USIN     DS    F        A(DCAM INPUT)
USLEN    DS    F        A(DCAM LAENGE)
USADR1   DS    F    *
USADR2   DS    F    * 
USADR3   DS    F    *
USADR4   DS    F    *
USPAC    DS    CL4      PAC DES PARTNERS
USNEA    DS    CL8      NEABT-PROT
*   -->*<-- WIRD VOM MODUL VERSORGT UND GEFLEGT
USRES    DS    F        REASON  X'00000001' --> ASY YRECEIVE EINGETROF  N
*                               X'00000002' --> ACK VON TERMINAL
*                               X'00000003' --> NEUAUFBAU VON GEWUENSCHT
* REG 1 -- > STATIONSTABELLENEINTRAG
* REG 2 -- > PARTNERTABELLEN EINTRAG
* BEI REASON 1 / BUFFERVERWALTUNG / TERMINALBUFFERVERWALTUNG / 
* YSEND AUF TERMINAL SOFERN AKTUELLER PID = YRECEIVE / VERSORGUNG USACK
* BEI REASON 2 / BUFFERVERWALTUNG / TERMINALBUFFERENTWERTUNG /
* YSEND AUFS TERMINAL
* BEI REASON 3 / VERSORGUNG USACK ?
* YSEND AUFS TERMINAL
USRC     DS    F
USERROR  DS    CL15
USFREE   DS    CL1
USFREED  EQU   'D'          AKT PARTNER DECLARED (AUCH BEI DURCHLAUFEN
*                           DISCON ROUTINE)
USFREEF  EQU   'F'          AKT PARTNER DISCON
USFREEO  EQU   'O'          AKT PARTNER NOCH NICHT VERBUNDEN
USFREE#  EQU   ':'          PARTNER AKTIV
USFREEY  EQU   'Y'          OPNCON ERFOLGREICH
USCO     DS    F
USEI     DS    F
USRPBA   DS    F
USCCBA   DS    F
USLOE1   DS    CL16
USLOE2   DS    CL7 
USLOE3   DS    CL25
USSEQ    DS    F
USKEY1   DS    F
USSEQSA  DS    F
USDEC    DS    CL1     STATUS OF PAC
USDECD   EQU   'D'          DECLARED
USDECND  EQU   ' '          NOT DECLARED (CONNECTED) 
USLOE1SA DS    CL16
USLOE2SA DS    CL7
         DS    CL20
USTATPNA DS    CL8
USTATPRO DS    CL8
USTATVT  DS    CL8    VT-NAME AUS STATVT
*
         ORG   USLOE2+4
ZAAREA1  DS    F
         ORG
*
USEREINL EQU   *-USEREIN   LENGTH OF  USERTAB
         MEND