*COPY NETWORK 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').NET01 00001400 PRINT OFF,NOGEN 00001600 .NET01 ANOP 00001800 NICBLOK DSECT 00002000 SPACE 1 00003000 *** NETWORK INTERFACE CONTROL BLOCK 00004000 * 00005000 * 0 +-----------+-----------+-----+-----+-----+-----+ 00006000 * | NICNAME | NICEPAD | N*1 | N*2 | N*3 | N*4 | 00007000 * 8 +-----------+-----------+-----+-----+-----+-----+ 00008000 * | NICRCNT | NICVRID | NICTMAT | 00009000 * 10 +-----------+-----------+-----------------------+ 00010000 * | NICUSER | NICQPNT | 00011000 * 18 +-----------------------+-----------------------+ 00012000 * | NICRSV | 00012020 * +-----------------------------------------------+ 00012040 * 00013000 *** NETWORK INTERFACE CONTROL BLOCK 00014000 SPACE 00015000 NICNAME DS 1H 3705 NCP RESOURCE NAME 00016000 NICEPAD DS 1H SUBCHANNEL ADDRESS WHEN IN EP MODE 00017000 NICSTAT DS 1X N*1 RESOURCE STATUS FLAGS 00018000 NICFLAG DS 1X N*2 INTERFACE CONTROL FLAGS 00019000 NICLLEN DS 1X N*3 TERMINAL OUTPUT LINE LENGTH 00020000 NICTYPE DS 1X N*4 RESOURCE TYPE / FEATURES 00021000 NICRCNT DS 1H RETRY COUNT FOR BTU ERRORS 00022000 NICVRID DS 1H VIRTUAL RESOURCE ID WHEN DEDICATED 00023000 NICTMAT DS 1F T.O.D. CLOCK VALUE WHEN ATTACHED 00024000 NICUSER DS 1F VMBLOK ADDRESS OF ASSOCIATED USER 00025000 NICQPNT DS 1F POINTER TO INPUT BTU CHAIN 00026000 NICRSV DS 1D RESERVED @VA09296 00026100 SPACE 00027000 NICSIZE EQU (*-NICBLOK)/8 SIZE OF BLOCK IN DOUBLE-WORDS 00028000 SPACE 00029000 * BITS DEFINED IN NICSTAT: 00030000 NICERLK EQU X'80' DEVICE ERROR LOCK IS SET 00031000 NICNTRL EQU X'40' CONTROL OPERATION IS ACTIVE 00032000 NICDISA EQU X'20' RESOURCE INACTIVE (OFFLINE) 00033000 NICSWEP EQU X'10' RESOURCE IS SWITCHABLE TO EP-MODE 00034000 NICEPMD EQU X'08' RESOURCE NOW IN EMULATOR MODE 00035000 NICLTRC EQU X'02' NCP LINE TRACE IS ACTIVE 00036000 NICDED EQU X'01' RESOURCE IS DEDICATED 00037000 NICTRQ EQU X'80' GRAF - TIMER REQUEST PENDING 00037100 NICHOLD EQU X'10' GRAF - SCREEN FULL, IN HOLD STATUS 00037125 NICMORE EQU X'08' GRAF - SCREEN FULL, IN MORE STATUS 00037150 NICRUNN EQU X'04' GRAF - SCREEN IN RUNNING STATUS 00037175 NICREAD EQU X'02' GRAF - READ PENDING FOR SCREEN INPUT 00037200 NICCPNA EQU X'01' GRAF - LAST INPUT NOT ACCEPTED 00037225 SPACE 00038000 * BITS DEFINED IN NICFLAG: 00039000 NICSESN EQU X'80' SESSION IS ACTIVE FOR THIS DEVICE 00040000 NICATTN EQU X'40' ATTENTION HANDLING IN PROGRESS 00041000 NICPSUP EQU X'20' RESOURCE HAS PRINT SUPPRESS FEATURE 00042000 NICATOF EQU X'10' SUPPRESS ATTENTION SIGNAL CHARACTER 00043000 NICENAB EQU X'08' RESOURCE IS ACTIVE AND ENABLED 00044000 NICDISB EQU X'02' RESOURCE TO BE DISABLED A.S.A.P. 00045000 NICMTA EQU X'01' MULTIPLE TERMINAL ACCESS RESOURCE 00045500 NICFMT EQU X'80' GRAF - SCREEN FORMATTED VM/370 ONLINE 00045525 NICDIAG EQU X'40' GRAF - SCREEN WRITTEN WITH DIAGNOSE 00045550 NICALRM EQU X'10' GRAF - SCREEN HAS ALARM MESSAGE 00045575 NICCARD EQU X'04' GRAF - DATA FROM CARD READER 00045600 NICPROCN EQU X'01' GRAF - PROCESS CONTROL TASK NOW 00045625 EJECT 00046000 * BITS DEFINED IN NICTYPE: 00047000 NICCTLR EQU X'00' RESOURCE IS THE 3705 ITSELF 00048000 NICLINE EQU X'80' RESOURCE IS A T.P. LINE 00049000 NICTERM EQU X'40' RESOURCE IS A TERMINAL DEVICE 00050000 NICLGRP EQU X'20' RESOURCE IS A LOGICAL LINE GROUP 00051000 SPACE 00052000 NICSDLC EQU X'08' LINE - SYNCHRONOUS DATA LINK CONTROL 00053000 NICLBSC EQU X'04' LINE - BINARY SYNCHRONOUS LINE CONTROL 00054000 NICSWCH EQU X'02' LINE - SWITCHED LINE INTERFACE 00055000 NICMLTP EQU X'01' LINE - MULTIPLE-DROP LEASED LINE 00056000 SPACE 00057000 NICTELE EQU X'10' TERM - TELEGRAPH LINE ADAPTER 00058000 NICCIBM EQU X'08' TERM - SELECTRIC-BASED TERMINAL 00059000 NICRCPU EQU X'04' TERM - BI-SYNCH REMOTE COMPUTER 00060000 NICRSPL EQU X'02' TERM - BI-SYNCH REMOTE SPOOL DEVICE 00061000 NICGRAF EQU X'01' TERM - BI-SYNCH REMOTE GRAPHICS 00062000 NIC3271 EQU X'08' GRAF - 3271 CONTROL UNIT 00062100 NIC3275 EQU X'04' GRAF - 3275 STANDALONE DISPLAY STATION 00062120 NICOPRDR EQU X'10' GRAF - CARD READER FEATURE 00062140 SPACE 1 00062160 * RE-DEFINITION FOR 3270 REMOTE SUPPORT 00062180 ORG NICEPAD 00062200 NICCORD DS 1X CURRENT LINE COORDINATE 00062225 NICTMCD DS 1X TERMINAL STATE 00062230 NICTABF EQU X'80' SECOND SCAN OF SCREEN'S INPUT AREA 00062235 NICSIO EQU X'40' USER ISSUE DIAGNOSE TO INPUT AREA 00062241 NICAPL EQU X'20' APL ON FOR 3270 REMOTE 00062245 NICTEXT EQU X'10' 3270 TEXT CHARACTER SET ON @VM00000 00062255 ORG NICRCNT 00062260 NICSELT DS 1H REMOTE STATION SELECTION CHARACTERS 00062280 NICPOLL DS 1H REMOTE STATION POLLING CHARACTERS 00062300 NICATRB DS 1F TIMER REQUEST BLOCK ADDRESS 00062320 ORG NICRSV @VA09296 00062390 NICRSV1 DS 1X RESERVED FOR IBM @VA09296 00062460 NICDTYPE DS 1X DISPLAY STATION TYPE @VA09296 00062530 NICMDL DS 1X DISPLAY STATION MODEL @VA09296 00062600 NICRSV2 DS 1X RESERVED @VA09296 00062670 NICRSV3 DS 1F RESERVED @VA09296 00062740 * BITS DEFINED IN NICDTYPE 00062810 NICD3275 EQU X'02' 3275 DISPLAY STATION @VA09296 00062880 NICD3277 EQU X'04' 3277 DISPLAY STATION @VA09296 00062950 SPACE 00063000 * SENSE BITS (SENSE BYTE 0) PECULIAR TO THE 3704 / 3705 : 00064000 IPLREQ EQU X'02' IPL REQUIRED - 3705 INACTIVE 00065000 ABORT EQU X'01' BUFFER DEPLETION - TRANSFER TERMINATED 00066000 SPACE 00067000 * EQUATE SYMBOLS FOR VM/370 SUPPORT OF THE 3704/5 00068000 WRITBRK EQU X'09' WRITE BREAK CCW OP-CODE 00069000 RDBUFLN EQU 96 LENGTH OF HOST READ BUFFERS 00070000 RDBUFNO EQU 6 NUMBER OF HOST READ BUFFERS 00071000 SPACE 3 00072000 CKPBLOK DSECT 00073000 SPACE 00074000 *** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00075000 * 00076000 * 0 +-----------+-----------+-----------------------+ 00077000 * | CKPSIZE | CKPRMAX | CKPRSV1 | 00078000 * 8 +-----------+-----------+-----------------------+ 00079000 * | CKPNAME | 00080000 * 10 +-----------------------------------------------+ 00081000 * | | 00082000 * = CKPBITS = 00083000 * | | 00084000 * +-----------------------------------------------+ 00085000 * 00086000 *** CKPBLOK - TELECOMMUNICATIONS CHECKPOINT BLOCK 00087000 SPACE 00088000 CKPSIZE DS 1H SIZE OF CKPBLOK IN DOUBLE-WORDS 00089000 CKPRMAX DS 1H NUMBER OF RESOURCES CHECKPOINTED 00090000 CKPRSV1 DS 1F RESERVED 00091000 CKPNAME DS CL8 370X CONTROL PROGRAM REFERENCE NAME 00092000 CKPBITS DS 0D BIT MAP OF ENABLED LINES OR RESOURCES 00093000 SPACE 00094000 CKPBKSZ EQU (CKPBITS-CKPBLOK)/8 HEADER SIZE IN DOUBLE-WORDS 00095000 EJECT 00096000 POP PRINT 00097000 SPACE 00098000