Statein

Aus Si:Wiki von Siegrist SystemLösungen - Informatik und Rezepte
Wechseln zu: Navigation, Suche
.**********************************************************************
.*                                                                    *
.*   COPYRIGHT (C) SIEMENS-ALBIS AG 1988                              *
.*   COPYRIGHT (C) SIEMENS NIXDORF INFORMATIONSSYSTEME AG 1991        *
.*   ALL RIGTHS RESERVED                                              *
.*                                                                    *
.**********************************************************************
         MACRO                 300      931114
         STATEIN
         PRINT GEN
**************************************
*                                    *
*    STATION - TABLE                 * 
*                                    *
*    DEFINES THE LAYOUT FOR ONE      *
*    STATION (TERMINAL) ENTRY        *
*                                    *
*    MEMORY RESERVATION = 100 B(HEX) *
*                                    *
*    !! DO NOT USE FOR  CPBUFH !!    *
*                                    *
**************************************
* MODIFICATIONS :
* ---------------
** V3.0AK3
* USERPAGA UND USERPAGE MIT STATPW AUSGETAUSCHT FUER ADDR0-FALLE.
* H I N W E I S -->> IN MOD. CPBUFH SEPARAT AENDERN!!!!!!!!!!!!!!!
* ZAAREA1 AUFGENOMMEN (NICHT IN CPBUFH).
*
STATEIN  DSECT          (STATIONEINTRAG 1 FUER TERMINAL)
STATPNA  DS    CL8      H1500350
STATPRO  DS    CL8      V217H15
STAIDCP  DS    F        AID --> CP
STATPW   DS    CL8
TERMTYP  DS    F        X'00000000'
STATCID  DS    F        CID FUER TERMINAL --> CP
STATAKTP DS    H        AKTUELLER PID
STATTID  DS    H        TID FUER TERMINAL X'00000001'
STATZZ   DS    CL1      X'00'
STATK    DS    CL1      AUSLOESUNG DER DUE               
STATK10  EQU   X'10'          K-TASTE GEDRUECKT
STATK00  EQU   X'00'          NORMAL DUE
STATRPBA DS    F
STATCCBA DS    F
STATEI   DS    F        EVENT ID FOR STATION
STATRPB1 DS    F
STATSTOP DS    0F       SOLSIG KZ
         DS    H
STATSTFF EQU   X'FF'          SOLSIG IN USE        IN CPBUFH
STATST00 EQU   X'00'          SOLSIG NOT IN USE    IN CPBUFH
STASTPID DS    H
STATFREE DS    CL1      OPEN COMMAND FUER BENUTZER  (AUS TERMLIB)  
STATFREY EQU   'Y'            OPEN COMMAND ALLOWED
STATFREN EQU   'N'            OPEN COMMAND NOT ALLOWED
STATADM  DS    CL1      ADMINISTRATOR FUNCTION
STATADMY EQU   'Y'            ADMINISTRATOR          
STATADMN EQU   'N'            NORMAL USER
USERPAGA DS    F        A(ANFANG BUFFERSEITE FUER PARTNERVERWALTUNG)
USERPAGE DS    F        A(ENDE BUFFERSEITE)
STAPWSAV DS    CL8      PW SAVE AUS LIB
STATDEV  DS    CL8      DEVICE NAME FUER HC
STATFORM DS    CL8      FORMULAR NAME FUER HC
STATHCPG DS    F        3 SEITEN FUER HC UND SO
STATHCTY DS    CL1      CHARS/LINE FUER HC-DRUCKER      
STATHCTP EQU   'P'           DRUCKER MIT 80 CHAR/LINE
STATHCTN EQU   'N'           DRUCKER KANN 82 CHAR/LINE
STATCLK  DS    F        CLOCK TIME LAST ENTRY
STATVT   DS    CL8      VTNAME AUS OPNCON
STATANM  DS    CL1      LOGIN- ODER PW-MWNU  
STATANMA EQU   X'FF'         ANMELDEMENU (LOGIN)
STATANMU EQU   X'80'         USERTAB UPDATED
STATANMP EQU   X'00'         PASSWORTMENU
STATFUTU DS    CL3      ####### FOR FUTURE USE #####
* ADDED XHCS FUNCTIONALITY
STAXDTYP DS    CL8      DSS-TYP
STAXMOD  DS    CL1      STATIONSTYP
STAXMOD7 EQU   '7'           7-BIT
STAXMOD8 EQU   '8'           8-BIT
STAXCCSN DS    CL8      ZEICHENSATZNAME DER DSS
STAXDVT  DS    XL1      DEVICETYP DER DSS
STAXDV50 EQU   X'35'         9750
STAXDV55 EQU   X'4E'         9755
STAXDV56 EQU   X'4E'         9756 ALS 9755
STAXDV58 EQU   X'4F'         9758 ALS 9763
STAXDV63 EQU   X'4F'         9763
*   
STATEINL EQU   *-STATEIN  LENGTH FOR STATION ENTRY
         MEND