*COPY LINKTABL 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').LIN01 00001400
PRINT OFF,NOGEN 00001600
.LIN01 ANOP 00001800
LINKTABL DSECT 00002000
SPACE 1 00003000
*** LINKTABL - LINK TABLE ENTRY 00004000
* 00005000
* 0 +-----------------------------------------------+ 00006000
* | LINKID | 00007000
* 8 +-----------------------+-----------------------+ 00008000
* | LDEFTNME | LACTTNME | 00009000
* 10 +-----------------------+-----------------------+ 00010000
* | LDEFDRVR | 00011000
* 18 +-----------------------------------------------+ 00012000
* | LACTDRVR | 00013000
* 20 +-----------+-----------+-----------------------+ 00014000
* | LDEFLINE | LACTLINE | LDRVRVAR | 00015000
* 28 +-----+-----+-----+-----+-----+-----+-----+-----+ 00016000
* | L*1 | L*2 | L*3 | L*4 | L*5 | L*6 | L*7 | L*8 | 00017000
* 30 +-----+-----+-----+-----+-----+-----+-----+-----+ 00018000
* | L*9 |LFLAG| LRESERVD | LPENDING | LTAKEN | 00019000
* 38 +-----+-----+-----------+-----------+-----------+ 00020000
* | LPOINTER | LMSGQ | 00021000
* 40 +-----------+-----------+-----------+-----------+ 00022000
* | LTRNSCNT | LERRCNT | LTOCNT | 00023000
* 48 +-----------+-----------+-----------+-----------+ 00024000
* | LNKCLOCK | 00024100
* 50 +-----------------------------------------------+ 00024200
* 00024300
* 00025000
*** LINKTABL - LINK TABLE ENTRY 00026000
SPACE 1 00027000
LINKID DS CL8 EBCDIC LINK ID 00028000
LDEFTNME DS CL4 DEFAULT TASK NAME 00029000
LACTTNME DS CL4 ACTIVE TASK NAME 00030000
LDEFDRVR DS CL8 DEFAULT DRIVER ID 00031000
LACTDRVR DS CL8 ACTIVE DRIVER ID 00032000
LDEFLINE DS 2X DEFAULT VIRTUAL LINE ADDRESS 00033000
LACTLINE DS 2X ACTIVE VIRTUAL LINE ADDRESS 00034000
LDRVRVAR DS 1F LINE DRIVER VARIABLE INFO 00035000
LDEFCLS1 DS CL1 L*1 DEFAULT SPOOL FILE CLS 1 00036000
LDEFCLS2 DS CL1 L*2 DEFAULT SPOOL FILE CLS 2 00037000
LDEFCLS3 DS CL1 L*3 DEFAULT SPOOL FILE CLS 3 00038000
LDEFCLS4 DS CL1 L*4 DEFAULT SPOOL FILE CLS 4 00039000
LACTCLS1 DS CL1 L*5 ACTIVE SPOOL FILE CLS 1 00040000
LACTCLS2 DS CL1 L*6 ACTIVE SPOOL FILE CLS 2 00041000
LACTCLS3 DS CL1 L*7 ACTIVE SPOOL FILE CLS 3 00042000
LACTCLS4 DS CL1 L*8 ACTIVE SPOOL FILE CLS 4 00043000
LTIMEZON DS 1X L*9 2 COMP TIME ZONE DISP FROM GMT 00044000
LFLAG DS 1X LINK FLAG BYTE 00045000
LRESERVD DS 1H COUNT OF TAG ELEMENTS RESERVED 00046000
LPENDING DS 1H COUNT OF UNACCEPTED TAGS 00047000
LTAKEN DS 1H COUNT OF TAG SLOTS IN USE 00048000
LPOINTER DS 1F LINK QUEUE ADDR 00049000
LMSGQ DS 1F MSG QUEUE POINTER 00050000
LTRNSCNT DS 1H LINK TRANSACTION COUNT 00051000
LERRCNT DS 1H ERROR COUNT 00052000
LTOCNT DS 1H TIMEOUT COUNT 00053000
LSPARE DS 1H SPARE HALF WORD 00054000
LNKCLOCK DS 8X CLOCK COMP VALUE FOR THIS LINK @VA03349 00054100
EJECT 00055000
* BITS DEFINED IN LFLAG 00056000
LACTIVE EQU X'80' LINK ACTIVE 00057000
LALERT EQU X'40' AXS ALERT EXIT SET 00058000
LHOLD EQU X'20' LINK HOLD SET 00059000
LDRAIN EQU X'10' LINK DRAIN IN PROGRESS 00060000
LTRALL EQU X'08' LINK TRANSACTION TRACING (ALL) 00061000
LTRERR EQU X'04' LINK TRANSACTION TRACING (ERROR) 00062000
LHALT EQU X'01' LINK TO BE FORCED INACTIVE 00063000
SPACE 1 00064000
LINKLEN EQU *-LINKTABL LENGTH OF LINK TABLE ENTRY 00065000
EJECT 00066000
POP PRINT 00067000
SPACE 00068000