*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