Userein

<syntaxhighlight lang="asm">

.********************************************************************** .* * .* 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