Userein
Aus Si:Wiki von Siegrist SystemLösungen - Informatik und Rezepte
.********************************************************************** .* * .* 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
